Insertar registro SQL desde VB6

[DJ_MXB]

saludos,

soy novato y apenas estoy aprendiendo a usar vb6 y sql

lo que quiero hacer es agregar le un registro a una tabla que tengo en una base de datos sql

tengo esto
Dim cn As New ADODB.Connection

cn.ConnectionString = "DRIVER=SQL Server;SERVER=(local);DATABASE=caspro"

cn.Open


al correrlo no me da problemas, si se que se agregan registros con el insert into, pero no se como mandarselo a sql, alguien me podria dar un ejemplo ???


saludos, y de antemano gracias por su ayuda y comprension

[biffly]

proba con esto:

SQL = "INSERT INTO tabla (columna1,columna2,columna3) VALUES ('valor1','valor2','valor3')
CN.Execute SQL

y si no funciona es probable que no este seteados los permisos en tu db, fijate haciendo doble click soble la tabla en el administrador corporativo, que te aparece una ventana con las propiedades de la tabla, hay un boton que dice PERMISOS, revisalos.

Saludos:D

[DJ_MXB]

me funciono a la perfeccion, gracias por tu ayuda biffly

me surgio otra duda, como creo un recordset???


por decir me imagino que seria asi

cn.execute "SELECT * FROM Productos"

pero como acceso ese recordset desde visual???

[biffly]

tenes que crear un recorset ej:
dim rsTmp As New Recordset

si vas a rellenar un listview con los datos podes hacer asi:
sql="select * from tabla"
rsTmp.Open SQL, Cn
Do While Not rsTmp.EOF
Set ITEMX = ListView1.ListItems.Add(, , rsTmp.Fields("columna1"))
ITEMX.SubItems(1) = rsTmp.Fields("columna2")
ITEMX.SubItems(2) = rsTmp.Fields("columna2")
rsTmp.MoveNext
Loop
rsTmp.Close

recorda que tenes que configurar las propiedades de tu listview