Cita:
Iniciado por NARDYSS Hola que tal, soy nuevamente NARDYS, lo que pasa es que estuve investigando y encontre la forma de llamar una base de datos mediante DAO.
Me fuciona bien si no utilizo un WHERE pero lo necesito ya que solamente quiero mandar llamar un registro determinado, pero me marca error.
El codigo es el siguiente:
Option Explicit
Dim BD As DAO.Database
Dim RS As DAO.Recordset
Private Sub Form_Load()
Dim tFolio As Integer
tFolio = frmReportes.Foli
Set BD = OpenDatabase("C:\Mis documentos\Sistema Viaticos\Viaticos.mdb")
Set RS = BD.OpenRecordset("Select * from Viat where (Viat.Folio = '" & tFolio & "')", dbOpenDynaset, dbOptimistic)
Llenar
etiqueta.Caption = frmReportes.Foli
End Sub
------
Me marca error con el WHERE, el error es el siguiente:
Data type mismatch in criteria expresion
Espero que puedan ayudarme, me es muy muy URGENTE!!!
Gracias
Espera...
estas diciendo que tFolio es integer entonces la consulta deberia ser asi... (tFolio sin comillas, porque lo esta tomando como si fuera string)
"Select * from Viat where Viat.Folio =" & tFolio