Jeg kan prøve at stille et eksempel op til dig.
Lad os bare tage et helt simpelt eksempel, hvor vi starter med Default.aspx filen og mapperne: App_Code og App_Date.
Først skal du have lavet databasen, den kan bare indeholde en enkelt tabel med 2 felter. Et felt der indeholder de unikke ID'er, husk at sætte denne til auto increament, og et felt der indeholder teksten brugeren skriver, denne kalder jeg fldTekst i eksemplet.
Gem databasen som en .mdb fil og luk den. Inde i Visual Studio importer du din database fil ind i mappen: "App_Data" med add existing item.
Nu skal du have en connection mellem din database og dit website. Opret en class fil i mappen "App_Code" som du kalder dbConnection fx.
Denne fil skal indeholde følgende:
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Public Class dbConnection
Dim strDB As String = My.Request.PhysicalApplicationPath & "./App_Data/database.mdb"
Public Function getData(ByVal strSQL As String) As DataTable
Dim Connection As New OleDbConnection("Provider=Microsoft.JET.OleDB.4.0;Data Source=" & strDB)
Dim DataAdapter As New OleDbDataAdapter(strSQL, Connection)
Dim DataSet As New DataSet()
DataAdapter.Fill(DataSet)
Return DataSet.Tables(0)
End Function
Public Sub EditData(ByVal strSQL As String)
Dim Connection As New OleDbConnection("Provider=Microsoft.JET.OleDB.4.0;Data Source=" & strBlogDB)
Dim Command As New OleDbCommand(strSQL, Connection)
Connection.Open()
Command.ExecuteNonQuery()
Connection.Close()
End Sub
End Class
Der er to funktioner her, den ene henter data og den anden er til at redigere data med.
Det er smart nok at folk kan skrive i din database, men det skal jo også gerne kunne ses. Til det skal vi bruge to funktioner.
Opret endnu en class fil i mappen "App_Code". Dette bliver vores factory, så du kan bare kalde den factory.vb fx.
Koden i denne fil ser således ud:
Imports Microsoft.VisualBasic
Imports System.Data
Public Class factory
Dim objConn As New dbConnection
Public Function GetAll() As DataTable
Return objData.getData("SELECT * FROM tblTekst")
End Function
Public Sub InsertTekst(ByVal tekst As String)
objData.EditData("INSERT INTO tblTekst (fldTekst) Values ('" & tekst & "')")
End Sub
End ClassVi opretter først en variabel til vores connection fil, og laver herefter vores get og insert funktion.
Nu skal vi have gang i Default filen. Først laver du bare en tekstbox som du sætter til Textmode="Multiline" og så en button. Du skal også have en label eller en literal til udskrivning af teksten fra databasen, jeg har brugt en Literal og kaldt den litTekst.
Nu skal vi ind i codebehind, altså Default.aspx.vb.
Her kommer koden til denne:
Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objFac As New Factory
For Each Row As DataRow In objFac.GetAll.Rows
litTekst.Text &= Row("fldTekst") & "<br />"
Next
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tekst As String
Dim objFac As New Factory
tekst = txtbox.text
objFac.InsertTekst(tekst)
Response.Redirect("Default.aspx")
End Sub
End Class
Først importer du System.Data og System.Data.OleDb i toppen. Så vælger du (Page events) til venstre og vælger "Load" til højre efter.
Så vælger du din button til venstre og vælger "Click" til højre.
Herefter skal koden ovenfra bare indsættes.
Det var det hele. Jeg har ikke selv testet det igennem og det er meget sent
Hvis du ikke kan få det til at virke, må vi lige se på det igen.