|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Utilizando o ADO - [Básico]
|
 |
|
|
|
Postada em 22/11/2000 por Webmaster
webmaster@vbweb.com.br
'Esta dica mostra os passos básicos p/ se usar o ADO ao invés do DAO.
'A. Abertura de Banco de Dados e de Tabelas
'1º - Criar uma Conexão
Dim Conexão As ADODB.Connection
Set Conexão = New ADODB.Connection
'2º - Criar uma Recordset
Dim Tabela As ADODB.Recordset
Set Tabela = New ADODB.Recordset
'3º - Criar uma Variável para SQL
Dim SQLString As String
'4º - Abrir o Banco de Dados (Definir o SGBD a ser Utilizado)
Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Banco.MDB"
'5º - Definir o Valor Inicial para a Variável de SQL
SQLString = "Select * From Tabela"
'6º - Abrir o Recordset (Tabela)
Tabela.Open SQLString, Conexão, [CursorType], [LockType]
'B. Manipulação de Dados
'A manipulação continua idem ao do DAO, com a diferença de não existir mais o metodo Edit.
Veja os exemplos:
Adicionando um Registro:
Tabela.AddNew
Tabela![Campo1] = Valor1
Tabela![Campo2] = Valor2
Tabela![Campo3] = Valor3
Tabela![Campo4] = Valor4
Tabela.Update
'Alterando um Registro:
Tabela![Campo1] = NovoValor1
Tabela![Campo2] = NovoValor2
Tabela![Campo3] = NovoValor3
Tabela![Campo4] = NovoValor4
Tabela.Update
'Excluindo um Registro:
Dim RES
RES = MsgBox("Deseja excluir o registro atual?", _
48 + vbYesNo, "Excluir???")
If RES = vbYes Then
Tabela.Delete
If Not Tabela.EOF Then
Tabela.MoveFirst
'Sub que joga os valores dos campos da
'tabela p/ os TextBoxes
MostraDados
End If
End If
'Movendo entre Registros:
'Coloque 4 botões no Form, com Captions "|<", "<", ">" e ">|", todos com o nome cmdMove, formando assim um array de botões de indices 0 à 3.
'No evento Click deste array de botões, coloque o seguinte código:
Private Sub cmdMove_Click(Index As Integer)
Select Case Index
Case 0
Tabela.MoveFirst
Case 1
If Not Tabela.BOF Then Tabela.MovePrevious
If Tabela.BOF Then
Tabela.MoveFirst
End If
Case 2
If Not Tabela.EOF Then Tabela.MoveNext
If Tabela.EOF Then
adoPrimaryRS.MoveLast
End If
Case 3
Tabela.MoveLast
End Select
End Sub
|
|
|
|
|
