Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Imports System.Data.OleDb

Public con As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public reader As OleDb.OleDbDataReader
Public anzahl As Integer

Visual Basic Quellcode

Public Sub Provider()
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Pfad_zur_datenbank;"
        cmd.Connection = con
 End Sub

Visual Basic Quellcode

 Dim ds As New DataSet
    Dim dt As New DataTable
    Dim da As OleDbDataAdapter
    Dim bs As New BindingSource

Public Sub DGV_sehen(ByVal DGV As DataGridView)
        dt.Clear()
        Provider()
        ds.Tables.Add(New DataTable)
        da = New OleDbDataAdapter("select * from Tabelle", con) 'Hier ist das wesentliche. Mit dem * sagen wir dem Programm, das wir alle Spalten der Tabelle laden möchte. Tabelle muss man eben durch den richtigen Tabellennamen ersetzen.
        da.Fill(dt)
        Dim cb As New OleDbCommandBuilder(da)
        bs.DataSource = dt
        DGV.DataSource = bs
    End Sub

Visual Basic Quellcode

 If txt_name.Text = "" Or txt_alter.Text = "" Or txt_email.Text = "" Then
            msgbox("Füllen Sie alle Felder aus!")
        Else
            Try
                con.Open() 'Verbindung zur Db öffnen
                cmd.CommandText = "INSERT INTO Benutzer(Name, Alter, EMail) VALUES ('" & txt_name.text & "', '" & txt_alter.text & "', '" & txt_name.Text  & "')" 'Der Befehl für die DB
                anzahl = cmd.ExecuteNonQuery 'anzahl enthält nun ein Wert alle geänderten/ hinzugefügten/ gelöschten Einträge
                con.close 'Verbindung zur DB schließen
                If anzahl > 0 Then 'Nun wird kontrolliert ob überhaupt ein Eintrag hinzugefügt geworden ist, wenn ja dann die MSG
                    MsgBox("Sie haben einen Eintrag gemacht", MsgBoxStyle.Information)
                End If
            Catch ex As Exception
                con.close 'ich schließe hier ebenfalls die Verbindung, weil wenn ein Fehler in dem oberen code passiert, passiert er vor dem schließen der Verbindung. Wenn ich das nicht machen würde käme der Fehler das die Verbindung noch offen ist, wenn ich das nächste mal eine Verbindung öffne.
                MsgBox(ex.Message)
            End Try
        End If

Visual Basic Quellcode

If txt_name.Text = "" Or txt_alter.Text = "" Or txt_email.Text = "" Then
msgbox("Füllen Sie alle Felder aus!")
Else
Try
con.Open()
cmd.CommandText = "UPDATE Benutzer SET Name = '" & txt_name.text & "', Alter = '" & txt_alter.text & "', EMail = '" & txt_name.Text & "' where ID = 0" 
anzahl = cmd.ExecuteNonQuery
con.close
If anzahl > 0 Then 
MsgBox("Sie haben einen Eintrag bearbeitet", MsgBoxStyle.Information)
End If
Catch ex As Exception
con.close
MsgBox(ex.Message)
End Try
End If

Visual Basic Quellcode

cmd.CommandText = "delete from Benutzer where ID = 0"

Visual Basic Quellcode

 Try
            con.Open()
            cmd.CommandText = "SELECT * FROM Benutzer WHERE ID = 0"
            reader = cmd.ExecuteReader
            Do While reader.Read
               txt_name.text = reader("Name")
               txt_alter.text = reader("Alter")
               txt_email.text = reader("EMail")
            Loop
            reader.Close()
              con.close
        Catch ex As Exception
            con.close
            MsgBox(ex.Message)
        End Try

Visual Basic Quellcode

 Try
            con.Open()
            cmd.CommandText = "SELECT * FROM Benutzer"
            reader = cmd.ExecuteReader
            lb_benutzer.itesm.clear()
            Do While reader.Read
               lb_benutzer.items.add(reader("Name"))
            Loop
            reader.Close()
              con.close
        Catch ex As Exception
            con.close
            MsgBox(ex.Message)
        End Try

Visual Basic Quellcode

dim ID as new List(of String)
Try
            con.Open()
            cmd.CommandText = "SELECT ID FROM Benutzer"
            reader = cmd.ExecuteReader
            ID.Clear()
            Do While reader.Read
                ID.Add(reader("ID"))
            Loop
            reader.Close()
        Catch ex As Exception
            con.close
            MsgBox(ex.Message)
        End Try

Visual Basic Quellcode

 cmd.CommandText = "delete from Benutzer where ID = " & ID(lb_benutzer.selectedindex)

Visual Basic Quellcode

Imports System.Data.OleDb

Public con As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public reader As OleDb.OleDbDataReader

Public Sub Provider()
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Pfad_zur_datenbank;"
        cmd.Connection = con
 End Sub

Visual Basic Quellcode

Imports MySql.Data.MySqlClient

Public con As New MySqlConnection
Public cmd As New MySqlCommand
Public reader As MySqlDataReader

Public Sub Provider()
        con.ConnectionString = "server=ip_des_servers;user id=Benutzer_name;password=passwort;database=Datenbank_name;"
        cmd.Connection = con
End Sub