Cita:
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:
Ver originalOption 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