realizar busqueda
Publicado por novatoxy (31 intervenciones) el 28/06/2006 21:22:09
Hola al foro
Ojala algun programador experto me ayude, quiero realizar una busqueda y VB me envia mensaje de q no encontro objeto, en q esta mal mi codigo??? tengo problemas con las comillas y el como enlazar el contenido de Textbox para la busqueda, agradezco q me ayuden
Dim db1 As Database
Dim db2 As Workspace
Set db2 = DBEngine.Workspaces(0)
Set db1 = db2.OpenDatabase("C:\sv\dba001.mdb")
Dim RecordsetC As Recordset
'Set RecordsetC = db1.OpenRecordset("Clientes", dbOpenTable)
Set RecordsetC = db1.OpenRecordset("select CNombre from Clientes Where CNombre='&Txtord3.Text&'", dbOpenTable)
RecordsetC.FindFirst "CNombre='&Txtord3.Text&'"
Ojala algun programador experto me ayude, quiero realizar una busqueda y VB me envia mensaje de q no encontro objeto, en q esta mal mi codigo??? tengo problemas con las comillas y el como enlazar el contenido de Textbox para la busqueda, agradezco q me ayuden
Dim db1 As Database
Dim db2 As Workspace
Set db2 = DBEngine.Workspaces(0)
Set db1 = db2.OpenDatabase("C:\sv\dba001.mdb")
Dim RecordsetC As Recordset
'Set RecordsetC = db1.OpenRecordset("Clientes", dbOpenTable)
Set RecordsetC = db1.OpenRecordset("select CNombre from Clientes Where CNombre='&Txtord3.Text&'", dbOpenTable)
RecordsetC.FindFirst "CNombre='&Txtord3.Text&'"
Valora esta pregunta


0