Cris
23 de Marzo del 2004

quiero grabar, eliminar registros de un formulario a una tabla que este conectada a ADodc

Fredy
23 de Marzo del 2004

primero que todo tienes que declar las siguientes variable
Public cn_coneccion As ADODB.Connection
Public rs_recordset As ADODB.Recordset
public str_crit as string
Despues hacer la siguiente coneccion, puede se en el modulo principal
Cn_conneccion.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:/ruta base de datos;Persist Security Info=False;Jet OLEDB:Database Password=" & contraseña base de datos; si es acces y si es sql server entonces es la siguiente

Set cn_alad = New Connection
cn_alad.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=basededatos;Data Source=nombredelservidor"

despues en un objeto por ejemplo un command en el evento click
str_crit = "insert into tabla (campo1, campo2) values ('" & campo1 & "','" & campo2 & "')
o puedes hacer un update o un select etc.

depues mandas el siguiente procedimiento
Public Sub lp_aladino()
Set rs_recordset = New ADODB.Recordset
With rs_recordset
.Source = str_crit
.ActiveConnection = cn_conneccion
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
rs_recordset .Open Options:=adCmdText
End Sub
y listo
si quiere recuperrar campos por si isiste un select es asi
campo1 = rs_recorset.fields("campo1").values

espero te sirva, me puedes contactar en mi coorreo [email protected]