13/08/2002, 11:55
|
| | | Fecha de Ingreso: agosto-2002
Mensajes: 14
Antigüedad: 22 años, 9 meses Puntos: 0 | |
| Re: Conexión a una base de datos con ASP
Hola Malex6!...gracias por contestar mi mensaje!!
Aqui esta el código del ASP
*****************************
<html>
<head>
<title></title>
</head>
<body>
<p>
<%
Dim cn 'Variable Connection
Dim rs 'Variable Recordset
Dim SQL 'Cadena SQL
'Query
SQL="select * from empresas where EmpCod='"
SQL=SQL & Request.Form("txtUsuario") & "'"
'crea el objeto connection
Set cn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
cn.ConnectionString = "DSN=Delta;User ID=cdgmain;Password=123"
'Abre la conexión a la bd
cn.open
Response.Write "Se abrió una conexión"
rs.ActiveConnection=cn
'Abrir un conjunto de registros
rs.open SQL
'Atravesar el conjunto de registros devueltos por la base de datos
While NOT rs.EOF
%>
<font face=arial color=blue size=3>
Cve Empresa:&nbsp;<%=rs("EmpCod")%> ;<br>
Empresa:&nbsp;<%=rs("EmpNom")%> ;
</font>
<hr>
<%
rs.MoveNext
Wend
'Cierra el recordset y la conexión
rs.Close
cn.Close
%>
</body>
</html>
************************
Delta es el nombre del ODBC al cual me quiero conectar, y según yo lo tengo bien en declarado como ODBC...el nombre del odbc al que si se conecta es cdgmain
Gracias por tu ayuda!
|