Consultar banco de dados usando ado VB 6.0

[Admar Inasco 0]

Boa Noite!

Existe a possibilidade de localizar no banco de dados pelo nome, por exemplo eu digitaria na caixa de texto "TxtLocalizar" um determinado nome e clicando no botão localizar "CmdLocalizar" atravéz do nome digitado as outras caixas de texto seriam preenchidas de acordo com o nome selecionado?

estou usando um banco de dados na raiz chamado BcoDados.mdb

a tabela que abre nesse banco de dados é chamada Clientes

estou usando esse código:

Dim WithEvents adoPrimaryRS As Recordset

Dim mbChangedByCode As Boolean

Dim mvBookMark As Variant

Dim mbEditFlag As Boolean

Dim mbAddNewFlag As Boolean

Dim mbDataChanged As Boolean


Private Sub CmdLocalizar_Click()

'**

'aqui seria o comando para busca

'**

End Sub


Private Sub Form_Load()

  Dim db As Connection

  Set db = New Connection

  db.CursorLocation = adUseClient

  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BcoDados.mdb;"

  Set adoPrimaryRS = New Recordset

  adoPrimaryRS.Open "select Bairro,Cidade,Codigo,Contato,CpfCnpj,Endereco,Mail,Nome,Numero,Ramal,TelCelular,TelFixo,Uf from Clientes", db, adOpenStatic, adLockOptimistic

  Dim oText As TextBox

  For Each oText In Me.txtFields

    Set oText.DataSource = adoPrimaryRS

  Next

  mbDataChanged = False


End Sub

Private Sub Form_Resize()

  On Error Resume Next

  lblStatus.Width = Me.Width - 1500

  cmdNext.Left = lblStatus.Width + 700

  cmdLast.Left = cmdNext.Left + 340

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

  If mbEditFlag Or mbAddNewFlag Then Exit Sub

  Select Case KeyCode

    Case vbKeyEscape

      cmdClose_Click

    Case vbKeyEnd

      cmdLast_Click

    Case vbKeyHome

      cmdFirst_Click

    Case vbKeyUp, vbKeyPageUp

      If Shift = vbCtrlMask Then

        cmdFirst_Click

      Else

        cmdPrevious_Click

      End If

    Case vbKeyDown, vbKeyPageDown

      If Shift = vbCtrlMask Then

        cmdLast_Click

      Else

        cmdNext_Click

      End If

  End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

  Screen.MousePointer = vbDefault

End Sub

Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

  lblStatus.Caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition)

End Sub

Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

  Dim bCancel As Boolean

  Select Case adReason

  Case adRsnAddNew

  Case adRsnClose

  Case adRsnDelete

  Case adRsnFirstChange

  Case adRsnMove

  Case adRsnRequery

  Case adRsnResynch

  Case adRsnUndoAddNew

  Case adRsnUndoDelete

  Case adRsnUndoUpdate

  Case adRsnUpdate

  End Select

  If bCancel Then adStatus = adStatusCancel

End Sub

Private Sub cmdAdd_Click()

  On Error GoTo AddErr

  With adoPrimaryRS

    If Not (.BOF And .EOF) Then

      mvBookMark = .Bookmark

    End If

    .AddNew

    lblStatus.Caption = "Add record"

    mbAddNewFlag = True

    SetButtons False

  End With

  Exit Sub

AddErr:

  MsgBox Err.Description

End Sub

Private Sub cmdDelete_Click()

  On Error GoTo DeleteErr

  With adoPrimaryRS

    .Delete

    .MoveNext

    If .EOF Then .MoveLast

  End With

  Exit Sub

DeleteErr:

  MsgBox Err.Description

End Sub

Private Sub cmdRefresh_Click()

  'This is only needed for multi user apps

  On Error GoTo RefreshErr

  adoPrimaryRS.Requery

  Exit Sub

RefreshErr:

  MsgBox Err.Description

End Sub

Private Sub cmdEdit_Click()

  On Error GoTo EditErr

  lblStatus.Caption = "Edit record"

  mbEditFlag = True

  SetButtons False

  Exit Sub

EditErr:

  MsgBox Err.Description

End Sub

Private Sub cmdCancel_Click()

  On Error Resume Next

  SetButtons True

  mbEditFlag = False

  mbAddNewFlag = False

  adoPrimaryRS.CancelUpdate

  If mvBookMark > 0 Then

    adoPrimaryRS.Bookmark = mvBookMark

  Else

    adoPrimaryRS.MoveFirst

  End If

  mbDataChanged = False

End Sub

Private Sub cmdUpdate_Click()

  On Error GoTo UpdateErr

  adoPrimaryRS.UpdateBatch adAffectAll

  If mbAddNewFlag Then

    adoPrimaryRS.MoveLast

  End If

  mbEditFlag = False

  mbAddNewFlag = False

  SetButtons True

  mbDataChanged = False

  Exit Sub

UpdateErr:

  MsgBox Err.Description

End Sub

Private Sub cmdClose_Click()

  Unload Me

End Sub

Private Sub cmdFirst_Click()

  On Error GoTo GoFirstError

  adoPrimaryRS.MoveFirst

  mbDataChanged = False

  Exit Sub

GoFirstError:

  MsgBox Err.Description

End Sub

Private Sub cmdLast_Click()

  On Error GoTo GoLastError

  adoPrimaryRS.MoveLast

  mbDataChanged = False

  Exit Sub

GoLastError:

  MsgBox Err.Description

End Sub

Private Sub cmdNext_Click()

  On Error GoTo GoNextError

  If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext

  If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then

    Beep


    adoPrimaryRS.MoveLast

  End If

  mbDataChanged = False

  Exit Sub

GoNextError:

  MsgBox Err.Description

End Sub

Private Sub cmdPrevious_Click()

  On Error GoTo GoPrevError

  If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious

  If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then

    Beep


    adoPrimaryRS.MoveFirst

  End If

  mbDataChanged = False

  Exit Sub

GoPrevError:

  MsgBox Err.Description

End Sub

Private Sub SetButtons(bVal As Boolean)

  cmdAdd.Visible = bVal

  cmdEdit.Visible = bVal

  cmdUpdate.Visible = Not bVal

  cmdCancel.Visible = Not bVal

  cmdDelete.Visible = bVal

  cmdClose.Visible = bVal

  cmdRefresh.Visible = bVal

  cmdNext.Enabled = bVal

  cmdFirst.Enabled = bVal

  cmdLast.Enabled = bVal

  cmdPrevious.Enabled = bVal

End Sub

[KhaosDoctor 242]

Basicamente o que você precisa mudar é só a connectionString, se você tiver o nome do banco é só concatenar na string de conexão.

[Admar Inasco 0]

Obrigado pela atenção KhaosDoctor!

 

Mas é por aí que estou me perdendo, usando MsFlexGrid eu localizava um determinado cliente dessa forma em que citei.

 

Usando ele o codigo era mais ou menos:

 

RS.Open "SELECT * FROM Clientes WHERE Codigo Like '%" & TxtCodigo.Text & "%'", CON, adOpenStatic, adLockOptimistic






'RS("Codigo") = TxtCodigo
RS("Nome") = txtNome
RS("Endereco") = txtEndereco
RS("Numero") = txtNumero
RS("Bairro") = txtBairro
RS("Cidade") = txtCidade
RS("Uf") = txtUf
RS("TelFixo") = txtTelFixo
RS("TelCelular") = txtTelCelular
RS("CpfCnpj") = TxtCpfCnpj
RS("Mail") = txtmail
RS("Contato") = TxtContato

porém procurava algo parecido só que usando as caixas te texto sendo preenchidas ao invés da MsflexGrid.

Desde já agradeço pela ajuda!!

[KhaosDoctor 242]

Ah sim! Acredito que tenha entendido errado seu problema.

 

Basicamente o que você precisa é preencher seu recordset e depois colocar os valores dos campos nas caixas de texto. Se você tem N caixas de texto em um formulário e precisa que todas sejam preenchidas de acordo com o valor que existe em uma delas (no caso, o nome) você pode fazer a conexão normal, como mandou acima e preencher no modelo:

txtbox.text = RS("campo")

[Admar Inasco 0]

Boa Noite KhaosDoctor!

 

Então vai ficar parecido com a do MsFlexGrid mesmo. Vou tentar conforme vc explicou e depois eu vou postar (se eu conseguir..) Caso contrário vou pedir mais umas dicas.

 

Mais uma vez obrigado pela força!!!

[Admar Inasco 0]

Deu certo KhaosDoctor

 

ficou assim:

 

adoPrimaryRS.Open "SELECT * FROM Clientes WHERE Nome Like '%" & TxtNome.Text & "%'", db, adOpenStatic, adLockOptimistic

 

(mudou bem pouco em relação a MsFlexgrid)

 

e as caixas de texto:

 

(conforme vc explicou, só que sem aspas)

 

txtFields(0) = adoPrimaryRS(codigo)

txtFields(1) = adoPrimaryRS(nome)
e assim por diante...

 

Obrigado por ter clareado minhas idéias

 

Um Abraço!