14/04/2004, 15:53
|
 | | | Fecha de Ingreso: noviembre-2003
Mensajes: 49
Antigüedad: 20 años, 5 meses Puntos: 0 | |
| Bueno te agradezco por tu interes :D de veras que me ayudaste, pero aun asi me tira error, mira, tengo este codigo en el boton que seria el de "Buscar":
Dim busqueda As String
Dim Conn As New Adodb.Connection
Dim Con As Adodb.Connection
Dim RS As New Adodb.Recordset
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & "C:\agenda.mdb"
Conn.ConnectionString = strConn
Conn.Open
busqueda = Text7.Text
Set RS = Conn.OpenRecordset("Select * from tabla where Nombre = '" & busqueda & "'")
If RS.RecordCount > 0 Then
MsgBox "se encontro"
Else
MsgBox "no se encontro"
End If
hay algo mal ? falta algo ?? ayudaa :(
__________________
Salu2 :D |