26/05/2004, 08:42
|
| | | Fecha de Ingreso: mayo-2004
Mensajes: 86
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| Aqui tienes un ejemplillo, pero debes meter en las referencias el Microsoft ActiveX Data Objects 2.x
Dim cn = New ADODB.Connection
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Base_Datos.mdb;Persist Security Info=False"
With cn
.ConnectionString = Conexion
.Open
End With
sql = "INSERT INTO tabla(campo1,campo2...) VALUES (valor1,valor2...)"
Dim rs as New ADODB.RecordSet
rs.open sql, cn
Espero que esto fuera lo que pedias
__________________
Alguien sabe como es? |