More Problems with mdb and aps.net, what I need is

konstantin

New Member
Hi all again,<BR>I had recently post a question about how to use the Acces mdb files in Asp.net, like the pathner Dhiraj told me I created an Access Data Base using Microsoft Access 2000, and I used his code on my Html editor (just copy and paste) then I put the file on the specified path and rename the code page to example.aspx for run it over a windows 2000 server (from the c:inetpubwwwroot) using Internet Explorer.<BR><BR>But it didn't work :-(( .<BR><BR>Could you please Dhiraj or somebody else post me a complete example of how to make querys to a Access database?<BR><BR>If I could run it once it would be enough to star to work in the good way.<BR><BR>Thanks for your time, and sorry for the possible gramatical english errors on this post.<BR><BR>From Spain.<BR>Salvador Gallego.Could you possibly elaborate on: "But it didn't work"<BR><BR>If we knew WHAT did not work or what the ERROR was, we can help you. Otherwise, we are just guessing.Here is a sample app that use a select query to get data from the source Access database, edit the dataset data and push it back to the Access database and add a record directly into the Access database. You can create the source Access database easily enough. Just create a database named Test, add a table named TestTable then add the following fields to the table:<BR><BR>rID (auto-numbered)<BR>rDate (Date/Time)<BR>rName (Text)<BR>rScore(Number)<BR><BR>You should populate the database with about ten records just so the datagrid has something to show when you start up.<BR><BR>Change the ConnectionString in the code to point to where ever you store the database and you should be set.<BR><BR>Here's the code.==========================================<BR><BR><%@ Page Language="VB" %><BR><%@ Import NameSpace="System.Data" %><BR><%@ Import NameSpace="System.Data.OleDb" %><BR><BR><SCRIPT RUNAT="SERVER"><BR><BR>'================================================= ===========<BR><BR>' EXAMPLE CODE FOR WORKING WITH DATA-BASE & DATA-SETS.<BR><BR>' BASIC CODE FOR OPENING A DATABASE.<BR>' CREATING AND LOADING DATAADAPTER FROM DATABASE.<BR>' CREATING A DATA-SET AND DATA-TABLE.<BR>' LOADING DATA-TABLE FROM THE DATA-ADAPTER.<BR>' MODIFYING DATA IN THE DATA-TABLE.<BR>' ADDING A ROW OF DATA TO THE DATA-TABLE.<BR>' ADDING AND SAVING DATA BACK TO THE DATA-BASE.<BR>' <BR><BR>' ================================================== =====<BR>' ===== ALL CODE EXECUTES FROM THE PAGE-LOAD EVENT. =====<BR><BR>sub Page_Load(obj as Object, e as EventArgs)<BR><BR>' CREATE OBJECTS, OPEN DB, LOAD DATASET, LOAD DATA GRID. <BR>' CREATE DATASET AND ADD NEW DATATABLE TO IT.<BR><BR> Dim objDSet As New DataSet<BR> Dim tblTest As DataTable = objDSet.Tables.Add("tblTest")<BR> <BR>' CREATE CONNECTION STRING AND SELECT COMMAND.<BR><BR> Dim objConn As New oleDBConnection _ ("Provider=Microsoft.Jet.OLEDB.4.0;" & _<BR> "Data Source=C:InetPubwwwrootASPNETExamplesTest.mdb")<BR><BR> Dim objSelect As New oleDBCommand("SELECT TOP 20 * FROM TestTable ORDER BY rDate DESC", objConn)<BR> <BR> objConn.Open()<BR><BR>' CREATE DATA-ADAPTER AND GIVE IT THE SELECT COMMAND TO EXECUTE.<BR><BR> Dim objDataAdapter As New oleDBDataAdapter<BR> <BR> objDataAdapter.SelectCommand = objSelect<BR><BR>' USE DATA-ADAPTER TO FILL TABLE IN DATA-SET,CLOSE CONNECTION.<BR><BR> objDataAdapter.Fill(objDSet,"tblTest")<BR><BR>' CREATE COMMANDBUILDER HANDLE SOURCE FILE UPDATING.<BR><BR> Dim objAutoGen As New oleDbCommandBuilder(objDataAdapter)<BR><BR> objConn.Close()<BR><BR>' DATA-GRID (objDGrid) IS DEFINED ON MAIN FORM AT BOTTOM OF PAGE.<BR><BR> objDGrid.DataSource = objDSet<BR><BR> objDGrid.DataMember = "tblTest"<BR><BR> objDGrid.DataBind()<BR><BR>'== STEP 2: EDIT DATA IN THE DATA-TABLE. <BR>'NOTE: FIRST NUMBER IS ROW NUMBER, SECOND NUMBER IS COLUMN.<BR><BR> objDSet.Tables("tblTest").Rows(1)(2) = "Blue Course"<BR><BR> objDGrid.DataBind()<BR><BR>'===== STEP 3: ADD A ROW OF NEW DATA TO DATA-TABLE =====<BR><BR> Dim NewRow As DataRow = tblTest.NewRow()<BR> <BR> NewRow.Item("ID") = 0<BR> NewRow.Item("rDate") = "7/22/2001"<BR> NewRow.Item("rName") = "Aqua Row"<BR> NewRow.Item("rScore") = 79<BR><BR> tblTest.Rows.Add(NewRow)<BR><BR> objDGrid.DataBind() ' REFRESH GRID WITH NEW DATA.<BR><BR><BR>'== STEP 4: UPDATE SOURCE DB FROM AN MODIFIED DATA-SET<BR><BR> objDataAdapter.Update(objDSet,"tblTest")<BR> <BR> objDGrid.DataBind()<BR> <BR>End Sub<BR><BR><BR><BR>'== INSERT DATA DIRECTLY INTO DATA-BASE WITHOUT USE OF <BR>' DATA-SET OR DATA-ADAPTER.<BR><BR>Sub UpdateSource()<BR><BR> Dim strInsert As String<BR> Dim objConn As oleDbConnection<BR><BR> strInsert = "Insert Into TestTable VALUE <BR> (@ID,@Date,@Name,@Score)"<BR><BR> Dim objInsertCmd As New oleDBCommand(strInsert,objConn)<BR> <BR> Dim pID As New oleDBParameter("@ID",oleDBType.Integer,3)<BR> Dim pDate As New oleDBParameter("@Date",oleDBType.varChar,15)<BR> Dim pName As New oleDBParameter("@Name",oleDBType.varChar,20)<BR> Dim pScore As New oleDBParameter("@Score",oleDBType.Integer,5)<BR><BR> With objInsertCmd.Parameters<BR><BR> .Add(pID)<BR> .Add(pDate)<BR> .Add(pName)<BR> .Add(pScore)<BR><BR> End with<BR><BR> pID.Value = http://aspmessageboard.com/archive/index.php/78<BR> pDate.Value= "06/25/2001"<BR> pName.Value="Or Course"<BR> pScore.Value = 99<BR><BR> objInsertCmd.Connection.Open()<BR><BR> Try<BR><BR> objInsertCmd.ExecuteNonQuery()<BR><BR> Catch ex As Exception<BR><BR> response.write("Couldn't Update Source DataBase" & "<BR/>")<BR><BR> End try<BR><BR> objInsertCmd.Connection.Close()<BR> <BR>End sub<BR><BR></SCRIPT><BR><BR><BR><!-- ============= HTML PAGE STARTS HERE ================--><BR><BR><HTML><BODY><BR><BR> <BR/><BR/><BR><BR> <ASP:DataGrid id="objDGrid"<BR> align="Center"<BR> runat="Server" <BR> Width = "400"<BR> BorderColor="Black"<BR> BackColor="#ffffff"<BR> CellPadding=3<BR> CellSpacing="0"<BR> Font-Name="Verdana" AllowSorting="False"<BR> Font-Size="8pt"<BR> HeaderStyle-BackColor="#cfcfcf"<BR> enableViewState="false" /><BR><BR></BODY></HTML>
 
Back
Top