S
Stefan
Hello,
Some probs here.
i'm new to programming the msde
all fields in dat_contacten have default value '' and null is not allowed
when i try to add a new one with addnew property of currencymanager
and then push btnbewaar.click
i always get an error column 'namecolumn' does not allow nulls.
When i change my table and allow nulls it works. but all my empty fields are
value null .
How can i fill my empty fields with default value ('') and not with null
values
thanx in advance for the helping people
Stefan
Private Sub frmContacten_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'backcolor koppelen
Dim mycol As New clsControlBackcolor
mycol.doSet(Me)
command = New SqlCommand("select dat_contacten.* from dat_contacten", cn)
da = New SqlDataAdapter(command)
Try
da.Fill(ds, "gegevens")
da.FillSchema(ds, SchemaType.Source, "gegevens")
ds.Tables("gegevens").Columns("id").AutoIncrementSeed = -1
ds.Tables("gegevens").Columns("id").AutoIncrementStep = -1
dv = ds.Tables("gegevens").DefaultView
cbGegevens = New SqlCommandBuilder(da)
cmGegevens = CType(Me.BindingContext(dv), CurrencyManager)
Call koppel()
Catch ex As Exception
MessageBox.Show(ex.Message & vbCr & ex.Source)
End Try
End Sub
Private Sub koppel()
txtBedrijf.DataBindings.Add(New Binding("text", dv, "bedrijf"))
txtVoornaam.DataBindings.Add(New Binding("text", dv, "voornaam"))
txtNaam.DataBindings.Add(New Binding("text", dv, "naam"))
txtAdres.DataBindings.Add(New Binding("text", dv, "adres"))
txtpostcode.DataBindings.Add(New Binding("text", dv, "postcode"))
cboGemeente.DataBindings.Add(New Binding("selectedvalue", dv, "gemeente"))
txtTelPrive.DataBindings.Add(New Binding("text", dv, "tel_2"))
End Sub
Private Sub btnBewaren_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnBewaren.Click
Try
cmGegevens.EndCurrentEdit()
da.Update(ds.Tables("gegevens"))
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.Source & vbCrLf & ex.StackTrace)
End Try
End Sub
Some probs here.
i'm new to programming the msde
all fields in dat_contacten have default value '' and null is not allowed
when i try to add a new one with addnew property of currencymanager
and then push btnbewaar.click
i always get an error column 'namecolumn' does not allow nulls.
When i change my table and allow nulls it works. but all my empty fields are
value null .
How can i fill my empty fields with default value ('') and not with null
values
thanx in advance for the helping people
Stefan
Private Sub frmContacten_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'backcolor koppelen
Dim mycol As New clsControlBackcolor
mycol.doSet(Me)
command = New SqlCommand("select dat_contacten.* from dat_contacten", cn)
da = New SqlDataAdapter(command)
Try
da.Fill(ds, "gegevens")
da.FillSchema(ds, SchemaType.Source, "gegevens")
ds.Tables("gegevens").Columns("id").AutoIncrementSeed = -1
ds.Tables("gegevens").Columns("id").AutoIncrementStep = -1
dv = ds.Tables("gegevens").DefaultView
cbGegevens = New SqlCommandBuilder(da)
cmGegevens = CType(Me.BindingContext(dv), CurrencyManager)
Call koppel()
Catch ex As Exception
MessageBox.Show(ex.Message & vbCr & ex.Source)
End Try
End Sub
Private Sub koppel()
txtBedrijf.DataBindings.Add(New Binding("text", dv, "bedrijf"))
txtVoornaam.DataBindings.Add(New Binding("text", dv, "voornaam"))
txtNaam.DataBindings.Add(New Binding("text", dv, "naam"))
txtAdres.DataBindings.Add(New Binding("text", dv, "adres"))
txtpostcode.DataBindings.Add(New Binding("text", dv, "postcode"))
cboGemeente.DataBindings.Add(New Binding("selectedvalue", dv, "gemeente"))
txtTelPrive.DataBindings.Add(New Binding("text", dv, "tel_2"))
End Sub
Private Sub btnBewaren_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnBewaren.Click
Try
cmGegevens.EndCurrentEdit()
da.Update(ds.Tables("gegevens"))
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.Source & vbCrLf & ex.StackTrace)
End Try
End Sub