insercion sql desde visual basic 6

[atsoca_ragde]

hola a todos...estoy programando un sistemita con vb6 y sql 2005 express, de altas bajas y consultas, pero despues de tanto buscar no he podido dar con el error en mi codigo, ojala alguien me pueda ayudar,se los agradezco de antemano y les anexo mi codigo para que lo chequen, por si algo me anda fallando.

saludos...

Option Explicit
Public con As ADODB.Connection
Public com As ADODB.Command
Public rst As ADODB.Recordset

Public nombre As String
Public clave As Integer
Public existencia As Integer

Private Sub cmdInsertar_Click()

clave = Val(txtClave.Text)
nombre = txtNombre.Text
existencia = Val(txtExistencia.Text)

Set con = New ADODB.Connection
con.Open "Provider= SQLOLEDB; Initial Catalog= multiservicios;Data Source= LAPTOP-ACER\SQLEXPRESS; integrated security=SSPI; persist security info= true;"

Set com = New ADODB.Command
com.ActiveConnection = con
com.CommandText = "insert into herramientas (idHerramienta,descripcion,existencia)values (2,'nombre',3)"
con.Close

End Sub

[T3rryMan]

Iniciado por atsoca_ragde

hola a todos...estoy programando un sistemita con vb6 y sql 2005 express, de altas bajas y consultas, pero despues de tanto buscar no he podido dar con el error en mi codigo, ojala alguien me pueda ayudar,se los agradezco de antemano y les anexo mi codigo para que lo chequen, por si algo me anda fallando.

saludos...

Option Explicit
Public con As ADODB.Connection
Public com As ADODB.Command
Public rst As ADODB.Recordset

Public nombre As String
Public clave As Integer
Public existencia As Integer

Private Sub cmdInsertar_Click()

clave = Val(txtClave.Text)
nombre = txtNombre.Text
existencia = Val(txtExistencia.Text)

Set con = New ADODB.Connection
con.Open "Provider= SQLOLEDB; Initial Catalog= multiservicios;Data Source= LAPTOP-ACER\SQLEXPRESS; integrated security=SSPI; persist security info= true;"

Set com = New ADODB.Command
com.ActiveConnection = con
com.CommandText = "insert into herramientas (idHerramienta,descripcion,existencia)values (2,'nombre',3)"
con.Close

End Sub

hola parece que tu codigo esta bien

haber si pruebas esto enviando tu cadena sql directo desde tu objecto connecion

Código vb:

Option Explicit
Public con As ADODB.Connection
 
Public nombre As String
Public clave As Integer
Public existencia As Integer
 
Private Sub cmdInsertar_Click()
    
    nombre = txtNombre.Text
    
    Set con = New ADODB.Connection
    con.Open "Provider= SQLOLEDB; Initial Catalog= multiservicios;Data Source= LAPTOP-ACER\SQLEXPRESS; integrated security=SSPI; persist security info= true;"
    
con.execute   "insert into herramientas (idHerramienta,descripcion,existencia)values (2,'" & trim(nombre) & "',3)"
    
End Sub
 

Ah otro punto espero hallas habilitado las referencias menu proyecto\ referencias
microsoft activeX data object 2.xxxx segun el q utilices.

www.bitxense.com.pe | Soluciones Informaticas S.A.C. - [email protected]
Cualquier duda soy Jhon Bautista Palomino aqui esta mi correo MSN [email protected] Lima-Peru

[atsoca_ragde]

hola ketal por fin kedo la insercion....mi codigo me quedo asi...

Option Explicit
Public con As ADODB.Connection
Public com As ADODB.Command
Public nombre As String
Public cve As Integer

Private Sub cmdInsertar_Click()

Set con = New ADODB.Connection
con.Open "Provider= SQLOLEDB; Initial Catalog= multiservicios;Data Source= LAPTOP-ACER\SQLEXPRESS; integrated security=SSPI; persist security info= true;"

Set com = New ADODB.Command
com.CommandText = "insert into herramientas (idHerramienta,descripcion,existencia)values (" & txtClave.Text & " ," & txtNombre.Text & "," & nombre & ")"
com.ActiveConnection = con
com.Execute

con.Close

End Sub

solo una cosilla ke no he podido insertar el valor del textbox nombre a la tabla, me aparece el error: EL NOMBRE "VALOR DEL TEXTBOX NOMBRE" no es valido en este contexto. las expresiones validas son constantes,expresiones de constantes,y en algunos casos contextos,variables. no se permiten nombres de columna.

por cierto la columna a donde quiero insertar este valor es de tipo varchar.

gracias por su ayuda.....