Conexión de base de datos con página web
Deseo poder visualizar tablas de una base de datos en una página web. Soy principiante y me gustaría que me orientaran sobre la manera de hacerlo. Lo que necesito es poder visualizar en un página la información contenida en un tabla de mi bd. Ojaa y puedan aconsejarme, sin más por el momento, quedo a sus ordenes.
Respuesta de jmrtv
1
Si la base de datos es access tienes que poner lo siguiente.
Dim Conn,SQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nombre de la base.mdb"))
Luego haces la consulta
SQL = "SELECT * FROM sistema"
Set objRS = oConn.Execute(SQL)
ya tenes el recordset cargado luego lo agregas en la HTML.
ASi.
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Id_Sistema</TD>
<TD> Nombre </TD>
</TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("id_sistema") & "</td><td> " & objRS("desc_trabajo") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
Dim Conn,SQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nombre de la base.mdb"))
Luego haces la consulta
SQL = "SELECT * FROM sistema"
Set objRS = oConn.Execute(SQL)
ya tenes el recordset cargado luego lo agregas en la HTML.
ASi.
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Id_Sistema</TD>
<TD> Nombre </TD>
</TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("id_sistema") & "</td><td> " & objRS("desc_trabajo") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
