Consulta .. ERROR FROM..
Publicado por Marcos V. (9 intervenciones) el 11/12/2003 23:51:32
Saludos...
tengo el siguiente codigo:
Private Sub cmdQuery_Click()
MousePointer = vbHourglass
Dim sqlstring As String, sqlwhat As String, sqlwhere As String
Dim bnombre As Boolean
Dim irecords As Integer
sqlwhat = "SELECT * FROM CONTACTOS"
bnombre = IIf(txtnombre <> "", True, False)
If bnombre Then
sqlwhere = "where Nombre = '" & txtnombre & "'"
End If
sqlstring = sqlwhat & sqlwhere
dtaquery.RecordSource = sqlstring
dtaquery.Refresh
irecords = dtaquery.Recordset.RecordCount
dbquerygrid.Caption = CStr(irecords) & "Se encontraron los registros"
End Sub
en este formulario tengo un datagrid el cual esta enlazado a una base de datos por medio de el objeto ADODC y cuando hago la consulta sale un error de syntaxis en el valor de la clausula FROM
gracias...
Marcos
tengo el siguiente codigo:
Private Sub cmdQuery_Click()
MousePointer = vbHourglass
Dim sqlstring As String, sqlwhat As String, sqlwhere As String
Dim bnombre As Boolean
Dim irecords As Integer
sqlwhat = "SELECT * FROM CONTACTOS"
bnombre = IIf(txtnombre <> "", True, False)
If bnombre Then
sqlwhere = "where Nombre = '" & txtnombre & "'"
End If
sqlstring = sqlwhat & sqlwhere
dtaquery.RecordSource = sqlstring
dtaquery.Refresh
irecords = dtaquery.Recordset.RecordCount
dbquerygrid.Caption = CStr(irecords) & "Se encontraron los registros"
End Sub
en este formulario tengo un datagrid el cual esta enlazado a una base de datos por medio de el objeto ADODC y cuando hago la consulta sale un error de syntaxis en el valor de la clausula FROM
gracias...
Marcos
Valora esta pregunta


0