0

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
2
Contributors
1
Reply
3
Views
8 Years
Discussion Span
Last Post by WaterboyVB
0

Hi All,

Has anyone figured this out? I currently have the same issue, when I attempt an INSERT INTO or UPDATE it updates a dataset and not the SQL CE Server itself.

Any help is appreciated.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.