Public bDados As New ADODB.Connection
'Abrir Access
bDados.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gstrServidor & "MeuBD.MDB;"
'Abrir SQLServer
Call bDados.Open("Provider = SQLOLEDB; Server=192.0.6.2 & "; Database=MeuBD", "MeuUsuario", "MinhaSenha")
'O resto agora vale pra qq tipo de banco de dados q vc conectou.
'Abretab = rotina criada para acessar o meu bd
Public Function AbreTab(Tabela As ADODB.Recordset, Consulta As String, TipoAbertura As Byte) As Boolean
'flag de abertura
Dim resultado As Boolean
Dim msg As String 'mensagem de erro
resultado = False
On Error Resume Next
Tabela.Close
Set Tabela = Nothing
On Error GoTo TabelaErro
Set Tabela = New ADODB.Recordset
If TipoAbertura = 0 Then
Tabela.Open Consulta, bDados, adOpenForwardOnly, adLockReadOnly
Else
Tabela.Open Consulta, bDados, adOpenKeyset, adLockPessimistic, adCmdText
End If
resultado = True
AbreTab = resultado
'fecha tratamento de erro
On Error GoTo 0
Exit Function
'tratamento de erro de tabelas
TabelaErro:
MsgBox Err.Description
resultado = False
AbreTab = resultado
Exit Function
End Function
'Ex: Ler registros numa tabela:
dim wRs_Cadastro as New ADODB.Recordset
If Not AbreTab(wRs_Cadastro, "Select * from Clientes where cdCliente=" & txtCliente.Text, 0) Then ' 0=abre tabela p/consulta 1=abre tab. para atualização
Exit Sub
End If
If Not wRs_Cadastro.EOF Then
msgbox "O Cliente lido foi o " & wrs_Cadastro!nmCliente
End If
wRs_Cadastro.Close
Set wRs_Cadastro = Nothing
'Ex: Alterar campos de registro numa tabela:
dim wRs_Cadastro as New ADODB.Recordset
If Not AbreTab(wRs_Cadastro, "Update from Clientes set nmRua=" & txtRua.Text & ", nrCep=" & txtnrCEP.Text & " where cdCliente=" & txtCliente.Text, 1) Then
exit sub
End If
Set wRs_Cadastro = Nothing
'Ex: Incluir campos de registro numa tabela:
dim wRs_Cadastro as New ADODB.Recordset
If Not AbreTab(wRs_Cadastro, "Inser into Clientes (cdCliente,nmCliente,nmRua,nrCep) Values (" & txtcdCliente.Text & ",'" & txtnmCliente.Text & "','" & txtnmRua.Text & "','" & txtnrCep.Text & "'", 1) Then
exit sub
End If
Set wRs_Cadastro = Nothing
'Ex: Excluir registro numa tabela:
dim wRs_Cadastro as New ADODB.Recordset
If Not AbreTab(wRs_Cadastro, "Delete from Clientes where cdCliente=" & txtCliente.Text, 1) Then
exit sub
End If
Set wRs_Cadastro = Nothing
'Obs. A declaração da variável wrs_Cadastro Defini em cada local porque supoe-se que cada exemplo deste estará em um determinado botão. Mas poderia ser definido num modulo, assim valeria prara o projeto todo.
Espero que isto ajude a vc iniciar em vb com ADO + comandos SQL.
Abraços.
