gemme og hente fra database?

Hvilken database bruger du?

Hvis SQLServer skal du kigge på klasserne SqlConnection, SqlCommand og SqlDataReader.

Et eksempel:

Imports System
Imports System.Threading
Imports System.Data
Imports System.Data.SqlClient

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim con As SqlConnection = New SqlConnection("server=ARNEPC3;Integrated Security=SSPI;database=Test")
        con.Open
        Dim cre As SqlCommand = New SqlCommand("CREATE TABLE dtest (i INTEGER PRIMARY KEY, d DATETIME)", con)
        cre.ExecuteNonQuery
        Dim ins As SqlCommand = New SqlCommand("INSERT INTO dtest VALUES (@i, @d)", con)
        ins.Parameters.Add("@i", SqlDbType.Int)
        ins.Parameters.Add("@d", SqlDbType.DateTime)
        Dim i As Integer
        For i = 0 To 9
            ins.Parameters("@i").Value = i
            ins.Parameters("@d").Value = DateTime.Now
            ins.ExecuteNonQuery
            Thread.Sleep(1000)
        Next
        Console.WriteLine("All rows :")
        Dim sel As SqlCommand = New SqlCommand("SELECT * FROM dtest", con)
        Dim rdr As SqlDataReader = sel.ExecuteReader
        While rdr.Read
            Dim iv As Integer = CType(rdr(0), Integer)
            Dim dv As DateTime = CType(rdr(1), DateTime)
            Console.WriteLine(iv & " " & dv)
        End While
        rdr.Close
        Console.WriteLine("Rows last 5 seconds since " + DateTime.Now + " :")
        Dim sel2 As SqlCommand = New SqlCommand("SELECT * FROM dtest WHERE d > @d", con)
        sel2.Parameters.Add("@d", SqlDbType.DateTime)
        sel2.Parameters("@d").Value = DateTime.Now.AddSeconds(-5)
        Dim rdr2 As SqlDataReader = sel2.ExecuteReader
        While rdr2.Read
            Dim iv As Integer = CType(rdr2(0), Integer)
            Dim dv As DateTime = CType(rdr2(1), DateTime)
            Console.WriteLine(iv & " " & dv)
        End While
        rdr2.Close
        Dim drp As SqlCommand = New SqlCommand("DROP TABLE dtest", con)
        drp.ExecuteNonQuery
        con.Close
    End Sub
End Class

Jeg har ingen ide om hvilen database jeg bruger ;o)

Har bare set vb har mulighed for at indsætte en database.

Jeg får ikke tid til at kigge på det før tidligst i morgen så bare smid et svar ;o)

Dine koder plejer jo at virke så vil ikke tvivle på dig denne gang ;o)

Koden er testet så den virker.

Men det er jo lige det med at forstå hvad de enkelte dele gør.

Databaser i .NET er et halvstort emne, som du nok skal regne med at bruge lidt tid på at sætte dig ind i.

Og et svar.

Sagt som det er... Jeg forstår ikke noget af koden overhovedet he he, men det er lige meget før eller siden lærer jeg det vel he he.. Nu har jeg ihvertfald noget at vende tilbage til som en slags opslagsværk...

Det man skal forstå er at der er flere muligheder for at arbejde med database i .NET:

* Connection, Command og DataReader
* Connection, DataAdpter og DataSet
* typed dataset
* LINQ to SQL
* Entity Framework (og LINQ to EF)
* NHibernate

Et eksempel med DataSet og MS Access database:

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

Jeg prøver at arbejde for at lære lidt på en kontakt bog eller hvad det hedder. Altså du kan indtaste navn,adresse,tlf og så skal man kunne søge i navnene og man skal kunne indtaste navne og hente navne.

Er det der det aller korteste man kan skrive koden?

Er der ikke mulighed for at lave en som er så super kort og lille at jeg forstår den ;o)
en kolonne, 1 tekstbox og så 2 knapper. Gem og hent?
For hvis det stadig ser for uoverskuelig ud for mig er jeg bange for jeg må starte et andet sted med at lære at lave programmer.

Mener bare at et lille program med få udfordringer i også er med til at jeg lærer noget.

Jeg er meget modstander af at man af at kopiere og sætte kode ind jeg ikke forstår. Så jeg prøver at starte med at lave meget simple små programmer og så prøve om jeg kan udbygge dem, men som du måske har lagt mærke til det er det ikke let ;o)

MEN MEN MEN jeg giver ikke op (endnu)