DevTrain Startseite Advanced Developers Conference vom 14.-15. Februar 2011  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren



 

Forum: VB.NET | Thema: CheckBox an Datenbank | Von:  ( 05.12.2007 12:11)

Hallo Leute, bin Neuling in der .Net Welt komme aus dem C++ Builder Universum von Borland. Will mich aber jetzt langsam mal umstellen.Also folgende Frage: Ich verwende folgenden Code um eine Checkbox an ein Feld in dr Datenbank anzubinden.
Das Feld ist Integer. Es wird 0 oder 1 eingetragen.
Leider funktioniert es nicht, ich kann einfach den Fehler nicht Finden. 'bsUser = BindingSource
Dim b_checked As New Binding("CheckState", bsUser, "usr_standart")

AddHandler b_checked.Format, AddressOf IntToChecked
AddHandler b_checked.Parse, AddressOf CheckedToInt
cbStandart.DataBindings.Add(b_checked)


End Sub

Private Sub IntToChecked(ByVal sender As Object, ByVal cevent As ConvertEventArgs)

If cevent.Value Is System.DBNull.Value Then
cevent.Value = CheckState.Indeterminate
Else
Select Case cevent.Value
Case 0
cevent.Value = CheckState.Unchecked
Case 1
cevent.Value = CheckState.Checked
Case Else
cevent.Value = CheckState.Indeterminate
End Select
End If
End Sub

Private Sub CheckedToInt(ByVal sender As Object, ByVal cevent As ConvertEventArgs)

Select Case True
Case cevent.Value = CheckState.Unchecked
cevent.Value = 0
Case cevent.Value = CheckState.Checked
cevent.Value = 1
Case cevent.Value = CheckState.Indeterminate
cevent.Value = System.DBNull.Value
End Select
End Sub



Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!

 Betreff:
 Nachricht: Den Beitrag finden Sie nun unter: http://beta.devtrain.de/foren Die Benutzerdaten und Foreninhalte von beta.devtrain.de und www.devtrain.de sind die selben.
Sie können sich dort sogar per RSS über neue Inhalte informieren lassen.
Bei Problemen bitte direkt Mail an asp [AT] ppedv.de.

 Signatur:

  



Login
Username:


Passwort:






Passwort vergessen?

Building und Connecting Know-how

© Copyright 2003 ppedv AG