theterminater
Enthusiast
VBA - SQL in Visual Studio -> Befehl(e) werden zs. nicht ausgeführt, getrennt schon?!
Hey Leute,
habe ein Problem. Und zwar wird bei folgendem Code nur einer der Befehle ausgegeben. Unabhängig voneinander funktioniert es, weshalb ich nicht von einem fehlerhaften Code ausgebe.. wo liegt das Problem?
Hier der Code:
Vorleser = Ausfuehrer.ExecuteReader()
Vorleser.Read()
Dim aktuelleID As String
'Dim IDRechnen As Integer
Dim IDRechnen = CInt(Vorleser(0))
aktuelleID = CStr(IDRechnen + 1)
KundenNr = aktuelleID
tb_Kundennummer.Text = CStr(aktuelleID)
Vorleser.Close()
Dim neuerKunde As New Kunde(KundenNr, Anrede, Nachname, Vorname, Strasse, Hausnummer, PLZ, Ort, Land, Telefon, Fax, Email, Kontoinhaber, IBAN, BIC, Bank)
strAnfuegezeile = "INSERT INTO tblNum(" & "M" & tb_Magazin.Text & ") VALUES ("
strAnfuegezeile = strAnfuegezeile & IDRechnen + 1 & "); "
strAnfuegezeile = "INSERT INTO tblKunde(KdNr, Anrede, Nachname, Vorname, Strasse, Hausnummer, PLZ, Ort, Land, Telefon, Fax, Email, Kontoinhaber, IBAN, BIC, Bank) VALUES ('"
strAnfuegezeile = strAnfuegezeile & neuerKunde.KundenNr & "', '"
strAnfuegezeile = strAnfuegezeile & neuerKunde.Anrede & "', '"
strAnfuegezeile = strAnfuegezeile & neuerKunde.Nachname & "', '"
strAnfuegezeile = strAnfuegezeile & neuerKunde.Vorname & "', '"
Danke!
Hey Leute,
habe ein Problem. Und zwar wird bei folgendem Code nur einer der Befehle ausgegeben. Unabhängig voneinander funktioniert es, weshalb ich nicht von einem fehlerhaften Code ausgebe.. wo liegt das Problem?
Hier der Code:
Vorleser = Ausfuehrer.ExecuteReader()
Vorleser.Read()
Dim aktuelleID As String
'Dim IDRechnen As Integer
Dim IDRechnen = CInt(Vorleser(0))
aktuelleID = CStr(IDRechnen + 1)
KundenNr = aktuelleID
tb_Kundennummer.Text = CStr(aktuelleID)
Vorleser.Close()
Dim neuerKunde As New Kunde(KundenNr, Anrede, Nachname, Vorname, Strasse, Hausnummer, PLZ, Ort, Land, Telefon, Fax, Email, Kontoinhaber, IBAN, BIC, Bank)
strAnfuegezeile = "INSERT INTO tblNum(" & "M" & tb_Magazin.Text & ") VALUES ("
strAnfuegezeile = strAnfuegezeile & IDRechnen + 1 & "); "
strAnfuegezeile = "INSERT INTO tblKunde(KdNr, Anrede, Nachname, Vorname, Strasse, Hausnummer, PLZ, Ort, Land, Telefon, Fax, Email, Kontoinhaber, IBAN, BIC, Bank) VALUES ('"
strAnfuegezeile = strAnfuegezeile & neuerKunde.KundenNr & "', '"
strAnfuegezeile = strAnfuegezeile & neuerKunde.Anrede & "', '"
strAnfuegezeile = strAnfuegezeile & neuerKunde.Nachname & "', '"
strAnfuegezeile = strAnfuegezeile & neuerKunde.Vorname & "', '"
Danke!