I am writing a VB.NET program to update (add & save) database in runtime.The database (MS SQL Server 7) is “customertracking” with the following fields: custid(primary key), fname, lname, address,phone,email
My form design has the following:
6 Labels (Customer ID, First Name, Last Name, Address, Phone, Email)
6 Textboxes for the corresponding labels
4 Buttons (ViewFirstRecord, ViewNextRecord, ViewPreviousRecord, ViewLastRecord)
2 more Buttons (Add, Save)
I am getting the error, “Update requires a valid InsertCommand when passed DataRow collection with new rows.” under Private sub Save_Click…
Please debug.
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
TextBox6.Text = " "
flag = 1
Dim ctr, len As Integer
Dim cid, cidval As String
dt = ds.Tables("customertracking")
len = (dt.Rows.Count - 1)
dr = dt.Rows(len)
cid = dr("custid")
cidval = Mid(cid, 2, 3)
ctr = CInt(cidval)
If ctr >= 1 And ctr < 9 Then
ctr = ctr + 1
TextBox1.Text = "C00" & ctr
ElseIf ctr >= 9 And ctr < 99 Then
ctr = ctr + 1
TextBox1.Text = "C0" & ctr
ElseIf ctr >= 99 Then
ctr = ctr + 1
TextBox1.Text = "C" & ctr
End If
TextBox1.Enabled = False
End Sub
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
If flag = 1 Then
dt = ds.Tables("customertracking")
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr(3) = TextBox4.Text
dr(4) = TextBox5.Text
dr(5) = TextBox6.Text
dt.Rows.Add(dr)
TextBox1.Enabled = True
flag = 0
Dim adapter As New OleDb.OleDbDataAdapter("insert into customertracking", cn)
adapter.Update(ds, "customertracking")
adapter.Fill(ds)
bm.Position = 0
End Sub
End Class
My form design has the following:
6 Labels (Customer ID, First Name, Last Name, Address, Phone, Email)
6 Textboxes for the corresponding labels
4 Buttons (ViewFirstRecord, ViewNextRecord, ViewPreviousRecord, ViewLastRecord)
2 more Buttons (Add, Save)
I am getting the error, “Update requires a valid InsertCommand when passed DataRow collection with new rows.” under Private sub Save_Click…
Please debug.
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
TextBox6.Text = " "
flag = 1
Dim ctr, len As Integer
Dim cid, cidval As String
dt = ds.Tables("customertracking")
len = (dt.Rows.Count - 1)
dr = dt.Rows(len)
cid = dr("custid")
cidval = Mid(cid, 2, 3)
ctr = CInt(cidval)
If ctr >= 1 And ctr < 9 Then
ctr = ctr + 1
TextBox1.Text = "C00" & ctr
ElseIf ctr >= 9 And ctr < 99 Then
ctr = ctr + 1
TextBox1.Text = "C0" & ctr
ElseIf ctr >= 99 Then
ctr = ctr + 1
TextBox1.Text = "C" & ctr
End If
TextBox1.Enabled = False
End Sub
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
If flag = 1 Then
dt = ds.Tables("customertracking")
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr(3) = TextBox4.Text
dr(4) = TextBox5.Text
dr(5) = TextBox6.Text
dt.Rows.Add(dr)
TextBox1.Enabled = True
flag = 0
Dim adapter As New OleDb.OleDbDataAdapter("insert into customertracking", cn)
adapter.Update(ds, "customertracking")
adapter.Fill(ds)
bm.Position = 0
End Sub
End Class
