Lid |
|
sql, euhm geen foutmeldingen, kzal ff mijn script geven.
dbconn.Open()
wnInsertComm = New SqlCommand
wnInsertComm.Connection = dbconn
wnInsertComm.CommandType = CommandType.Text
Dim telLand As String
If ddlland.SelectedValue.ToString = "nederland" Then
telLand = Label6.Text & txtwntel.Text.Substring(1)
Else
telLand = txtwntel.Text
End If
wnInsertComm.CommandText = "insert into werknemers(naam,adres,land,postcode, postbus,gemeente,tel,gsm,email)" & _
"values('" & txtwnnaam.Text & "','" & txtwnAdres.Text & "','" & _
ddlland.SelectedItem.ToString & "','" & txtwnpc.Text & "','" & txtwnpb.Text & "','" & txtwngem.Text & _
"','" & telLand & "','" & txtwngsm.Text & "','" & _
txtwnemail.Text & "')"
wnInsertDa.InsertCommand = wnInsertComm
wnInsertDr = wnInsertComm.ExecuteReader
'klantDr.Close()
If wnInsertDr.RecordsAffected <> 1 Then
MessageBox.Show("error", "foutje", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
Else
MessageBox.Show("Record is toegevoegd", "Gelukt", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
ddlland.Visible = False
txtland.Visible = True
btndelete.Enabled = True
butnieuwWn.Enabled = True
btnAddwn.Visible = False
btncancel.Visible = False
btnWijzig.Enabled = True
lblnaaminsert.Visible = False
txtwnnaam.Visible = False
lblNaam.Visible = True
btnNext.Enabled = True
btnPrev.Enabled = True
Label6.Visible = False
End If
wnInsertDr.Close()
dbconn.Close()
check_aantal()
End Sub
-----------------------------------------------------------------------------------------------
Sub check_aantal()
Response.Redirect("werknemers.aspx")
dbconn.Open()
check_aantal_comm.Connection = dbconn
check_aantal_comm.CommandType = CommandType.Text
check_aantal_comm.CommandText = "select count(*) as aantal from werknemers"
check_aantal_dr = check_aantal_comm.ExecuteReader
While check_aantal_dr.Read
If check_aantal_dr.Item("aantal") = 0 Then
putdata(-1)
Else
putdata(0)
End If
End While
check_aantal_dr.Close()
dbconn.Close()
End Sub
dbconn.Open() wnInsertComm = New SqlCommand wnInsertComm.Connection = dbconn wnInsertComm.CommandType = CommandType.Text Dim telLand As String If ddlland.SelectedValue.ToString = "nederland" Then telLand = Label6.Text & txtwntel.Text.Substring(1) Else telLand = txtwntel.Text wnInsertComm .CommandText = "insert into werknemers(naam,adres,land,postcode, postbus,gemeente,tel,gsm,email)" & _ "values('" & txtwnnaam .Text & "','" & txtwnAdres .Text & "','" & _ ddlland .SelectedItem .ToString & "','" & txtwnpc .Text & "','" & txtwnpb .Text & "','" & txtwngem .Text & _ "','" & telLand & "','" & txtwngsm .Text & "','" & _ txtwnemail.Text & "')" wnInsertDa.InsertCommand = wnInsertComm wnInsertDr = wnInsertComm.ExecuteReader 'klantDr.Close() If wnInsertDr.RecordsAffected <> 1 Then MessageBox.Show("error", "foutje", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification) Else MessageBox.Show("Record is toegevoegd", "Gelukt", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification) ddlland.Visible = False txtland.Visible = True btndelete.Enabled = True butnieuwWn.Enabled = True btnAddwn.Visible = False btncancel.Visible = False btnWijzig.Enabled = True lblnaaminsert.Visible = False txtwnnaam.Visible = False lblNaam.Visible = True btnNext.Enabled = True btnPrev.Enabled = True Label6.Visible = False End If wnInsertDr.Close() dbconn.Close() check_aantal() End Sub ----------------------------------------------------------------------------------------------- Sub check_aantal() Response.Redirect("werknemers.aspx") dbconn.Open() check_aantal_comm.Connection = dbconn check_aantal_comm.CommandType = CommandType.Text check_aantal_comm.CommandText = "select count(*) as aantal from werknemers" check_aantal_dr = check_aantal_comm.ExecuteReader While check_aantal_dr.Read If check_aantal_dr.Item("aantal") = 0 Then putdata(-1) Else putdata(0) End If End While check_aantal_dr.Close() dbconn.Close() End Sub
die putdata() is een dataset die mijn gegevens gaat resetten zodat het eerste record in de textboxen getoond wordt.
ik krijg dus geen fouten, zowel niet local als online, maar als ik bv dus nu save dan voegt hij die code toe, maar normaal moeten alle velden terug gedisabled worden en teruggegaan worden naar het eerste record. dat doet em niet. hij blijft gewoon lopen, allé het groene balkske onderaan geraakt tot 5blokjes en staat dan stil als ik dan op een andere knop klik (die een DB connectie maakt in zijn pagina) werkt die ook niet, die blijft ook zo stil staan na 5 blokjes...
hopelijk kan iemand me zsm helpen!!!!
greetz wickedsid |