22/11/2005, 09:55
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: Barcelona - España , Morelia - México
Mensajes: 162
Antigüedad: 21 años Puntos: 0 | |
Cita: Sub Mirar(palabras As Variant)
SQLTmp = "SELECT tabla.campo3 FROM tabla WHERE campo1='palabras'"
Dim Db As Database 'Variable para las Bases de Datos
Dim Rs As New Recordset
Set Db = OpenDatabase("C:\data.mdb")
Set Rs = New Recordset
Rs.Open SqlTemp, Db, adOpenStatic, adLockOptimistic
On Error Resume Next
Db.Rs SQLTmp, dbFailOnError
MsgBox Rs(0)
If Err Then
MsgBox "Se ha producido un error al ejecutar la orden:" & vbCrLf & SQLTmp
End If
Db.Close
End Sub Error de compilacion, no se encontro el método o miembro de datos
__________________
Un saludo, MeXiCaN :golpeado: :adios:
Poco es tanto, cuando poco necesitas. E.Bunbury
Siempre que haya una causa noble por la que luchar, siempre habrá ladrones que la apoyarán. |