USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Utilizando o ADO - [Básico]
Postada em 22/11/2000 por Webmaster      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página