Morpheusweb.it - Risorse per webmaster: script, ASP.NET, C#, Visual Basic .Net, tutorial, asp, javascript, css, php, html, java, ADO, VBScript, forms, frames, Active Server Pages, Dynamic HTML, database, gratis per webmaster e webdesigner

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


 


Page top

risorse per webmaster