Aqui está apenas um exemplo simples de miniaplicativo VB, mas contém estas palavras-chave: VB6.0, ADO, Access
Ambiente: visual basic 6.0 Enterprise Edition (não a versão simplificada, caso contrário, faltarão os controles necessários)
Banco de dados: banco de dados de acesso, o banco de dados é xs.mbd, a tabela interna é xj
Resultado: VB usa ADO para se conectar ao banco de dados de acesso, consulta todos os dados na tabela xj e, em seguida, envia os resultados da consulta para a janela em um loop.
Código:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'Objeto de conexão ADO e conjunto de registros Dim strSQL As String 'SQL string db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados =" & App.Path & "/xs.mdb" 'Conexão de banco de dados db.Open 'Abre o banco de dados strSQL = "select * from xj" 'String SQL RS.Open strSQL, db, 3, 1 'Consulta a tabela de dados Do While Not RS.EOF 'Loop para saída dos resultados da consulta RS! Imprime os resultados de saída na janela RS.MoveNext 'Mover registro para baixo LoopRS.Close 'Fecha o conjunto de registros Set RS = NothingEnd Sub
O texto acima é todo o conteúdo deste artigo, espero que todos gostem.