¿Cómo hago una conexión desde asp con una base de datos sql server 7 por medio de ADO?
Hola amigo, te escribo para ver si me puedes a ayudar a hacer una conexión desde asp con una base de datos sql server 7 por medio de ADO, quiero ver si me puedes enviar el código, y si puedes me lo explicas por favor, porque en internet he encontrado pero no explican paso a paso el código.
Espero tu respuesta impacientemente.
Saludos
Espero tu respuesta impacientemente.
Saludos
1 respuesta
Respuesta de arunchi
1
Espero que te sirva:
<%
'OBLIGO A DEFINIR LAS VARIABLES ANTES DE USARLAS
Option Explicit
'CREO LA CONEXION Y LA ABRO
Dim oConnection
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BDQueTeInteresa;Data Source=ServidorSQL"
'CREO EL RECORDSET Y LO CARGO
Dim oRecordset
'Set oRecordset = Server.CreateObject("ADODB.Recordset") EN ESTE CASO ESTO NO ES NECESARIO
Set oRecordset = oConnection.Execute("SELECT * FROM PMTMCTRY")
'RECORRO EL RECORDSET MIENTRAS NO SE ACABE E IMPRIMO EL PRIMER CAMPO
While Not oRecordset.EOF
Response.Write(oRecordset.Fields(1).value)
'ME MUEVO AL SIGUIENTE
oRecordset.MoveNext
Wend
'DESTRUYO EL RECORDSET
oRecordset.Close
Set oRecordset = Nothing
'DESTRUYO LA CONEXION
oConnection.Close
Set oConnection = Nothing
%>
<%
'OBLIGO A DEFINIR LAS VARIABLES ANTES DE USARLAS
Option Explicit
'CREO LA CONEXION Y LA ABRO
Dim oConnection
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BDQueTeInteresa;Data Source=ServidorSQL"
'CREO EL RECORDSET Y LO CARGO
Dim oRecordset
'Set oRecordset = Server.CreateObject("ADODB.Recordset") EN ESTE CASO ESTO NO ES NECESARIO
Set oRecordset = oConnection.Execute("SELECT * FROM PMTMCTRY")
'RECORRO EL RECORDSET MIENTRAS NO SE ACABE E IMPRIMO EL PRIMER CAMPO
While Not oRecordset.EOF
Response.Write(oRecordset.Fields(1).value)
'ME MUEVO AL SIGUIENTE
oRecordset.MoveNext
Wend
'DESTRUYO EL RECORDSET
oRecordset.Close
Set oRecordset = Nothing
'DESTRUYO LA CONEXION
oConnection.Close
Set oConnection = Nothing
%>
