[G] .Net y SQL. Problema con INSERT INTO

[daviel]

Hola a todos, tengo el siguiente problema al intentar realizar mi consulta:

No se controló OleDbException
Error de sintaxis en la instrucción INSERT INTO.

El codigo es el siguiente

Código: [Seleccionar]

Tabla.Clear()
SQL = "INSERT into Estado(id, estado, fecha, id_pareja) VALUE('4', '" & estadox & "', #" & CDate(fecha) & "#, '" & id_pareja & "')"
Cn.Ejecuta_Comando(SQL)
Dejo tambien donde declaro Ejecuta_Comando(parametro)

Código: [Seleccionar]

        Sub Ejecuta_Comando(ByVal SQL As String)
            Dim Comando As New OleDbCommand
            With Comando
                .Connection = Cn
                .CommandType = CommandType.Text
                .CommandText = SQL
                .ExecuteNonQuery()
            End With
            Comando = Nothing
        End Sub

Pd: el code donde declaro cn no lo pongo ya que me funciona perfectamente, es decir, puedo realizar consultas y devolver datos.

[ssccaann43]

En SQL esto no funciona #... Se sustituye por '...

Código: (vb) [Seleccionar]

SQL = "INSERT into Estado(id, estado, fecha, id_pareja) VALUE('4', '" & estadox & "', '" & CDate(fecha) & "', '" & id_pareja & "')"
Cn.Ejecuta_Comando(SQL)


[daviel]

pero es una fecha, no una string, o un integer.. tengo entendido que las fechas se utiliza # fecha #

ademas sin esto tampoco funciona. me sale el mismo error.

Pd:la base de datos es un archivo de acces( mdb)

[YAcosta]

pero es una fecha, no una string, o un integer.. tengo entendido que las fechas se utiliza # fecha #

ademas sin esto tampoco funciona. me sale el mismo error.

Pd:la base de datos es un archivo de acces( mdb)

Error 1: Al poncer CDate no estas mandando un string o un integer.
Error 2: No pongas el #
Error 3: Estas poniendo ' en el campo fecha con lo cual lo conviertes en string, es correcto lo que dice Miguel en poner comilla simple, yo lo hago, pero con Access no funca, debes enviarlo sin comilla, tu codigo debe ser:

Código: (vb) [Seleccionar]

SQL = "INSERT into Estado(id, estado, fecha, id_pareja) VALUE('4', '" & estadox & "', " & CDate(fecha) & ", '" & id_pareja & "')"
Cn.Ejecuta_Comando(SQL)

No te recalco sobre los demás campos como id, estado etc porque parecen campos numéricos pero tu los envías como string, es decir si en tu BD tienes el campo declarado como integer o double el id y id_pareja, entonces debes enviarlo así:

Código: (vb) [Seleccionar]

SQL = "INSERT into Estado(id, estado, fecha, id_pareja) VALUE(4, '" & estadox & "', " & CDate(fecha) & ", " & id_pareja & ")"
Cn.Ejecuta_Comando(SQL)

Espero te sirva

[daviel]

gracias por tu respuesta, cuando llegue a mi casa lo pruebo y te digo que tal.. Espero que funcione..

Me funciona a la perfeccion gracias amigo.

Pd: los datos en la bd los tengo como string menos el campo fecha, Saludos

Ahora el problema es otro.. cuando inserto datos en la bd pregunto si ya estan y en tal caso que los actualize, pero si no estan que los inserte. Pero siempre cuando los datos estan en la bd, el primer registro de actualizacion en la bd me trunca la fecha y la cambia a 00:45:01 (el formato es ese, los numeros son aleatorios, no siguen ningun patron), la sentencia que realiza esto es la siguiente:

Código: [Seleccionar]

        Function guardar(ByVal dia, ByVal estado, ByVal pareja_id, ByVal id)
            Tabla.Clear()
            SQL = "Select Max(id) As campo From " & _Tabla
            Tabla = Cn.Mostrar_Consulta(SQL, _Tabla)
            With Tabla.Rows(0)
                _Id = .Item("campo").ToString
            End With
            Dim ids As String = _Id
            Tabla.Clear()
            SQL = "Select * from " & _Tabla & " Where ( id = '" & id & "' )"
            Tabla = Cn.Mostrar_Consulta(SQL, _Tabla)
            MsgBox(Tabla.Rows.Count)
            If Tabla.Rows.Count = 0 Then
                SQL = "INSERT INTO " & _Tabla & " (id,estado,fecha,id_pareja) VALUES ('" & ids + 1 & "', '" & estado & "', #" & CDate(dia) & "#, '" & pareja_id & "')"
                Cn.Ejecuta_Comando(SQL)
            Else
                MsgBox(dia)
                SQL = "update " & _Tabla & " set estado = '" & estado & "', fecha = " & CDate(dia) & ", id_pareja = '" & pareja_id & "' Where ( id = '" & ids & "')"
                Cn.Ejecuta_Comando(SQL)
            End If
            Return True
        End Function
Inserte un MsgBox(dia) y me lo muestra perfect, pero lo inserta mal(siempre la primera insercion de update, el resto perfecto)