vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2017
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Abfrage Vorhanden X mal 
Autor: ERBRU
Datum: 06.10.17 10:06

Hallo zusammen,

brauche eure Hilfe zum Thema DBNULL

mit meinem Code möchte ich dem User die Anzahl bereits "Gefundener" Anzeigen in eine ListBox er soll entscheiden einfügen Ja, Nein.

es gibt leider auch keine WWerte in der MAXIMO Spalte, wie kriege ich die Abfrage doch noch hin?
wo bzw. wie muss das abgefangen werden? meine Where Klausel ist nicht brauchbar da passiert garnichts

Dim abfr_MAXIMO As String
        abfr_MAXIMO = MAXIMOTextBox.Text.Trim
 
        'Abfrage ob MAXIMO bereits vorhanden
        Dim AbfrageName = From Reihe In LagerDB.Lagerliste
                          Where IsDBNull(Reihe.RowState) <> _
                            DataRowState.Deleted AndAlso _
                          (Reihe.MAXIMO.ToLower = abfr_MAXIMO.ToLower)
                          Select Reihe.Standort, Reihe.Artikelbezeichnung
 
        If AbfrageName.Count > 0 Then
            Dim Form_Rueckgabewert As Boolean
 
            Using Dialog_Form As New frm_Dialog()
                With Dialog_Form
                    .ShowInTaskbar = True
 
                    'Titel an frm_Dialog übergeben
                    .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                    'Meldung an frm_Dialog übergeben
                    Dim sbMeldung As New System.Text.StringBuilder
                    sbMeldung.AppendFormat("{0} {1} {2}", "Die Maximo-Nummer ", _
                      abfr_MAXIMO)
                    sbMeldung.AppendLine()
                    sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                      AbfrageName.Count, " mal vergeben.")
                    sbMeldung.AppendLine()
                    sbMeldung.AppendLine()
                    sbMeldung.Append("Soll die Maximo-Nr trotzdem hinzugefügt" & _
                      "werden?")
                    .lbl_Meldung.Text = sbMeldung.ToString
 
                    'Alle Wohnorte an frm_Dialog übergeben
                    .ListBox_Daten.Items.AddRange(AbfrageName.ToArray)
 
                    'frm_Dialog anzeigen
                    .ShowDialog(Me)
                End With
 
                'Abfragen, ob Ja oder Nein geklickt wurde
                Form_Rueckgabewert = Dialog_Form.return_wert
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Neue Version! sevEingabe 3.0 (für VB6 und VBA)
Das Eingabe-Control der Superlative! Noch besser und noch leistungsfähiger!
Jetzt zum Einführungspreis       - Aktionspreis nur für kurze Zeit gültig -
 ThemaViews  AutorDatum
Abfrage Vorhanden X mal190ERBRU06.10.17 10:06
Re: Abfrage Vorhanden X mal67Manfred X06.10.17 15:25
Re: Abfrage Vorhanden X mal59ERBRU06.10.17 17:28
Re: Abfrage Vorhanden X mal56Manfred X06.10.17 18:23
Re: Abfrage Vorhanden X mal56ERBRU06.10.17 18:45
Re: Abfrage Vorhanden X mal62Manfred X06.10.17 18:59
Re: Abfrage Vorhanden X mal49ERBRU07.10.17 11:05
Re: Abfrage Vorhanden X mal52ERBRU07.10.17 12:30
Re: Abfrage Vorhanden X mal58Manfred X07.10.17 13:36
Re: Abfrage Vorhanden X mal54ERBRU07.10.17 13:44
Re: Abfrage Vorhanden X mal44ERBRU08.10.17 10:31
Re: Abfrage Vorhanden X mal43effeff08.10.17 11:03
Re: Abfrage Vorhanden X mal43ERBRU08.10.17 11:57
Re: Abfrage Vorhanden X mal48effeff08.10.17 12:23
Re: Abfrage Vorhanden X mal43ERBRU08.10.17 12:39
Re: Abfrage Vorhanden X mal46effeff08.10.17 12:53
Re: Abfrage Vorhanden X mal44ERBRU08.10.17 13:20
Re: Abfrage Vorhanden X mal44ERBRU09.10.17 09:01
Re: Abfrage Vorhanden X mal46effeff09.10.17 09:28
Re: Abfrage Vorhanden X mal45ERBRU09.10.17 10:29
Re: Abfrage Vorhanden X mal45Manfred X09.10.17 12:26
Re: Abfrage Vorhanden X mal38ERBRU09.10.17 12:32
Re: Abfrage Vorhanden X mal23ERBRU11.10.17 12:35
Re: Abfrage Vorhanden X mal23Manfred X11.10.17 13:11
Re: Abfrage Vorhanden X mal18ERBRU11.10.17 13:32

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2017 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel