| Usuario |
Consultas Sql ¡¡ AYUDA !! |
Desconocido
|
| Enviado - 27/7/2004 |
| |
Tengo un problema con el siguiente codigo. intento ejecutar una consulta Sql a traves de visual. Me gustaria que me dijerais si veis algun error
Me sale un error "No Coinciden Los Tipos"
Option Explicit
Dim BaseDatos As Database
Dim Rs As Recordset
Dim Ruta, SQL As String
Private Sub Form_Load()
Ruta = "S:\Facturacion\vb_ConsultaPorLetras\bd1.mdb"
Set BaseDatos = OpenDatabase(Ruta)
SQL = "SELECT * FROM tabla1"
'SEGUN VISUAL ERROR AQUI ->
Set Rs = BaseDatos.OpenRecordset(SQL, dbOpenDynaset)
End Sub
|
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 29/7/2004 |
| |
EL error no está en la sentencia SQL. Fijate en las referencias que sean las correctas (en este caso estás usando DAO, fijate que no haya ninguna a ADO ya que ésta también tiene una clase Recordset y te va a dar problemas, a mennos que en la declaracion especifiques la libreria, por ej Dim Rs As DAO.Recordset)
Otra cosa que te recomiendo es que declares los tipos de todas las variables, en tu ejemplo Ruta está como Variant ya que VB6 no toma las dos como string. Tendría que quedar Dim Ruta As String, SQL As String.
Saludos |
| |
|
|
|
