Error en el Update

[spiderman78]

Que tal como estan aqui consultando un error haber si me pueden ayudar, el error me lo marca al momento de hacer un update, mi codigo es el siguiente

Código:

Private Sub agendaagregar0()
    If Text2(400).Text = "" Then
        Exit Sub
    Else
    If Text12.Text = "" Then
        Call VisualizarAgendaa
     Set RecSQL = New ADODB.Recordset
         RecSQL.Open "INSERT INTO agendapacientes (fechaa,fechab,fecha,control,fecha1,hora,idpaciente,nombre,pago)" & _
         "VALUES (" & Text0(1) & ",'" & Text7 & "','" & Text1(0) & "','" & Text10(0) & "','" & Text2(200) & "','" & Text3(0) & "','" & Text2(400) & "','" & Combo3 & "','" & Text2(500) & "')", BD, adOpenStatic, adLockOptimistic
     Set RecSQL = Nothing
     Else
        Call VisualizarAgendaa
        BD.Execute "UPDATE agendapacientes SET fechaa='" & Text0(1) & "', fechab='" & Text7 & "',fecha='" & Text1(0) & _
        "' ,fecha1='" & Text2(200) & "',control='" & Text12 & "',hora='" & Text3(0) & "',idpaciente='" & Text2(400) & "',paciente='" & Combo3 & "',pago='" & Text2(500) & "' Where control = " & Text12-----------------------------------------------------------------en toda la instruccion me marca el error
     Set RecSQL = Nothing
    End If
    End If
End Sub

y me marca el siguiente error

[MySQL][ODBC 3.51 Driver][mysqld-4.0.11-gamma-nt]Unknown
column '07112008A1' in 'where clause'

'07112008A1'----esta parte que me marca el error es un campo que ocupo para hacer la consulta no se si vaya por ahi el problema.

Lo curioso es q si me guarda los cambios que le hice al registro

Saludos y garcias por sus respuestas

[David]

¿control es un campo de qué tipo?. Porque en el SET le colocas comillas simples mientras que no las colocas en la cláusula WHERE, si es un campo texto deberían ir las comillas simples también en la cláusula WHERE.

[Avellaneda]

Iniciado por spiderman78

Que tal como estan aqui consultando un error haber si me pueden ayudar, el error me lo marca al momento de hacer un update, mi codigo es el siguiente

Código:

Private Sub agendaagregar0()
    If Text2(400).Text = "" Then
        Exit Sub
    Else
    If Text12.Text = "" Then
        Call VisualizarAgendaa
     Set RecSQL = New ADODB.Recordset
         RecSQL.Open "INSERT INTO agendapacientes (fechaa,fechab,fecha,control,fecha1,hora,idpaciente,nombre,pago)" & _
         "VALUES (" & Text0(1) & ",'" & Text7 & "','" & Text1(0) & "','" & Text10(0) & "','" & Text2(200) & "','" & Text3(0) & "','" & Text2(400) & "','" & Combo3 & "','" & Text2(500) & "')", BD, adOpenStatic, adLockOptimistic
     Set RecSQL = Nothing
     Else
        Call VisualizarAgendaa
        BD.Execute "UPDATE agendapacientes SET fechaa='" & Text0(1) & "', fechab='" & Text7 & "',fecha='" & Text1(0) & _
        "' ,fecha1='" & Text2(200) & "',control='" & Text12 & "',hora='" & Text3(0) & "',idpaciente='" & Text2(400) & "',paciente='" & Combo3 & "',pago='" & Text2(500) & "' Where control = " & Text12-----------------------------------------------------------------en toda la instruccion me marca el error
     Set RecSQL = Nothing
    End If
    End If
End Sub

y me marca el siguiente error

[MySQL][ODBC 3.51 Driver][mysqld-4.0.11-gamma-nt]Unknown
column '07112008A1' in 'where clause'

'07112008A1'----esta parte que me marca el error es un campo que ocupo para hacer la consulta no se si vaya por ahi el problema.

Lo curioso es q si me guarda los cambios que le hice al registro

Saludos y garcias por sus respuestas

Hola, lo que te dice David el Grande es correcto; debes encerrar la variable entre comillas:

Where control = '" & Text12 & "'"

y otra cosa que debes tener en cuenta es que en MySQL el formato de fecha es 'yyyyMMdd' :

SET fechaa='" & Format(Text0(1), "yyyyMMdd") & ... y así con todos los campos tipo DATETIME.

[spiderman78]

Gracias a ambos efectivamente mi error eran las comillas simples que no estaba poniendo , y ya funciono perfectamente bien


Saludos