EXEMPLO DE COMO USAR O METODO EXECUTE

USUARIO.EXCLUIDOS 11/04/2004 07:50:21
#19892 Resposta escolhida

Gere uma base MS-Access em branco, chamando-a de "dbteste.mdb" em seu drive C:\, na pasta BANCOS.

Em um projeto VB novo, acrescente referência ao MS-ADO 2.x e um Form. No Form, insira 5 Command (não uma matriz de commands) e cole o código:


Option Explicit

Dim sCx as String
Dim oCx as ADODB.Connection

Private Sub Form_Load()
Command1.Caption = "Adicionar Tabela"
Command2.Caption = "Adicionar Registros"
Command3.Caption = "Alterar Registros"
Command4.Caption = "Eliminar Registros"
Command5.Caption = "Encerrar"
sCx = Empty
sCx = sCx & "Provider=Microsoft.Jet.OLEDB.4.0;"
sCx = sCx & "Data Source=C:\BANCOS\dbteste.mdb;"
sCx = sCx & "Persist Security Info=False;"
Set oCx = New ADODB.Connection
oCx.CursorLocation = adUseClient
oCx.ConnectionString = sCx
oCx.Open
End Sub

Private Sub Form_Unload(Cancel as Integer)
If oCx.State 0 Then oCx.Close
Set oCx = Nothing
End Sub

Private Sub Command1_Click()
oCx.Execute "Create Table Cadastro (Nome Text(50), RG Text(21), Nascimento Date));"
End Sub

Private Sub Command2_Click()
oCx.Execute "Insert Into Cadastro (Nome, RG, Nascimento) Values ('Cliente 1','19458764',#01/01/83#);"
oCx.Execute "Insert Into Cadastro (Nome, RG, Nascimento) Values ('Cliente 2','18458764',#21/02/73#);"
oCx.Execute "Insert Into Cadastro (Nome, RG, Nascimento) Values ('Cliente 3','17458764',#24/01/63#);"
oCx.Execute "Insert Into Cadastro (Nome, RG, Nascimento) Values ('Cliente 4','16458764',#6/04/53#);"
oCx.Execute "Insert Into Cadastro (Nome, RG, Nascimento) Values ('Cliente 5','15458764',#18/05/43#);"
End Sub

Private Sub Command3_Click()
oCx.Execute "Update Clientes Set Nome = 'Paulo SilvaÂÂÂ' Where Nome = 'Cliente 4';"
oCx.Execute "Update Clientes Set Nome = 'Marco AntonioÂÂÂ' Where Nome = 'Cliente 1';"
oCx.Execute "Update Clientes Set Nome = 'Fabiana RochaÂÂÂ' Where Nome = 'Cliente 3';"
oCx.Execute "Update Clientes Set Nome = 'André AlcantaraÂÂÂ' Where Nome = 'Cliente 2';"
End Sub

Private Sub Command4_Click()
oCx.Execute "Delete From Clientes Where Nome = 'Cliente 5';"
End Sub

Private Sub Command5_Click()
Unload Me
End Sub




Agora, mantendo a base de dados aberta pelo MS-Access em modo não excusivo, execute o sistema e acompanhe as alterações.