Hjælp til programering med access database

Du kan lige få en lynhurtig sag.

Hvis du opretter et nyt konsolprojekt, og laver en lille bitte database i access, som du så lægger i din bin-folder under dit projekt (folderen kommer først frem når du har bygget første gang).

Så kan du lave en kode som denne :

Imports System.Web
Imports System.Data.OleDb
Module Module1
    Sub Main()
        ' ny forbidelse
        Dim connection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TestDB.mdb;User Id=admin;Password=;")
        ' en kommando
        Dim command As OleDbCommand = New OleDbCommand("SELECT * FROM TblSomething", connection)
        ' en adapter
        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(command)
        ' et dataset
        Dim ds As DataSet = New DataSet("SomeDataSet")

        Try
            ' fyld dataset vha. adapteren
            adapter.Fill(ds)
            ' pil lidt ved data
            ds.Tables(0).Rows(0)("SomeString") = "En ny tekst"
            ' opret commandbuilder
            Dim commandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
            ' og opdater
            adapter.Update(ds)
        Catch ex As Exception
            ' bare udskriv fejl til skærmen
            Console.WriteLine(ex.Message)
        End Try

        ' vent på at der trykkes
        Console.Read()
    End Sub
End Module

hov.... det var ikke meningen det skulle sendes afsted allerede :o)

ovenstående er baseret på at der som sagt ligger en database i bin-folderen, og den database jeg har benyttet hedder TestDB.mdb.
Den indeholder en enkelt tabel TblSomething, og i den tabel er defineret
Id som autonummer
SomeString som Text
SomeInteger som number
og
SomeDate som DateTime

Koden sørger for :
1) at forbinde til databasen
2) hente alt hvad der ligger i TblSomething
3) Opdatere feltet SomeString i række nummer 1
4) Og opdatere igen.

Det er så et eksempel hvor der bruges et dataset, men det er der ingen der siger at du skal.

Desuden benyttes en commandbuilder, som gør det muligt at få generet de statements der er nødvendige for at opdatere i databasen.
(insert, update og delete).

Du kan gøre alt hvad du vil med de data der er læst op i datasettet (opdatere, slette og tilføje), og kaldet til Update(ds) skulle gerne gå godt pga. commandbuilderen.

Håber du kunne bruge det til et eller andet... Jeg bliver nødt til at løbe, men er herude igen senere.

mvh

Et par lidt andre eksempler:

console app med datareader:

Imports System
Imports System.Data.OleDb

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=")
        con.Open
        Dim cmd As OleDbCommand = New OleDbCommand ("SELECT * FROM T1", con)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim f1 As Integer = CType(rdr(0), Integer)
            Dim f2 As String = CType(rdr(1), String)
            Console.WriteLine(f1 & " " & f2)
        End While
        con.Close
    End Sub
End Class

GUI app med datagrid og dataset:

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms

Namespace DefaultNamespace
    Public Class MainForm
        Inherits Form
        Private dg As DataGrid
        Private save As Button
        Private con As OleDbConnection
        Private da As OleDbDataAdapter
        Private cb As OleDbCommandBuilder
        Private ds As DataSet

        Public Shared Sub Main
            Dim fMainForm As New MainForm
            fMainForm.ShowDialog()
        End Sub

        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub

        Private Sub InitializeComponent()
            con = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;UserId=admin;Password=")
            con.Open
            da = New OleDbDataAdapter("SELECT * FROM T1", con)
            cb = New OleDbCommandBuilder(da)
            da.UpdateCommand = cb.GetUpdateCommand
            ds = New DataSet
            da.Fill(ds, "T1")
            dg = New DataGrid
            save = New Button
            SuspendLayout
            dg.Location = New Point(50, 50)
            dg.Size = New Size(300, 200)
            dg.SetDataBinding(ds, "T1")
            save.Location = New Point (50, 300)
            save.Size = New Size (100, 25)
            save.Text = "Save"
            AddHandler save.Click, AddressOf SaveClick
            ClientSize = New Size(400, 400)
            Controls.Add(dg)
            Controls.Add(save)
            Text = "Main Form"
            ResumeLayout(false)
        End Sub
       
        Sub SaveClick(ByVal sender As Object, ByVal e As EventArgs)
            da.Update(ds, "T1")
            ds.AcceptChanges
            dg.Refresh
        End Sub
    End Class
End Namespace

Hvordan indsætter jeg så data i min database ?

Enten via direkte SQL:

        Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=")
        con.Open
        Dim cmd As OleDbCommand = New OleDbCommand ("INSERT INTO T1 VALUES(123,'ABC')", con)
        cmd.ExecuteNonQuery

eller via DataSet (både snepnets eksempel og mit GUI eksempel opdaterer
faktisk databasen)

Direkte SQL kan forbedres via brug af parameters.

er ikke heælt sikker på at jeg forstår dig... jeg har jo ikke en Sql database... men en acces (.mdb) hvad er kommandoerne til at kommunikere med den ?

Alle ovenstående eksempler snakker med en Access database !

okay... men så vil jeg meget gerne have en forklaring på følgendekode, som du siger kan bruges til at indsætte data i dabasen...

        Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=")
        con.Open
        Dim cmd As OleDbCommand = New OleDbCommand ("INSERT INTO T1 VALUES(123,'ABC')", con)
        cmd.ExecuteNonQuery

Den udfører en SQL kommando:

INSERT INTO T1 VALUES(123,'ABC')

Du kan sagtens bruge SQL kommandoer (ikke at forveksle med SQLServer kommandoer) mod Access.

I et mere realistisk eksempel ville du jo nok indsætte nogle værdier som
kom et sted fra og ikke bare to konstanter.

Okay, så TI er Tabellens navn. og det der står i parantesen er det dre skal sættes ind ? (her bliver ABC sat ind i kollonnen 123) ??

Nej.

Tabel T 1har 2 kollonner, 123 bliver læst ind i den første, 'ABC' bliver læst ind i den anden.

Du er ny til SQL ?

Prøv og læs de første afsnit her:
  http://www.w3schools.com/sql/default.asp

For SELECT evt. her:
  http://www.eksperten.dk/artikler/389

når jeg køre dit program får jeg følgende fejl:

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll

... og den markerer linien

        cmd.ExecuteNonQuery()

Har du en tabel T1 med 2 felter ?

Eller en tabel med det navn og de felter som du måtte have erstattet den med ?

Har en database der hedder Test.mdb, deti ligger det en tabel, som hedder T1, og deri er to felter som hedder info1 og info 2

Og hvilke data typer er de to felter ?

hvor ligger den, og bruger du den her direkte ?
Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=")

Her rettet det til

Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")

Da databasen ligger her : C:\Test.mdb
begge felter er sat til tekst

Hvis de begge er tekst, så skal der '' omkring begge værdierne !

så der kommer til at stå

        Dim cmd As OleDbCommand = New OleDbCommand ("INSERT INTO T1 VALUES("123","ABC")", con)
        cmd.ExecuteNonQuery

??

single quotes ikke double quotes

Dim cmd As OleDbCommand = New OleDbCommand ("INSERT INTO T1 VALUES('123','ABC')", con)
cmd.ExecuteNonQuery

Man kan faktisk godt bruge double quotes i databasen, men da VB.NET bruger
double quotes til strenge, så virker det bedst/nemmest/pænest med single quotes

nu ser det sådan ud, men den kommer stadig med fejlen....

        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("INSERT INTO T1 VALUES('123','ABC')", con)
        cmd.ExecuteNonQuery()

Du har vel ikke en primær nøgle og allerede indsat en række med de data ?

der er ingen data, men den er primær, må den ikke det ?

Jo.

Men når der er en primær nøgle får man fejl hvis der allerede var indsat en række
med de data.

Men det er jo så ikke tilfældet.

sådan, det var det der var galt... nu virker det... man tak for hjælpen...

hvis du bruger det første eksempel jeg skrev, får du skrevet en fejlmeddelelse ud i konsollen, hvis der er noget der kikser... så kan du se hvad der er galt, eller poste det her, så vi kan give en hånd.

nå hov - kryds der :o)

hvordan søger man så i databasen ?

select * from T1 where info1 = 'etellerandet'

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")
con.Open()
Dim cmd As OleDbCommand = New OleDbCommand("SELECT FROM T1')", con)
Dim rdr As OleDbDataReader = cmd.ExecuteReader
While rdr.Read
    Dim info1 As Integer = CType(rdr(0), Integer)
    Dim info2 As String = CType(rdr(1), String)
    ' gør noget med data
End While

henter alle rækker

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")
con.Open()
Dim cmd As OleDbCommand = New OleDbCommand("SELECT FROM T1 WHERE info2='ABC')", con)
Dim rdr As OleDbDataReader = cmd.ExecuteReader
While rdr.Read
    Dim info1 As Integer = CType(rdr(0), Integer)
    Dim info2 As String = CType(rdr(1), String)
    ' gør noget med data
End While

henter alle rækker hvor info2 er 'ABC'

Og der fik jeg vist ikke rettet rigtigt til. De 2 kommandoer skal være:

Dim cmd As OleDbCommand = New OleDbCommand("SELECT FROM T1", con)

Dim cmd As OleDbCommand = New OleDbCommand("SELECT FROM T1 WHERE info2='ABC'", con)

hvorfor kommer den med en fejl når jeg skriver således ?

        Dim fornavn As String = TextBox1.Text
        Dim efternavn As String = TextBox2.Text


        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("INSERT INTO T1 VALUES(fornavn,efternavn)", con)
        cmd.ExecuteNonQuery()

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("INSERT INTO T1 VALUES('" + fornavn + "','" + efternavn + "')", con)
        cmd.ExecuteNonQuery()

(og når du føler at du har lidt styr på den slags INSERT så bør du kigge på
Parameters)

får stadig en fejl

        Dim fornavn As String = TextBox1.Text
        Dim efternavn As String = TextBox2.Text


        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;User Id=admin;Password=")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("INSERT INTO T1 VALUES(" + fornavn + "','" + efternavn + "')", con)
        cmd.ExecuteNonQuery()

Der mangler en single quote foran fornavn

hah... ups hvade jeg ikke lige set...

Dim cmd As OleDbCommand = New OleDbCommand("INSERT INTO T1 VALUES('" + fornavn + "','" + efternavn + "')", con)

hvordan får jeg så mine data vist i et datagrid ?

Se min 17:09:01 kode (som tilfældigvis bruger samme tabel)

får denne fejl når jeg køre dette program :

The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

        Dim soeg As String = textbox3.text
        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Christopher de Haas\My Documents\Visual Studio Projects\app1\WindowsApplication1\Test.mdb;User Id=admin;Password=")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT FROM T1 WHERE info2='" + soeg + "'", con)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim info1 As Integer = CType(rdr(0), Integer)
            Dim info2 As String = CType(rdr(1), String)
            MsgBox(info1 & info2)
        End While

Min fejl.

Der mangler en stjerne !

Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM T1 WHERE info2='" + soeg + "'", con)

hvorfor kan jeg ikke dim'me info1 som String itedetfor info2 ?

Felterne skal naturligvis olaves til de rigtige typer (mit oprindelige eksempel
havde et integer felt og et string felt)

skulle det ikke virker sådanhar ?, når det i databasen er tekst i begge felter ?

        Dim soeg As String = textbox3.text
        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Christopher de Haas\My Documents\Visual Studio Projects\app1\WindowsApplication1\Test.mdb;User Id=admin;Password=")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT FROM T1 WHERE info2='" + soeg + "'", con)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim info1 As Integer = CType(rdr(0), Integer)
            Dim info2 As String = CType(rdr(1), String)
            MsgBox(info1 & info2)
        End While

Så skal det vel være:

        While rdr.Read
            Dim info1 As String = CType(rdr(0), String)
            Dim info2 As String = CType(rdr(1), String)
            MsgBox(info1 & info2)
        End While

nå jo var selfnogså det der skulle have stået, men så kommer dem igen med fejl

nej nu virker det.. sorry

hvordan opdatere man informationerne i en datagrid ?

Kig på min SaveClick sub

Og nu vil jeg ligge et svar

fatter jeg ikke... er det ikke en kommando ? DataGridView1.??????

forresten, mange tak for hjælpen

da.Update(ds, "T1") // gem ændrede data i databasen
            ds.AcceptChanges // nulstil ændringer så næste også kun gemmer ændringer
            dg.Refresh // refresh data

da.Update(ds, "T1") ' gem ændrede data i databasen
ds.AcceptChanges ' nulstil ændringer så næste også kun gemmer ændringer
dg.Refresh ' refresh data

så skal dg da erklæres først, kan du ikke skrive præcist hvad du har skrevet ?

Begge kode eksemplerne i 23/09-2004 17:09:01 er testet kode !

(dg er en instans variabel i klassen)

Jeg tog kun de 3 linier ud for at forklare hvad de gør.

kan ikke få den til at opdate sit datagrid efter jeg har tilføjet data til databasen !!

skal man ikke lukke databsen efter mna har tilføjet data ? ligesaom man skal med filer

Jo enten eksplicit med en save button som i mit eksempel eller ved
at putte samme kode i formens close event.

Når du er helt færdig kalder du bare:

con.Close

nå - jeg lægger også et svar hvis hvis noget af det jeg skrev gjorde nytte, men er du færdig dehaas, eller driller det stadig ?
mvh

Jeg vil da også ligge et svar her så

dehaas>

Tid at få afsluttet spørgsmålet ?

??