Problema al guardar en BDD en ADO

[MiguelFT]

Hola!, este es el codigo:

Declaracion:

Código:

 Public Conexion As New OleDbConnection
    Public CadenaConexion As String = "Provider = Microsoft.Jet.OLEDB.4.0; Password =; Data Source = Vives.mdb"
    Public CadenaInsertar As String = "INSERT INTO log VALUES (@Cuando,@Motivo)"

Asignacion:

Código:

Try
                        Conexion = New OleDbConnection(CadenaConexion)
                        Dim ComandoAgregar As New OleDbCommand(CadenaInsertar, Conexion)
                        ComandoAgregar.Parameters.AddWithValue("@Cuando", Date.Now)
                        ComandoAgregar.Parameters.AddWithValue("@Motivo", "Error de login")
                        Conexion.Open()
                        ComandoAgregar.ExecuteNonQuery()
                        ComandoAgregar.Cancel()
                        Conexion.Close()

                    Catch ex As Exception
                        'MsgBox("La fila no ha podido ser insertada en la tabla. ")
                        MsgBox(ex.Message)
                    End Try

Y me pone que no son las mismas las de entrada y salida... alguien ve algún fallo?

Gracias

[MiguelFT]

(He imporado:

Imports System.Data
Imports System.Data.OleDb

)

Saludos

[MiguelFT]

y al poner:

Public CadenaInsertar As String = "INSERT INTO log (Cuando,Motivo) VALUES (@Cuando,@Motivo)"

Pone que Cuando no esta bien escrito... ¬¬

[Teosanchez]

Si lo que quieres es insertar un registro en la tabla de Log, como creo entender.
En lugar de hacer

Public CadenaInsertar As String = "INSERT INTO log VALUES (@Cuando,@Motivo)"
y luego
ComandoAgregar.Parameters.AddWithValue("@Cuando", Date.Now)
ComandoAgregar.Parameters.AddWithValue("@Motivo", "Error de login")


Creo que sería suficiente con esto

Public CadenaInsertar As String = "INSERT INTO log VALUES ('" & Date.Now.ToString & "'," & "Error de Login)"

Luego ejecutas esa sentencia y listo.

Recomendación:
Utiliza el MS Data Application Block para todas tus operaciones de base de datos y que quitarás millones de problemas.
http://www.elguille.info/colabora/puntonet/hlcont_applicationblocks.htm

[osvier]

tu tabla log solo tiene los campos Cuando y Motivo?

si no es asi tendrías que poner tu insert de la forma:

INSERT INTO tabla (campo1,campo2,.. campoN) VALUES (value1,value2,...valueN)

ahora...

Iniciado por MiguelFT

y al poner:

Public CadenaInsertar As String = "INSERT INTO log (Cuando,Motivo) VALUES (@Cuando,@Motivo)"

Pone que Cuando no esta bien escrito... ¬¬

Creo que tu problema es, que log es una palabra clave de sql...

Para solucionarlo usa corchetes []:

Código SQL:

INSERT INTO [log] (Cuando,Motivo) VALUES (@Cuando,@Motivo)