Hola, queria saber si me podian ayudar porque cuando realizo una consulta de busqueda osea con WHERE, me dice que no se puede realizar la operacion si esta abierto y me marca en cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"
Dim rs As New ADODB.Recordset
rs.ActiveConnection = cn
If Not cn.State Then
rutabasedatos = "C:\Users\Public\VB______\Final\BD FINAL-datos+consultas.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"
End If
rs.Open "SELECT *FROM paciente where nombre= '" & Text1.Text & "'", cn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs
Me.DataGrid1.Refresh
Tambien me pasa cuando uso un inputbox, y cuando intento obtener datos a través de fechas (y he usado el #)
Tienes el archivo abierto?
No soy bueno con las consultas, pero no deberias cerrar la base antes de volver a usarla? porque la abres dos veces,
Deberia quedar asi:
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"
cn.close