I am trying to learn VB .NET again. Have not used in a long time. I have bound my controls to my datatable and then I put values into the controls, I then have a button that I am trying to get to add/update the rows to the database. It acts like it works fine no errors or anything, but whn I look at the table data after the update, it is all null... ugg.. can someone please look at my code and tell me what I am doing wrong?
Dim conn As SqlCeConnection
Dim da As SqlCeDataAdapter
Dim dtAcct As New DataTable("Account")
Dim dtAcctType As New DataTable("AccountType")
Private Sub frmAccount_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd As New System.Data.SqlServerCe.SqlCeCommand
Dim cmd1 As String = "SELECT * FROM Account"
Dim da2 As New SqlCeDataAdapter
conn = New SqlCeConnection("Data Source=C:\Documents and Settings\Owner\Desktop\Finances\HomeComplete\Databases\HomeComplete.sdf")
conn.Open()
cmd.Connection = conn
da = New SqlCeDataAdapter(cmd1, conn)
Dim cmdBuild As SqlCeCommandBuilder = New SqlCeCommandBuilder(da)
da.Fill(dtAcct)
cmd.CommandText = "SELECT * FROM AccountType"
da2 = New SqlCeDataAdapter(cmd)
da2.Fill(dtAcctType)
txtAcctName.DataBindings.Add("Text", dtAcct, "AcctName")
txtPhone.DataBindings.Add("Text", dtAcct, "AcctPh")
dtOpenDate.DataBindings.Add("Text", dtAcct, "AcctOpenDate")
dtCloseDate.DataBindings.Add("Text", dtAcct, "AcctCloseDate")
chkActive.DataBindings.Add("checked", dtAcct, "AcctActive")
txtWeb.DataBindings.Add("Text", dtAcct, "AcctWebAddress")
txtID.DataBindings.Add("Text", dtAcct, "AcctWebID")
txtPW.DataBindings.Add("Text", dtAcct, "AccteWebPWord")
txt1.DataBindings.Add("Text", dtAcct, "AcctBillAddr1")
txt2.DataBindings.Add("Text", dtAcct, "AcctBillAddr2")
txtCity.DataBindings.Add("Text", dtAcct, "AcctBillCity")
txtSt.DataBindings.Add("Text", dtAcct, "AcctBillSt")
txtZip.DataBindings.Add("Text", dtAcct, "AcctBillZip")
cboType.DataSource = dtAcctType
cboType.DisplayMember = "AcctType"
cboType.ValueMember = "AcctTypeID"
cboType.DataBindings.Add("SelectedValue", dtAcct, "AcctTypeID")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
conn.Open()
Catch
End Try
Dim cmd1 As String = "SELECT * FROM Account"
da = New SqlCeDataAdapter(cmd1, conn)
Dim cmdBuild As SqlCeCommandBuilder = New SqlCeCommandBuilder(da)
da.UpdateCommand = cmdBuild.GetUpdateCommand
da.InsertCommand = cmdBuild.GetInsertCommand
da.DeleteCommand = cmdBuild.GetDeleteCommand
da.Update(dtAcct)
End Sub