A ver si ahora si se entiende!!!
Publicado por Papo (128 intervenciones) el 14/05/2007 18:34:08
Estoy manejando VB6 y las bases de datos de Access de Office 2003, aunque convierto la BD a Access de Office 97 tengo problemas con los querys que realizo desde el codigo de VB6, alguien sabe si esto es ocacionado por la version del Access.
Lo que esta pasando es que cuando tomo un dato desde otra tabla con un combobox llamando el dato desde las propiedades RowSource y ListField o meto de manera automatica la fecha del sistema para colocarlo en un TextBox, esto cuando ya oprimi un boton con la propiedad AddNew, a la hora de actualizar la tabla donde capturo los nuevos datos no hace la actualizacion y menos si hago referencia a la tabla por medio de un Query que incluye los campos que habia mandado llamar de otra tabla por medio del ComboBox y la fecha del sistema que ya habia comentado.
Este es el codigo...
Private Sub Command1_Click()
Dim strSQLMes As String
Dim strSQLUsuario As String
Dim strConfirma As String
If optImprimirMes.Value = True Then
mensaje$ = "Introdusca el mes que desea imprimir"
strConfirma = InputBox(mensaje$, "Buscar por Mes")
strSQLMes = "SELECT * FROM REQUISICION WHERE MES = " & strConfirma
adoPasoRequis.RecordSource = strSQLMes
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
'Unload frmImprimir
End If
If optImprimirUsuario.Value = True Then
mensaje$ = "Introdusca el usuario que desea consultar"
strConfirma = InputBox(mensaje$, "Buscar por Usuario")
strSQLUsuario = "SELECT * FROM REQUISICION WHERE USUARIO = " & strConfirma
adoPasoRequis.RecordSource = strSQLUsuario
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
'Unload frmImprimir
End If
End Sub
Y el mensaje que me aparece dice "Pocos parametros. Se esperaba 1" y esto es a la hora de tratar de hacer el refresh a la tabla donde deben quedar los datos del query.
Hay un detalle extraño, si cambio el campo a otro que es numerico, en el ImputBox obvio introdusco numeros y solo asi funciona el Query lo contrario que con strigs.
Gracias y saludos...
Lo que esta pasando es que cuando tomo un dato desde otra tabla con un combobox llamando el dato desde las propiedades RowSource y ListField o meto de manera automatica la fecha del sistema para colocarlo en un TextBox, esto cuando ya oprimi un boton con la propiedad AddNew, a la hora de actualizar la tabla donde capturo los nuevos datos no hace la actualizacion y menos si hago referencia a la tabla por medio de un Query que incluye los campos que habia mandado llamar de otra tabla por medio del ComboBox y la fecha del sistema que ya habia comentado.
Este es el codigo...
Private Sub Command1_Click()
Dim strSQLMes As String
Dim strSQLUsuario As String
Dim strConfirma As String
If optImprimirMes.Value = True Then
mensaje$ = "Introdusca el mes que desea imprimir"
strConfirma = InputBox(mensaje$, "Buscar por Mes")
strSQLMes = "SELECT * FROM REQUISICION WHERE MES = " & strConfirma
adoPasoRequis.RecordSource = strSQLMes
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
'Unload frmImprimir
End If
If optImprimirUsuario.Value = True Then
mensaje$ = "Introdusca el usuario que desea consultar"
strConfirma = InputBox(mensaje$, "Buscar por Usuario")
strSQLUsuario = "SELECT * FROM REQUISICION WHERE USUARIO = " & strConfirma
adoPasoRequis.RecordSource = strSQLUsuario
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
'Unload frmImprimir
End If
End Sub
Y el mensaje que me aparece dice "Pocos parametros. Se esperaba 1" y esto es a la hora de tratar de hacer el refresh a la tabla donde deben quedar los datos del query.
Hay un detalle extraño, si cambio el campo a otro que es numerico, en el ImputBox obvio introdusco numeros y solo asi funciona el Query lo contrario que con strigs.
Gracias y saludos...
Valora esta pregunta


0