DBNull Fehler in der Überprüfung

a.b_om · 8. Oktober 2019, 14:03

Hallo Community

Ich habe eine Datenbank und baue ein Programm dafür. Ich bin gerade daran die Textboxen zu füllen. Leider gibt es NULL Werte in der Datenbank.
Ich habe auf verschiedenste Weise abzufragen, ob einer dieser Werte NULL ist.
Ich habe es mit IsDBNull(Feld), Feld Is DBNull, Feld Is DBNull.Value, Feld = DBNullund Feld = DBNull.Value versucht.
Ich weiss, das es mit einem = eine Exception gibt.

Bei den anderen, komme ich in mein TryCatch und gibt einen Exception aus:

Quellcode

Der Wert für Spalte Extension in Tabelle Contacts ist DBNull.

Es heisst auch, dass ich DBNull nicht in ein String konvertieren kann, aber das mache ich in meiner Abfrage nicht.

Es ist für mich total unverständlich.

VB1963 · 8. Oktober 2019, 16:58

a.b_om schrieb:

Es heisst auch, dass ich DBNull nicht in ein String konvertieren kann, aber das mache ich in meiner Abfrage nicht.

a.b_om schrieb:

Ich weiss, das es mit einem = eine Exception gibt.

Zeige von dir etwas Code, wie du es momentan versuchst...

asuryan · 8. Oktober 2019, 18:52

Ich frage DBNull bei einem typisiertem DataSet so ab:

C#-Quellcode

if(!row.IsNameNull())
{
this.txtName.Text = row.name;
}

is__name__Null() wird aus Deiner Column generiert, wobei "name" hier eben Dein Columnname ist. Kann also auch .isSomeNiceColumnNull() sein etc.

Alle anderen Versuche liefen immer auf eine Exception raus...

a.b_om · 9. Oktober 2019, 08:13

@VB1963

Das ist mein Code von der Abfrage und meinen Versuchen

Quellcode

Dim dtContacts As New DCFLEXNorthwind.ContactsDataTable
taContacts.SelectAllByID(dtContacts, ID)
Dim r As DCFLEXNorthwind.ContactsRow = dtContacts.Rows(0)
If IsNothing(r.Extension) OR r.Extension Is DBNull.Value Then
txtExtension.Text = ""
Else
txtExtension.Text = r.Extension
End If
If IsNothing(r.Extension) OR r.Extension Is DBNull Then
txtExtension.Text = ""
Else
txtExtension.Text = r.Extension
End If
If IsNothing(r.Extension) OR r.Extension = DBNull.Value Then
txtExtension.Text = ""
Else
txtExtension.Text = r.Extension
End If
If IsNothing(r.Extension) OR r.Extension = DBNull Then
txtExtension.Text = ""
Else
txtExtension.Text = r.Extension
End If
If IsNothing(r.Extension) OR IsDBNull(r.Extension) Then
txtExtension.Text = ""
Else
txtExtension.Text = r.Extension
End If

VB1963 · 9. Oktober 2019, 08:34

Wenn du typisiert vorgehst, kannst du es wie @asuryan schon bemerkte, machen...
Sonst lese einmal diesen Thread durch...

a.b_om · 9. Oktober 2019, 08:42

Ich habe es ausprobiert, es passte. Mein Freund ratete mir aber, dass ich nie in Datanbanken mit Null arbeiten soll. Er erklärte mir, dass man im Dataset, wenn man auf eine Spalte klickt, dass man bei den Eigenschaften das NullValue auf (Empty) stellen kann. Ich weiss, dass ich so nur das Problem umgehe, aber für die, die Null-Problematik umgehen wollen, ist diese Lösung leichter, weil das nächste Problem dieses DBNull in die Tabelle zu speichern ist. Das funktionierte bei mir nicht. Jetzt speichere ich einfach einen leeren String in die Tabelle.

chrlinker · 9. Oktober 2019, 10:08

Hast du schon einmal IsDBNull = True oder False probiert?
Bei mir funktioniert dieses gut.

a.b_om · 9. Oktober 2019, 10:48

Wie schon gesagt, löse ich das jetzt anders. Sonst hätte mir der Beitrag von @asuryan schon geholfen. Das andere Problem, das ich danach hatte, ist bei Post 6 erwähnt worden.

VB1963 · 9. Oktober 2019, 12:12

a.b_om schrieb:

Das andere Problem, das ich danach hatte, ist bei Post 6 erwähnt worden.

Hast du jetzt immer noch ein Problem?

a.b_om · 9. Oktober 2019, 12:17

Nein, weil ich jetzt einen leeren String in die Tabelle speichere, aber es wäre schön die Lösung des Problems zu wissen, damit ich nicht um das Problem herumbauen muss. Diese Methode mit dem leeren String, ist nur eine Übergangslösung.

VB1963 · 9. Oktober 2019, 12:42

Verwende eine Bindingsource zwischen Daten und Control - und binde deine Textbox einfach an die Daten...

a.b_om · 9. Oktober 2019, 12:53

Das habe ich schon, aber es klappt trotzdem nicht.

VB1963 · 9. Oktober 2019, 13:54

Wenn wir dir da helfen sollen, musst du etwas mehr von deinem Projekt herzeigen - sonst wird's nur eine Raterei...

a.b_om · 9. Oktober 2019, 15:24

Mein Klassencode(kompletter Load und Speicher Funktion):
Sieht nach viel aus, ist es eigentlich nicht. Sind nur viele If und Else.

So ist es mit dem Herumbauen.

Spoiler anzeigen

Quellcode

Public Class frmNew_EditContact
Public Action As String
Public ID As Integer
Private IsSpeichernErfolgreich As Boolean = False
Private Sub frmNew_EditContact_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.Text = Action & " Contact"
laTitel.Text = Action & " Contact"
cmbType.Items.Add("Customer")
cmbType.Items.Add("Supplier")
cmbType.Items.Add("Employee")
cmbType.Items.Add("Shipper")
cmbType.Items.Add("")
If Action = "Edit" Then
laID.Visible = True
txtID.Visible = True
Dim dtContacts As New DCFLEXNorthwind.ContactsDataTable
taContacts.SelectAllByID(dtContacts, ID)
Dim r As DCFLEXNorthwind.ContactsRow = dtContacts.Rows(0)
txtID.Text = Convert.ToString(ID)
If r.ContactType Is DBNull.Value Then
cmbType.SelectedItem = ""
Else
cmbType.SelectedItem = r.ContactType
End If
If r.CompanyName Is DBNull.Value Then
txtCompany.Text = ""
Else
txtCompany.Text = r.CompanyName
End If
If r.ContactName Is DBNull.Value Then
txtName.Text = ""
Else
txtName.Text = r.ContactName
End If
If r.ContactTitle Is DBNull.Value Then
txtTitle.Text = ""
Else
txtTitle.Text = r.ContactTitle
End If
If r.Address Is DBNull.Value Then
txtAddress.Text = ""
Else
txtAddress.Text = r.Address
End If
If r.City Is DBNull.Value Then
txtCity.Text = ""
Else
txtCity.Text = r.City
End If
If r.PostalCode Is DBNull.Value Then
txtPostalCode.Text = ""
Else
txtPostalCode.Text = r.PostalCode
End If
If r.Country Is DBNull.Value Then
txtCountry.Text = ""
Else
txtCountry.Text = r.Country
End If
If r.Phone Is DBNull.Value Then
txtPhone.Text = ""
Else
txtPhone.Text = r.Phone
End If
If r.Extension Is DBNull.Value Then
txtExtension.Text = ""
Else
txtExtension.Text = r.Extension
End If
If r.Fax Is DBNull.Value Then
txtFax.Text = ""
Else
txtFax.Text = r.Fax
End If
If r.HomePage Is DBNull.Value Then
txtHomepage.Text = ""
Else
txtHomepage.Text = r.HomePage
End If
Else
laID.Visible = False
txtID.Visible = False
End If
Catch ex As Exception
End Try
End Sub
Private Sub Speichern()
Try
Dim companyWithoutSpace As String = txtCompany.Text.Trim
If txtCompany.Text = "" Or companyWithoutSpace = "" Then
If MessageBox.Show("Is the company unknown?", "Unknown company?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = MsgBoxResult.Yes Then
txtCompany.Text = "Unknown"
Else
MessageBox.Show("Please enter a company!")
IsSpeichernErfolgreich = False
Exit Sub
End If
End If
Dim taContacts As New DCFLEXNorthwindTableAdapters.ContactsTableAdapter
Dim dtContacts As New DCFLEXNorthwind.ContactsDataTable
If Action = "Edit" Then
Dim Type As Object
Dim Company As Object
Dim Name As Object
Dim Title As Object
Dim Address As Object
Dim City As Object
Dim PostalCode As Object
Dim Country As Object
Dim Phone As Object
Dim Extension As Object
Dim Fax As Object
Dim HomePage As Object
If cmbType.Text = "" Then
Type = ""
Else
Type = cmbType.Text
End If
If txtCompany.Text = "" Then
Company = ""
Else
Company = txtCompany.Text
End If
If txtName.Text = "" Then
Name = ""
Else
Name = txtName.Text
End If
If txtTitle.Text = "" Then
Title = ""
Else
Title = txtTitle.Text
End If
If txtAddress.Text = "" Then
Address = ""
Else
Address = txtAddress.Text
End If
If txtCity.Text = "" Then
City = ""
Else
City = txtCity.Text
End If
If txtPostalCode.Text = "" Then
PostalCode = ""
Else
PostalCode = txtPostalCode.Text
End If
If txtCountry.Text = "" Then
Country = ""
Else
Country = txtCountry.Text
End If
If txtPhone.Text = "" Then
Phone = ""
Else
Phone = txtPhone.Text
End If
If txtExtension.Text = "" Then
Extension = ""
Else
Extension = txtExtension.Text
End If
If txtFax.Text = "" Then
Fax = ""
Else
Fax = txtFax.Text
End If
If txtHomepage.Text = "" Then
HomePage = ""
Else
HomePage = txtHomepage.Text
End If
taContacts.UpdateContacts(Type, Company, Name, Title, Address, City, PostalCode, Country, Phone, Extension, Fax, HomePage, ID)
Else
Dim dtNewRw As DCFLEXNorthwind.ContactsRow = dtContacts.NewRow
With dtNewRw
.ContactType = cmbType.SelectedItem
.CompanyName = txtCompany.Text
.ContactName = txtName.Text
.ContactTitle = txtTitle.Text
.Address = txtAddress.Text
.City = txtCity.Text
.PostalCode = txtPostalCode.Text
.Country = txtCountry.Text
.Phone = txtPhone.Text
.Extension = txtExtension.Text
.Fax = txtFax.Text
.HomePage = txtHomepage.Text
End With
dtContacts.Rows.Add(dtNewRw)
taContacts.Update(dtContacts)
taContacts.FillContacts(dtContacts)
bsContacts.MoveLast()
End If
Validate()
bsContacts.EndEdit()
TableAdapterManager.UpdateAll(DCFLEXNorthwind)
IsSpeichernErfolgreich = True
Catch ex As Exception
End Try
End Sub
Private Sub cmdSave_Click(sender As Object, e As EventArgs) Handles cmdSave.Click
Try
'Speichern
Catch ex As Exception
End Try
End Sub
Private Sub cmdCancel_Click(sender As Object, e As EventArgs) Handles cmdCancel.Click
Try
'Cancel
Catch ex As Exception
End Try
End Sub
Private Sub cmdClose_Click(sender As Object, e As EventArgs) Handles cmdClose.Click
Try
'Close
Catch ex As Exception
End Try
End Sub
End Class

VB1963 · 9. Oktober 2019, 17:58

a.b_om schrieb:

So ist es mit dem Herumbauen.

Hast du dir das Dataset schon einmal angeschaut?
Da wird vieles in Tutorials vom @ErfinderDesRades in der Rubrik Datenbanken hergezeigt, wie es besser geht...

Du musst auch CodeTag für VB in deinem Listing anwenden, damit dein Code besser lesbar wird!

a.b_om · 10. Oktober 2019, 09:06

Gut, ich werde es durchlesen und dann bescheid geben, ob es bei mir funktionierte. Das könnte ein bisschen Länger dauern.

Edit:

Tut mir leid, ich hole das nach.

Rattenfänger · 10. Oktober 2019, 16:54

Versuch mal

VB.NET-Quellcode

dim SelectedRow as Datarow = Tabelle.Row(0)
If not isdbnull(selectedRow("Spaltenname")) then
End If

und natürlich Option Strict ON!!!

VB1963 · 10. Oktober 2019, 18:28

besser so:

VB.NET-Quellcode

If Not YourDataRow.IsNull("YourColumnName") Then
YourDataRow("YourColumnName") 'hier damit etwas tun...
End If

a.b_om · 16. Oktober 2019, 12:19

Danke. Es hat geklappt.

DBNull Fehler in der Überprüfung

DBNull Fehler in der Überprüfung

Quellcode

a.b_om schrieb:

a.b_om schrieb:

C#-Quellcode

Quellcode

a.b_om schrieb:

Quellcode

a.b_om schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben