Hallo,
ich habe da ein dringendes Problem. Habe mich angemeldet da ich nicht mehr weiterkomme.
Meine Abschlussarbeit geht über eine Permanentinventur die über Access läuft und ich per VB.NET programmiere. (Bin eindeutig kein Profi aber guter Anfänger)
Meine Datenbank ist wie folgt aufgebaut: Bild im Anhang
Ein paar Beispieldatensätze habe ich bereits eingetragen, die Trage ich durch ein Button ein:
Nun möchte ich den Satz den ich eingepflegt habe durch die automatisch erstellte ID (Diese notiere ich mir vorher (Wird im Formular nach dem Einpflegen angezeigt))
suchen und alle Informationen in meinen Comboboxen und Textfeldern wiedergeben. Die IDs sollen natürlich (wie beim einpflegen auch) in den ComboBoxen als Bezeichnung stehen und nicht als ID.
Durch den Button "suchen" wird nun eine InputBox erstellt in der die ID eingegeben werden kann und danach soll gesucht werden.
aktueller CODE hierzu ist folgender:
Ein Bild meines Formulares füge ich im Anhang ebenfalls hinzu. Ich brauche dringend Hilfe da mein Projekt bis Mitte nächster Woche komplett fertig sein muss. Ich hoffe jemand kann mir helfen wird wahrscheinlich nicht das einzige Problem bleiben. Hoffe auf schnelle Antwort. Ich hoffe es hilft auch anderen die in einer ähnlichen Problematik stecken.
LG PL1511
ich habe da ein dringendes Problem. Habe mich angemeldet da ich nicht mehr weiterkomme.
Meine Abschlussarbeit geht über eine Permanentinventur die über Access läuft und ich per VB.NET programmiere. (Bin eindeutig kein Profi aber guter Anfänger)
Meine Datenbank ist wie folgt aufgebaut: Bild im Anhang
Ein paar Beispieldatensätze habe ich bereits eingetragen, die Trage ich durch ein Button ein:
VB.NET-Quellcode
- [/size][/font]
- [font='courier new,courier,monospace'][size=12]Private Sub btneinpflegen_Click(sender As Object, e As EventArgs) Handles btneinpflegen.Click
- 'Bedingung erstellen ----> Zwangsfunktion: Es müssen ALLE Textfelder ausgefüllt sein
- If txtausführungsbezeichnung.Text = "" Or txtartikelnummer.Text = "" Or txtArtikelname.Text = "" Or txtMängelbezeichnung.Text = "" Or txtPreis.Text = "" Or txtZusatzinformationen.Text = "" Then
- MessageBox.Show("Bitte alle Informationen ausfüllen!")
- 'Erst wenn alles ausgefüllt ist, wird der neue Datensatz errzeugt und in die Datenbank eingefügt
- Else
- cmd.Connection = con
- con.Open()
- cmd.CommandText = [sql][/size]"INSERT INTO Artikeldaten(A_Artikelgruppen_ID ,Ausführungsbezeichnung ,Artikelnummer_intern , Artikelname ,A_Qualitätsgruppen_ID ,Mängelbezeichnung ,A_Status_ID ,A_Mitarbeiter_ID,Preis , A_Standort_ID , Zusatzinformation)
- Values(" & agrpid & ", '" & Trim(txtausführungsbezeichnung.Text) & "', '" & Trim(txtartikelnummer.Text) & "','" & Trim(txtArtikelname.Text) & "', " & quaid & ", '" & Trim(txtMängelbezeichnung.Text) & "', " & stsid & ", " & mitid & ", '" & Trim(txtPreis.Text) & "', " & stdnr & ", '" & Trim(txtZusatzinformationen.Text) & "')"[/sql][size=12]
- cmd.ExecuteNonQuery()
- btneinpflegen.Enabled = False
- MessageBox.Show("Datensatz wurde erfolgreich eingepflegt.")
- con.Close()
- 'Der Button wird statt des Buttons clear gezeigt
- btnIDlesen.Show()[/size]
- [size=12]'Der Button verschwindet wenn alle Bedingungen von btneinpflegen
- 'erfüllt sind
- btnclear.Visible = False
- 'Button Logout enabeled da nach der Datensatzeinpflege erst die Prozedure beendet werden muss
- btnlogout.Enabled() = False
- 'Textfelder können nicht mehr bearbeitet werden
- txtArtikelname.Enabled() = False
- txtartikelnummer.Enabled() = False
- txtausführungsbezeichnung.Enabled() = False
- txtMängelbezeichnung.Enabled() = False
- txtPreis.Enabled() = False
- txtZusatzinformationen.Enabled() = False
- 'der Button Fertig erscheint um das Programm erfolgreich zu beenden
- btnfertig.Show()
- 'Button Suchen verschwindet da sich nun nur auf den eingegebenen Datensatz konzentriert wird
- btnsuchen.Enabled() = False
- End If
- End Sub[/size]
- [/font]
Nun möchte ich den Satz den ich eingepflegt habe durch die automatisch erstellte ID (Diese notiere ich mir vorher (Wird im Formular nach dem Einpflegen angezeigt))
suchen und alle Informationen in meinen Comboboxen und Textfeldern wiedergeben. Die IDs sollen natürlich (wie beim einpflegen auch) in den ComboBoxen als Bezeichnung stehen und nicht als ID.
Durch den Button "suchen" wird nun eine InputBox erstellt in der die ID eingegeben werden kann und danach soll gesucht werden.
aktueller CODE hierzu ist folgender:
VB.NET-Quellcode
- [/font]
- Private Sub btnsuchen_Click(sender As Object, e As EventArgs) Handles btnsuchen.Click
- 'Wert der Inputbox wird geholt
- id = InputBox("Nach welcher Artikel_ID soll gesucht werden?", "id")
- 'im Textfeld Artikel_ID wird ausgegraut die ID angezeigt
- txtArtikel_ID.Text = id
- 'Nun wird die Datenbank durchgesucht wo die ID = die id ist die ich im Textfeld stehem habe
- cmd.Connection = con
- con.Open()
- cmd.CommandText =
- [sql]"Select
- ad.A_Artikel_ID,
- ag.Artikelgruppen_name,
- ad.Ausführungsbezeichnung,
- ad.Artikelnummer_intern,
- ad.Artikelname,
- qg.Qualitätsgruppen_Name,
- ad.Mängelbezeichnung,
- st.Status_Bezeichnung,
- ma.Mitarbeiter_Namen,
- ad.Preis,
- so.Standort_Bezeichnung,
- ad.Zusatzinformation
- FROM
- Artikelgruppen as ag,
- Artikeldaten as ad,
- Mitarbeiter as ma,
- Qualitätsgruppen as qg,
- Status as st,
- Standort as so
- where
- ad.A_Artikelgruppen_ID = ag.Artikelgruppen_ID
- and ad.A_Mitarbeiter_ID = ma.Mitarbeiter_ID
- and ad.A_Qualitätsgruppen_ID = qg.Qualitätsgruppen_ID
- and ad.A_Status_ID = st.Status_ID
- and ad.A_Standort_ID = so.Standort_ID
- and ad.A_Artikel_ID = " & id & ""[/sql][font='courier new,courier,monospace'][size=12]
- 'Hier sollen die Daten eingefügt werden
- reader = cmd.ExecuteReader
- Do While reader.Read()
- ' hier sollen die ComboBoxen und die Textfelder mit den Daten der SQL Abfrage "befüllt" werden
- Loop
- con.Close()
- [/size][/font]
Ein Bild meines Formulares füge ich im Anhang ebenfalls hinzu. Ich brauche dringend Hilfe da mein Projekt bis Mitte nächster Woche komplett fertig sein muss. Ich hoffe jemand kann mir helfen wird wahrscheinlich nicht das einzige Problem bleiben. Hoffe auf schnelle Antwort. Ich hoffe es hilft auch anderen die in einer ähnlichen Problematik stecken.
LG PL1511
Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „PL1511“ ()