Como buscar un registro
Publicado por JUAN GONZALEZ ALCAYAGA (4 intervenciones) el 30/03/2004 21:27:55
Mi pregunta es la siguiente: por que me arroja el siguiente error "El motor de base datos Microsoft Jet no reconoce 'Chile' como un Nombre de campo o expresion validos".
La version del Visual Basic es 6.0 en Windows 2000, la base datos la cree con el complemento "Administrador de Visual Datos (Visdata) que trae el lenguaje.
y mi codigo es el siguiente :
Private Sub Menu0202_Click(Index As Integer)
Dim dbsRealdatos As Database
Dim rstProveedores As Recordset
Dim PaisProv As String
Set dbsRealdatos = OpenDatabase("G:\Desarrollo\Proyectos\Datos\Empresa\realdatos.mdb")
Set rstProveedores = dbsRealdatos.OpenRecordset("Select RutProveedor, RazonSocialProveedor, PaisProveedor" & " From Proveedor ORDER BY RutProveedor", dbOpenSnapshot)
PaisProv = "Chile"
' Trim (InputBox("introdusca el pais a Buscar"))
With rstProveedores
.MoveLast
.FindFirst PaisProv
If .NoMatch Then
MsgBox "NO ENCONTRO"
Exit Sub
End If
End With
rstProveedores.Close
dbsRealdatos.Close
End Sub
QUE ME FALTA?
Atte.,
Juan Gonzalez Alcayaga
Antofagasta,
La version del Visual Basic es 6.0 en Windows 2000, la base datos la cree con el complemento "Administrador de Visual Datos (Visdata) que trae el lenguaje.
y mi codigo es el siguiente :
Private Sub Menu0202_Click(Index As Integer)
Dim dbsRealdatos As Database
Dim rstProveedores As Recordset
Dim PaisProv As String
Set dbsRealdatos = OpenDatabase("G:\Desarrollo\Proyectos\Datos\Empresa\realdatos.mdb")
Set rstProveedores = dbsRealdatos.OpenRecordset("Select RutProveedor, RazonSocialProveedor, PaisProveedor" & " From Proveedor ORDER BY RutProveedor", dbOpenSnapshot)
PaisProv = "Chile"
' Trim (InputBox("introdusca el pais a Buscar"))
With rstProveedores
.MoveLast
.FindFirst PaisProv
If .NoMatch Then
MsgBox "NO ENCONTRO"
Exit Sub
End If
End With
rstProveedores.Close
dbsRealdatos.Close
End Sub
QUE ME FALTA?
Atte.,
Juan Gonzalez Alcayaga
Antofagasta,
Valora esta pregunta


0