problemas con insert para access

[yumiles]

Hola alguien me puede decir que es lo que estoy haciendo mal aqui? el codigo no me guarda los registros
Gracias

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim conexion2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=inventarioXP.mdb"

Dim strSQL2 As String = "INSERT INTO prueba (id, nombre, apellido) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & ", '" & TextBox3.Text & "')"
Dim cmdinsert As New SqlClient.SqlCommand
cmdinsert.CommandText = strSQL2
cmdinsert.Connection = conexion
Try
If ((cmdinsert.ExecuteNonQuery()) <> 0) Then
MsgBox("Nuevo Registro", MsgBoxStyle.OkOnly, "HolA")
End If
Catch ex As Exception
MsgBox("No se pudo insertar")
End Try


End Sub

[ValentinoMolinari]

mmmmmmm la verdad no trabajo de esa manera, prueba lo siguiente:
StrSql = "Insert Into TabPrueba(Nombre,Telefono) Values('" & trim(me.txtNombre) & "'," & val(me.txtTelefono) &") "

Comando.CommandType = adCmdText
Comando.CommandText = STRSQL
Comando.Execute


aqui esta el módulo donde declaro las variables te lo copio entero

Option Explicit
Public TipoMov As Integer
Public Operador As String
Public cn As ADODB.Connection
Public Comando As ADODB.Command
Public StrAux As String
Public gTitulo As String
''creo variable para consulta
Public STRSQL As String
''creo variable para update
Public StrUpdate As String
''creo variable para insert
Public strInsert As String
Public Record As ADODB.Recordset
Public rs As ADODB.Recordset
Public FncAux As ADODB.Recordset
'Public fMainForm As MDIForm1
'Private LCID As Long ' LCID del idioma actual
'Global lbl As String
'Public strserver As String
Public ConData As String

Public strcn As String


Public Sub main()

strcn = App.Path & "\jm.mdb"
On Error GoTo ErrAbr


Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"

Set Comando = New ADODB.Command
Comando.ActiveConnection = cn

Set FncAux = New ADODB.Recordset ' Solo para funciones

ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
FrmSeguridad.Show' Aca llamas al Formulario Principal de Tu Aplicación
End Sub


esto esta declarado a nivel módulo, y eso debes configurar el visual con Microsof DataObjects 2.1 o 2.6 que se encuentra en las referencias, si no entiendes algo me lo preguntas
valentino_m_2@hot...

[Avellaneda]

Iniciado por yumiles

Hola alguien me puede decir que es lo que estoy haciendo mal aqui? el codigo no me guarda los registros
Gracias

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim conexion2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=inventarioXP.mdb"

Dim strSQL2 As String = "INSERT INTO prueba (id, nombre, apellido) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & ", '" & TextBox3.Text & "')"
Dim cmdinsert As New SqlClient.SqlCommand
cmdinsert.CommandText = strSQL2
cmdinsert.Connection = conexion
Try
If ((cmdinsert.ExecuteNonQuery()) <> 0) Then
MsgBox("Nuevo Registro", MsgBoxStyle.OkOnly, "HolA")
End If
Catch ex As Exception
MsgBox("No se pudo insertar")
End Try


End Sub

Yo creo que es porque te falta una comilla simple en la consulta:

"INSERT INTO prueba (id, nombre, apellido) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')"

Si no fuera eso (por un error de transcripción), comenta el Try-End Try y mira en qué línea dá error.

[yumiles]

Hola Valentino
Mira.... La verdad es que yo no se nada de vb
Es la primera vez que trabajo con este y pues ando mas perdido que un pueblerino en el df jajajaja
El modulo que me enviaste tiene la propiedad public, supongo que es por que es un modulo para uso de otras funciones, por lo que en su lugar las declare como variables (Dim), pero me marca error en el ADODB, pues me dice que no esta definido.
Me ´podrias explicar mas detalladamente por que?
Si no es mucha molestia?
Gracias de antemano

[yumiles]

Hola Avellaneda.
Gracias por tu ayuda.
Ya puse la comilla simple pero no hace nada jejeje
El error me lo manda en......

[Avellaneda]

Iniciado por yumiles

Hola Avellaneda.
Gracias por tu ayuda.
Ya puse la comilla simple pero no hace nada jejeje
El error me lo manda en......

Hola!

El error me lo manda en <puntos suspensivos>

Pues nos hemos quedado como estábamos.