16/01/2005, 05:50
|
| | | Fecha de Ingreso: enero-2005
Mensajes: 23
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| 'Declaramos las variables a utilizar
Dim strConexion As String
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DsPagaData as New DataSet
'Iniciamos el proceso de acceso a la fuente de datos
'Elimina el caracter _ si lo pones todo en una linea
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & _
server.MapPath("ddlBD.mdb")
DBConn = New OleDbConnection(strConexion)
'Elimina el caracter _ si lo pones todo en una linea
DBCommand = New OleDbDataAdapter("Select * From Departaments Order By _
DeptName",DBConn)
DBCommand.Fill= (DSPageData,"Departaments")
ddlDepartaments.DataSource= DSPageData
ddlDepartaments.DataBind()
DBConn.Close() |