Connect to Access
<%@ Page language="VB" Debug="false" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dbConn As OleDbConnection
Dim myAdapter As OleDbDataAdapter
Dim sqlCmd As String
Dim strConn As String
Dim oDataSet As New DataSet
strConn = ""
strConn = strConn & "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & Server.MapPath("database/utenti.mdb") & ";"
strConn = strConn & "Persist Security Info=False"
sqlCmd = ""
sqlCmd = sqlCmd & "SELECT "
sqlCmd = sqlCmd & " nome, "
sqlCmd = sqlCmd & " cognome, "
sqlCmd = sqlCmd & " email "
sqlCmd = sqlCmd & " FROM utenti"
dbConn = New OleDbConnection(strConn)
myAdapter = New OleDbDataAdapter(sqlCmd, dbConn)
myAdapter.Fill(oDataSet, "utenti")
myDatagrid.DataSource = oDataSet.Tables("utenti").DefaultView
myDatagrid.DataBind()
End Sub
</script>
<html>
<body>
<asp:DataGrid id="myDatagrid" runat="server" />
</body>
</html>
Download Code...
Print Page