Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Befehle für Datenbank
Autor: viktor8
Datum: 02.05.18 10:20
Hallo Carlo, anbei eine kurze Anleitung, wie ich das handhabe. Auch ich bin von DAO umgestiegen und habe mich lange geplagt. Ist natürlich nur eine erste Hilfe: ____________________________________________________________________________________________________ Variablen für eine Datenbank Dim db As String, dbalt As String, cn As New OleDb.OleDbConnection(), sqlabfrage As String, da As OleDb.OleDbDataAdapter, ds As DataSet Verbindung zu einer Datenbank ' Verbindung zu Access, andere Connectionstrings unter: https://www.connectionstrings.com/ Beispiel: db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & IO.Directory.GetDirectoryRoot(Application.StartupPath) & "[Verzeichnis]\[Name der Datenbank] & ".mdb" IO.Directory...... bedeutet, Laufwerk und Verzeichnis, wo die Anwendung (.exe) liegt. Zugriff: cn.ConnectionString = db sqlabfrage = "Select * from [Name der Tabelle] order by [Name der Spalte]" Datenabfrage: Dim da As New OleDb.OleDbDataAdapter(sqlabfrage, cn) ds = New DataSet Try da.Fill(ds) ' Man kann dem Dataset auch einen Namen geben, wenn benötigt Catch ex As OleDb.OleDbException ' Ich gebe hier die Fehlermeldung im Klartext in einer Messagebox aus und gleichzeitig in die Zwischenablage, kann jedoch anders gelöst werden Dim st As New StackTrace(True) st = New StackTrace(ex, True) strFehlerzeile = "Fehler im Formular: " & strFormular '& Zeile: " & st.GetFrame(0).GetFileLineNumber().ToString strFehlermeldung = "Fehlernummer: " & Err.Number & vbCrLf & ex.Message & vbCrLf & strFehlerzeile & vbCrLf & strNachricht MsgBox(strFehlermeldung, MsgBoxStyle.Critical) Clipboard.SetText(strFehlermeldung) ' Fehlermeldung wird in die Zwischenablage geschrieben -> hier die Maßnahmen für die Fehlerbehandlung End Try ' Jetzt ist das Dataset mit den Daten gefüllt und kann ausgelesen werden ' Achtung!!!! die Daten beginnen ab Row 1, daher bis .Rows.Count - 1 For x = 0 To ds.Tables(0).Rows.Count - 1 Irgendeine Combobox.Items.Add(ds.Tables(0).Rows(x).Item("Name der Spalte").ToString) oder Irgendeine_Variable=ds.Tables(0).Rows(x).Item("Name der Spalte").ToString cmbMitgliedsart.Text = cmbMitgliedsart.Items(0).ToString cmbMitgliedsbeitrag.Text = cmbMitgliedsbeitrag.Items(0).ToString Next anderes Beispiel: sqlabfrage = "Select * from [Name der Tabelle] where [Name der Spalte] = " irgendeine Variable, z.B.: Kundennummer With ds.Tables(0).Rows(0) ' Das Dataset beinhaltet alle relevanten Daten ' Adressdaten txtKundennummer.Text = .Item("Kundennummer").ToString txtNachname.Text = .Item("Nachname").ToString ' alle weiteren Felder ebenso abfragen endwith Bei Beendigung und wenn nicht weiter benötigt: ds.tables.clear cn.close _______________________________________________________________________________________________________

Befehle für Datenbank	1.227	CarloStein	26.04.18 14:30
Re: Befehle für Datenbank	674	stefan220273	26.04.18 16:46
Re: Befehle für Datenbank	616	CarloStein	26.04.18 18:22
Re: Befehle für Datenbank	639	stefan220273	26.04.18 16:49
Re: Befehle für Datenbank	612	CarloStein	26.04.18 18:36
Re: Befehle für Datenbank	601	Manfred X	27.04.18 08:39
Re: Befehle für Datenbank	589	CarloStein	27.04.18 12:03
Re: Befehle für Datenbank	562	viktor8	02.05.18 10:20
Re: Befehle für Datenbank	557	CarloStein	02.05.18 14:24
Re: Befehle für Datenbank	550	viktor8	05.05.18 10:16
Re: Befehle für Datenbank	544	CarloStein	05.05.18 11:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen