Newbie Spørsmål ang Access og VB.net

2 super simple eksempler på database udtræk:

med data reader:

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

og med data adapter + data set + data grid:

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

?

Det der er TOTAL sort snak for mig!

Sådan her gjorde jeg i VB 6.0

SQL_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=I:\CRM\DATA\DATA\data.mdb;"

Set rsSQLKundeOPSLAG = New ADODB.Recordset
sql = "SELECT * FROM kunder where konto ='" & lst_SQL.Text & "'"
rsSQLKundeOPSLAG.Open sql, SQL_STRING

    TXT_Konto.Text = rsSQLKundeOPSLAG("konto")
    TXT_Adresse1.Text = rsSQLKundeOPSLAG("adresse1")
    TXT_Adresse2.Text = rsSQLKundeOPSLAG("adresse2") & ""
    TXT_By.Text = rsSQLKundeOPSLAG("by")
    TXT_Land.Text = rsSQLKundeOPSLAG("land")
   
rsSQLKundeOPSLAG.Close

lad mig prøv eat forklare

        ' åben connection til Access database - bemærk connection 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
       
        ' lav SQL kommando med SELECT statement
        Dim cmd As OleDbCommand = New OleDbCommand ("SELECT * FROM T1", con)

        ' udfør SQL kommando og hent data reader (svarer lidt til record set)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader

        ' læs en række af gangen
        While rdr.Read

            ' hent første kolonne som integer
            Dim f1 As Integer = CType(rdr(0), Integer)

            ' hent anden kolonne somn string
            Dim f2 As String = CType(rdr(1), String)

            ' udskriv
            Console.WriteLine(f1 & " " & f2)
        End While

        ' luk data reader
        rdr.Close

        ' luk connection
        con.Close

Øhh... jow!

Men hvis nu jeg evt gerne vil have resultatet i en listebox?

su kan du enten bruge en data reader og tilføje items til din list box eller
du kan  assigneb et data set til dens data source property

Ok... SKAL man lave sådan noget?

Jeg er slet ikke vant til at bruge den Componenter som var med i VB 6.0, Kan man ikke ved en søgning søge via SQL kodning som i VB 6.0?

Jeg synes godt nok ikke at VB.net er HALV så "lige til" som det gamle VB...

VB.NET er nok også lidt sværere end VB6 (men kan så til gengæld også så meget mere)

og alle sprog er svære at komme igang med

må jeg spørge hvad du bruger af bog/tutorial ?

Jeg har ingen læsestof overhovedet!

Kan du anbefalde en?

Wrox udgiver gode .NET bøger

online - Google finder bl.a.:

http://msdn.microsoft.com/vbasic/downloads/samples/default.aspx

http://www.vbdotnetheaven.com/

(den sidste ser dog ikke så begynder venlig ud)

Er der ikke nogen gode Start bøger?

Wrox har en "Beginning VB.NET 2003" som jeg formoder matcher det du efterspørger

Ok...

Har lige købt bøgerne her fra IDG-Forlag:
http://www.idgforlag.dk/Vis_produkt.asp?ISBN=87-7843-519-6
http://www.idgforlag.dk/Vis_produkt.asp?ISBN=87-7843-619-2
http://www.idgforlag.dk/Vis_produkt.asp?ISBN=87-7843-538-2

Dem kender jeg ikke

(de 2 første er C# !?)

Lukker

hmm.. burde den ikke gå til arne_v ??