DevTrain Forum - Re: Zugriff auf DB mit VB.Net,

Forum: VB.NET | Thema: Re: Zugriff auf DB mit VB.Net, | Von: Tim Thaler ( 12.08.2005 20:48)

		Hallo,

Ich habe mir den Code von "Jens Buthe" (Thx nochmal)auf meine Beduerfnisse in Minimalfunktion angepasst und habe aber ein paar kleine Probleme die ich so nicht loesen konnte?

Hier der komlette code:
___________________________________________________________
Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim strSelect As String = "select name, vorname"
        strSelect &= "from tbl teilnehmer "
       

        Dim conString As String
        conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        conString &= ("c:\db1.mdb")

        'Verbindung zur DB
        Dim con As New System.Data.OleDb.OleDbConnection(conString)
        Dim ds As DataSet = New DataSet()

        Try

            con.Open()

            Dim da As New System.Data.OleDb.OleDbDataAdapter(strSelect, con)

            'DataSet füllen
            da.Fill(ds, "teilnehmer")

            'Durchlaufen der Datensätze zwecks Bearbeitung
            Dim row As System.Data.DataRow
            For Each row as System.Data.DataRow In ds.Tables("teilnehmer").Rows
                If row.Item("name") = "xyz" Then row.Item("name") = "xyz"
            Next


            'Füllen eines DataGrids
            dgTest.SetDataBinding(ds, "benutzer")

        Catch ex As System.Data.OleDb.OleDbException
            Response.Write(ex.Message)
        Finally
            da.Dispose()
            con.Close()
            con.Dispose()
        End Try

    End Sub
End Class

Code Ende
----------------------------------------------------------


Jetzt unterstreicht mir die Syntaxprüfung folgende Passage mit der Anmerkung "Syntaxfehler". 
(Die Passage ist durch ein -> gekennzeichnet)

----------------------------------------------------------
Einmal hier:

 'Durchlaufen der Datensätze zwecks Bearbeitung
            Dim row As System.Data.DataRow

hier das "As" -> For Each row As System.Data.DataRow In ds.Tables("teilnehmer").Rows

                If row.Item("name") = "xyz" Then row.Item("name") = "xyz"

 'Füllen eines DataGrids

hier das "dgTest" ->  dgTest.SetDataBinding(ds, "benutzer")

        Catch ex As System.Data.OleDb.OleDbException
hier das "Response" ->  Response.Write(ex.Message)
        Finally
und hier das "da" -> da.Dispose()
            con.Close()
            con.Dispose()
        End Try

    End Sub
End Class
____________________________________________________



Ein paar der sachen konnte ich durch Dim's ausmerzen, aber jetzt stehe ich aufm Schlauch.

Danke fuer eure Hilfe,

Gruß Freeman


	

Betreff Von Datum

Re: Zugriff auf DB mit VB.Net,

OK, auf die anderen Sachen bin ich dann doch noch slbst gekommen, aber das hier: Response.Write(ex.Message) wieso kreidet er mir das RESPONSE an??

Tim Thaler 13.08.2005 12:05

Re: Zugriff auf DB mit VB.Net,

und : For Each row As System.Data.DataRow In ds.Tables("teilnehmer").Rows wieso kreidet er mir das "As" in "For Each row As System..." an? den Rest habe ich...

Tim Thaler 13.08.2005 12:17

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!