-
Hello All:
Having a little coding problem with VB6 ProEdition. I'm trying to be able to add records and search record's within the database. Problem of course getting tons of error messages. I'm running Adodc, and running a data environment also. The database loads and I can scroll through the data but not add and search it. Thanx for any help.!?
I'm adding the some of the code for the add/search.
Private Sub Command1_Click()
prompt$ = "To Enter a New Record click OK"
reply = MsgBox(prompt$, vbOKCancel, "Add New Record")
If reply = vbOK Then ' If the user clicks OK
txtText1.SetFocus 'move cursor to Text1 box
DataEnvironment1.rsCommand1.Recordset.AddNew ' and get new record
End If
End Sub
Private Sub Command2_Click()
prompt$ = "Enter the Trouble Ticket Number to start serch"
'get string to be used in the Trouble Ticket field serch
SearchStr$ = InputBox(prompt$, "Ticket Search")
DataEnvironment1.rsCommand1.Index = "Trouble Ticket" 'use Trouble Ticket
DataEnvironment1.rsCommand1.Seek "=", SearchStr$ 'and search
If DataEnvironment1.rsCommand1.NoMatch Then 'if no match
DataEnvironment1.rsCommand1.Recordset.MoveFirst 'go to first record
End If
End Sub
-
usually an SQL statement is used to do searches
there is an example using the ADODC at:
http://pages.about.com/vbmakai/ado4.htm
