Quase esqueci todo o VB que aprendi há alguns anos, por isso estou revisando-o esses dias. Não é muito difícil conectar o banco de dados ADO ao VB.
O primeiro passo da conexão (leia com atenção)
Para iniciantes, o tutorial aqui é o mais detalhado. O primeiro passo para conectar-se ao banco de dados ADO é quais componentes devem ser adicionados. O nome completo é componente Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
No componente Microsoft ADO Data Control 6.0 (SP6) (OLEDB) há um nome: controle de dados Adodc, você precisa adicioná-lo. Encontre ACCES no local de dados de controle de dados Adodc.
O método referenciado pelo controle (o valor refere-se ao nome)
Copie o código do código da seguinte forma:
Para i = 1 para Adodc1.Recordset.RecordCount
Se não for Adodc1.Recordset.EOF então
Combo1.AddItem Adodc1.Recordset.Fields("valor").Valor
Adodc1.Recordset.Movenext
Terminar se
Em seguida eu
O autor citado por este código é ydl890406. Quando eu estava escrevendo isso no grupo VB, fui solicitado a pegá-lo emprestado. Mais tarde, descobri que havia muitos erros. simplesmente reescreveu-o. Este é o código posterior. O tempo passou rápido e o grupo VB também se desfez. Mais tarde, por algum motivo desconhecido, muitos tutoriais agora usam esse código.
A segunda parte é a conexão do código AOD. Como a segunda parte envolve o objeto Recordset e o objeto Connection, você mesmo pode aprender e escrevê-lo.
O que são o objeto Recordset e o objeto Connection O objeto Connection é a conexão com a fonte de dados e o objeto Recordset são os dados da operação.
Procurando componentes do Microsoft ADO Data Control 6.0 (SP6) (OLEDB)
VB usa ADO para se conectar ao banco de dados SQL Server
'Constante de informações da fonte de dados Public Const conn As String = "Provider = SQLOLEDB.1;Password = sa; UserID = sa; Initial Catalog = StudentFiles; Data Source = localhost" Public Const CONNECT_LOOP_MAX = 10 'Execute a operação de conexão uma vez e você poderá acessar o banco de dados Número de vezesPrivate IsConnect As Boolean 'Marca se o banco de dados está conectadoPrivate Connect_Num As Integer 'Marca o número de vezes que os dados são acessados após a execução da função Connect()Private cnn As ADDODB.Connection 'Objeto de conexão para conexão com o banco de dadosPrivate re As ADDODB.Recordset 'Objeto Recordset que salva o conjunto de resultados //Conecta-se ao banco de dadosPrivate Sub Connect () 'Se a marca de conexão for verdadeira, retorne. IF IsConnect = True Then Exit Sub End If Set cnn = New ADODB.Connection 'A chave new é usada para criar um novo objeto cnn cnn.ConnectionString = conn cnn.Open 'Determina o status da conexãoIf cnn.State <> adStateOpen Then MsgBox "Falha na conexão com o banco de dados" End End If 'Definir o ID da conexão, indicando que está conectado ao banco de dados IsConnect = TrueEnd Sub' Desconectar a conexão com o banco de dados Private Sub DisConnect() Dim rc As Long If IsConnect = False Then Exit Sub End If 'Fechar a conexão cnn.Close 'Liberar cnn Set cnn = Nothing IsConnect = FalseEnd Sub'Use Connect_Num para controlar a conexão de dados Public Sub DB_Connect() Connect_Num = Connect_Num + 1 ConnectEnd Sub'Use Connect_Num para controlar os dados desconectar Public Sub DB_Disconnect ()Se Connect_Num >= CONNECT_LOOP_MAX Então Connect_Num = 0 Desconectar End If End Sub'Force para fechar o modo API para acessar o banco de dados russo, zerar o contador Public Sub DBapi_Disconnect() Connect_Num = 0 DisconnectEnd Sub'Execute operação do banco de dados idioma'byval Ele é passado pelo valor do parâmetro, e o parâmetro não será alterado durante o processo de transferência (ou seja, o valor do parâmetro é passado para o processo em vez do endereço. Isso permite que o processo acesse uma cópia da variável, e o processo não pode alterar o valor da variável correspondente a ele é byref, o que significa que passar o valor de acordo com o endereço do parâmetro Byref pode ser omitido. .Command 'Criar objeto de comando cmd DB_Connect 'Conecte-se ao banco de dados Set cmd.ActiveConnection = cnn 'Defina o atributo ActiveConnect do cmd e especifique a conexão do banco de dados associada a ele cmd.CommandText = TmpSQLstmt 'Defina o texto do comando a ser executado'MsgBox TmpSQLstmt cmd.Execute 'Execute o comando Set cmd = Nothing DB_DisConnect 'Desconectar Abre a conexão com o banco de dados End Sub'Executa a instrução de consulta ao banco de dados Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset Dim rst As New ADODB.Recordset 'Cria objeto Rescordset rst DB_Connect 'Conecta ao banco de dados Set rst.ActiveConnection = cnn 'Define a propriedade ActiveConnection de rst e especifica a conexão com o banco de dados relacionado a ele rst.CursorType = adOpenDynamic ' Defina o tipo de cursor primeiro. LockType = adLockOptimistic 'Definir tipo de bloqueio primeiro.Open TmpSQLstmt 'Abre o conjunto de registros Set QueryExt = rst 'Retorna a função recordsetEnd