Mostrar / Altas (URGENTE)
Hola, necesito el código asp
para mostrar una base de datos de access y para introducir nuevos registros en la base de datos.
(Sin conexión dns)
URGEEENTEEE PORFAVOOOR
para mostrar una base de datos de access y para introducir nuevos registros en la base de datos.
(Sin conexión dns)
URGEEENTEEE PORFAVOOOR
en esta direccion hay un ejemplo que talvez te pueda ayudar
http://www.asptutor.com/asp/vart.asp?id=126
http://www.asptutor.com/asp/vart.asp?id=126
Hay una manera de hacerlo sin ODBC y sin DNS con formatos de Access 2000. Este código es algo básico, espero que sirva:
<%@ language = vbscript%>
<%
Dim Cn 'Variable que controla la Base de Datos
Dim Rs 'Variable recordset
Set Cn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
'Este segmento se hace como con Visual Basic
With Cn
.ConnectionString = "Ruta de la base de datos"
.Provider = "Microsft.Jet.OLEDB.4.0"
.Open 'Abre la base
End With
'En esta parte no recuerdo exactamente los valores,
'seria aconsejable investigarlos
With Rs
.ActiveConnection = Cn 'Variable de Base de Datos
.CursorLocation = ?? 'adUseClient o adUseServer
.CursorType = ?? 'adUseDynamic recomendado
.LockType = ?? 'adLockOptimistic recomendado
End With
'Esas constantes solo sirven si se tiene el archivo
'adovbs.inc, porque ahi estan declaradas, y cuyo valor
'numérico no recuerdo.
'Para seleccionar Tablas o Consultas con SQL se usa:
Rs.Source = "Consulta SQL"
'Por Último se abre el Recordset
Rs.Open
'Se puede usar filtros, etc
'Para cerrar la Base y el Recordset
Rs.Close
Cn.Close
'Para evitar gastar memoria del servidor, al final:
Set Rs = Nothing
Set Cn = Nothing
'para destruir esas varibles.
%>
Esta es una forma muy básica de accesar a la base de datos
sin usar ODBC.
<%@ language = vbscript%>
<%
Dim Cn 'Variable que controla la Base de Datos
Dim Rs 'Variable recordset
Set Cn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
'Este segmento se hace como con Visual Basic
With Cn
.ConnectionString = "Ruta de la base de datos"
.Provider = "Microsft.Jet.OLEDB.4.0"
.Open 'Abre la base
End With
'En esta parte no recuerdo exactamente los valores,
'seria aconsejable investigarlos
With Rs
.ActiveConnection = Cn 'Variable de Base de Datos
.CursorLocation = ?? 'adUseClient o adUseServer
.CursorType = ?? 'adUseDynamic recomendado
.LockType = ?? 'adLockOptimistic recomendado
End With
'Esas constantes solo sirven si se tiene el archivo
'adovbs.inc, porque ahi estan declaradas, y cuyo valor
'numérico no recuerdo.
'Para seleccionar Tablas o Consultas con SQL se usa:
Rs.Source = "Consulta SQL"
'Por Último se abre el Recordset
Rs.Open
'Se puede usar filtros, etc
'Para cerrar la Base y el Recordset
Rs.Close
Cn.Close
'Para evitar gastar memoria del servidor, al final:
Set Rs = Nothing
Set Cn = Nothing
'para destruir esas varibles.
%>
Esta es una forma muy básica de accesar a la base de datos
sin usar ODBC.