15/05/2005, 15:32
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 98
Antigüedad: 19 años, 11 meses Puntos: 0 | |
 La conexion
'Creas los objetos
Dim conn, RS
'Defines los objetos
Set conn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
'Estableces la conexion
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("bd/icsme.mdb")&";Persist Security Info=False;Jet OLEDB:Database Password=icsme;"
'Enviamos los resultado al Recorset
RS.Open "agenda", conn, 1 |