DHTML Y Bases de datos Con Visual Basic

Necesito un ejemplo de una coneccion remota a una base de datos pero que funcine, indicando paso a paso como se conecta ,o tambien puede ser con un Ado control , Lo unico que nesecito es saber como conectarme a una base de datos desde una pagina web a traves de Vusual Basic

1 respuesta

Respuesta
1
Aqui tienes un ejemplo en VBScript donde se ve como usar los métodos Open y Close en los objetos Recordset y Connection que se han abierto
Esta sacado de la ayuda de ADO, y es bastante ilustrativo. Espero que te aclare.
Un saludo.
<!-- #Include file="ADOVBS.INC" -->
<HTML><HEAD>
<TITLE>Método Open de ADO</TITLE>
</HEAD><BODY>
<FONT FACE="MS SANS SERIF" SIZE=2>
<Center><H3>Método Open de ADO</H3>
<TABLE WIDTH=600 BORDER=0>
<TD VALIGN=TOP ALIGN=LEFT COLSPAN=3><FONT SIZE=2>
<!--- Objeto Connection de ADO utilizado para crear 2 objetos Recordset-->
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "AdvWorks"
SQLQuery = "SELECT * FROM Clientes"
' Primer Recordset RSCustomerList.
Set RSCustomerList = OBJdbConnection.Execute(SQLQuery)
' Segundo Recordset RsProductist.
Set RsProductList = Server.CreateObject("ADODB.Recordset")
RsProductList.CursorType = adOpenDynamic
RsProductList.LockType = adLockOptimistic
RsProductList.Open "Productos", OBJdbConnection
%>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>
<!-BEGIN fila de título de columna para la tabla Cliente-->
<TR><TD ALIGN=CENTER BGCOLOR="#008080">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Nombre de la compañía</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#008080">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Nombre de contacto</FONT></TD>
<TD ALIGN=CENTER WIDTH=150 BGCOLOR="#008080">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Dirección de correo electrónico</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#008080">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Ciudad</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#008080">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Estado o provincia</FONT></TD></TR>
<!-Muestra datos ADO de la tabla Cliente-->
<% Do While Not RScustomerList.EOF %>
<TR><TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RSCustomerList("NombreCompañía")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RScustomerList("ApellidoContacto") & ", " %>
<%= RScustomerList("NombreContacto") %>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RScustomerList("ApellidoContacto")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RScustomerList("Ciudad")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RScustomerList("EstadoOProvincia")%>
</FONT></TD></TR>
<!-Siguiente fila = registra el bucle y agrega a la tabla html-->
<%
RScustomerList.MoveNext
Loop
RScustomerList.Close
OBJdbConnection.Close
%>
</TABLE>
<HR>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>
<!-BEGIN fila de título de columna para la tabla Lista de productos-->
<TR><TD ALIGN=CENTER BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Tipo de producto</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Nombre de producto</FONT></TD>
<TD ALIGN=CENTER WIDTH=350 BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Descripción del producto</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Precio de la unidad</FONT></TD></TR>
<!-- Mostrar la Lista de productos de datos ADO-->
<% Do While Not RsProductList.EOF %>
<TR> <TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RsProductList("TipoProducto")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RsProductList("NombreProducto")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RsProductList("DescripciónProducto")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= RsProductList("PrecioUnidad")%>
</FONT></TD>
<!-- Siguiente fila = registro -->
<%
RsProductList.MoveNext
Loop
' Elimina objetos al liberar memoria.
Set RsProductList = Nothing
Set OBJdbConnection = Nothing
%>
</TABLE></FONT></Center></BODY></HTML>

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Como hacer que un campo de fecha sea numero

Una pregunta tengo un problemita tengo un campo fecha que al exportarlo a excel la fecha de quedar como numero les doy el ejemplo para ver si es posible y como se hace mientras gracias por su atención aquí en ejemplo esta es la fecha que se escribe...
2 respuestas

¿Cómo se puede añadir subformularios a Access?

He creado a través del asistente de formularios de Access un formulario principal con dos subformularios, Pero requiero añadir más subformulario y el asistente no lo permite, he intentado añadirlo pero el problema es que no funcionan de la misma...
4 respuestas

Imprimir en varios formatos desde formularios en access 2021

Tengo una base de datos, en el formulario, he puesto un botón de imprimir, para imprimir el registro activo en el formulario, pero me lo imprime en el tamaño que se ve en la pantalla, que es mas o menos un Din A4, y quiero que se imprima en un Din...
2 respuestas

Como resolver conflicto de escritura en Access

Tengo un problema con una base de datos de Access que tengo con tablas vinculadas con post-gres y cuando intento insertar o modificar un dato, Access me muestra el error que aparece en la imagen. Pienso que será un terma de permisos, pero no estoy...
1 respuesta

Actualizar datos automáticamente al modificar un registro de un formulario access

Tengo un formulario principal con un subformulario ahí se registran datos... Y tengo otro formulario2 con subformulario qué ahí se anexan los datos mediante una consulta de anexar... Entonces lo que quiero es como hacer que al modificar un dato en el...
2 respuestas

Línea de subformulario en otro color

Me gastaría saber como puedo cambiar de color toda la línea de un subformulario cuando esta esta activa, ejemplo, al introducir un nuevo registro que toda la sea de color diferente.
3 respuestas

Establecer valor de un campo en otro

Necesito establecer el valor de un campo en un formulario1 (CAMPO A) en el CAMPO B de otro formulario2. La idea es que al abrir el formulario2 en el nuevo registro el CAMPO A tome el valor del CAMPOB y luego el cursor se mueva a un campo C para...
3 respuestas