Anónimo
Consulta macros vb6
Hola expertos, tengo una consulta sobre como obtener un valor mediante un búsqueda a la base de datos pero no logro hacerla. Te dejo el código por el cual intentaba hacerlo y si tienes otra manera de hacerlo, es bienvenida la ayuda.
Private Sub CommandButton1_Click()
Dim SQLbus As String
Call IniciarConexionDBF
SQLbus = "SELECT ACT_COD FROM activida where ACT_PERIOD = 2006 AND ACT_TRIM = 1 AND EMP_RUC = 20510398158"
rs.Open SQLbus, cnn, adOpenStatic, adLockOptimistic
Call CargarFlex(flex)
Call Desconectar
MsgBox flex.Text
End Sub
Private Sub CommandButton1_Click()
Dim SQLbus As String
Call IniciarConexionDBF
SQLbus = "SELECT ACT_COD FROM activida where ACT_PERIOD = 2006 AND ACT_TRIM = 1 AND EMP_RUC = 20510398158"
rs.Open SQLbus, cnn, adOpenStatic, adLockOptimistic
Call CargarFlex(flex)
Call Desconectar
MsgBox flex.Text
End Sub
1 Respuesta
Respuesta de Roberto Alvarado
1
El error que me aparece es este.
Error -2147217913(80040e07
[Microsoft][Controlador ODBC dBase] No coinciden los tipos de datos en la expresión de criterios
Error -2147217913(80040e07
[Microsoft][Controlador ODBC dBase] No coinciden los tipos de datos en la expresión de criterios
El error de no coincidencia de tipos es por ejemplo que estas comparando en tu caso un numero cun letras de allí el error, verifica los tipos de datos de la condición y el valor con el cual lo comparas.