Easy DB question.....

[X_Darknight_X]

Alright, I'm accessing a db though ADO. I have a textbox that sends a query search for whatever's in that textbox

Private Sub txtPhone_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
adoCustomer.RecordSource = "SELECT * FROM Customers" & _ "WHERE [Phone Number] = '" & txtPhone.Text & "'"
' txtFname.Text = adoCustomer.Recordset![First Name]
End If
End Sub

Now how would I display those fields in designated textboxes??

[rammy]

Hi,

firstly,

what's the problem with the line

' txtFname.Text = adoCustomer.Recordset![First Name]

in ur code??? Is that not working????

coz as far as I can see....that should work. U'll probably have to repeat that line for each textbox.

Maybe u can also try using a control array (for the textbox), so that u can put that one line of code in a loop.

Hope this helps.

[Buzby]

I don't use the ADO control ( I prefer to use the Recordset objects etc) but I think you'll need to do

ADOCustomer.Refresh

before you do

txtFname.Text = adoCustomer.Recordset![First Name]

[Chris]

Hope this can help you.

Option Explicit
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim xSQL As String
Private Sub Form_Load()
'Let take Biblio.mdb as an example
'Establish the Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\Biblio.mdb"
xSQL = "SELECT * FROM Authors WHERE Au_ID < 1000 ORDER BY Au_ID ASC;"
With Rs
    .Open xSQL, Conn, adOpenKeyset, adLockPessimistic
    While Not .EOF
        Text1.Text = Text1.Text & .Fields(0) & Space(10) & .Fields(1) & vbCrLf
        .MoveNext
    Wend
End With
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub