在 VB 窗体和 Access DB 之间创建连接

Question

您好，我正在尝试使用 VB express 2010 创建前端用户表单

我已经使用 excel 用户表单和 VBA 完成了这项工作，但大家一致认为这不是一个好主意。我只需要在 Visual Basic 的语法上轻推一下。这是我有连接子的代码是我来自 VBA 的代码。我也不确定我使用的是 VB6 还是 VB.Net

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Part As Integer, Job As Integer, Emp As Integer, Weight As Integer, Oven As Integer

        Part = TextBox1.Text
        Job = TextBox2.Text
        Emp = TextBox3.Text
        Weight = TextBox4.Text
        Oven = TextBox5.Text

        Update()
    End Sub

    Sub Update()
        Using cnn = New OleDBConnection (Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;
Persist Security, Info=False;)
            cnn.Open()
            Dim StrSql = "SELECT * FROM Foam WHERE FoamID = ?"
            Using cmd = New OleDbCommand(StrSql, cnn)
                cmd.Parameters.AddWithValue("@p1", )
                Using reader = cmd.ExecuteReader()
                    If Not reader.HasRows Then
                        reader.Close() ' close because the connection cannot serve a command while reader is open

                        ' no match found; add new record .....USING PARAMETERS.....
                        StrSql = "INSERT INTO Foam VALUES(?,?,?,?,?,?,?,?)"
                        Using insCmd = New OleDbCommand(SqSql, cnn)
                            cmd.Parameters.AddWithValue("@p1", ID)
                            cmd.Parameters.AddWithValue("@p2", Part)
                            cmd.Parameters.AddWithValue("@p3", Job)
                            cmd.Parameters.AddWithValue("@p4", Emp)
                            cmd.Parameters.AddWithValue("@p5", Weight)
                            cmd.Parameters.AddWithValue("@p6", Oven)
                            cmd.ExecuteNonQuery()
                        End Using
                    Else
                        reader.Close()

                    End If
                End Using
            End Using
        End Using
    End Sub
End Class

这是我更新的代码；我无法让新的 OleDB 连接工作。我认为我的连接字符串没问题。这应该可以更好地了解我想要完成的任务的性质。

Answer 1

一个可能的答案，但太多细节不够清楚。

首先您需要一个连接字符串，然后您需要创建检查记录是否存在的命令，如果没有找到插入值的新命令。 当你发现记录不够清楚时你想做什么。

Sub Update()
    Using cnn = New OleDbConnection(....a connection string is needed here ....)
        cnn.Open()
        Dim StrSql = "SELECT * FROM Foam WHERE FoamID = ?"
        Using cmd = new OleDbCommand(StrSql, cnn) 
          cmd.Parameters.AddWithValue("@p1", F1)
          Using reader = cmd.ExecuteReader()
            if Not reader.HasRows
                reader.Close() ' close because the connection cannot serve a command while reader is open

                ' no match found; add new record .....USING PARAMETERS.....
                StrSql = "INSERT INTO Foam VALUES(?,?,?,?,?,?,?,?)"
                Using insCmd = new OleDbCommand(SqSql, cnn)
                     cmd.Parameters.AddWithValue("@p1", F1)
                     cmd.Parameters.AddWithValue("@p2", F2)
                     cmd.Parameters.AddWithValue("@p3", F3)
                     cmd.Parameters.AddWithValue("@p4", F4)
                     cmd.Parameters.AddWithValue("@p5", F5)
                     cmd.Parameters.AddWithValue("@p6", F6)
                     cmd.Parameters.AddWithValue("@p7", DateTime.Today)
                     cmd.Parameters.AddWithValue("@p8", BnWeight)
                     cmd.ExecuteNonQuery()
                End Using
            Else
                reader.Close()
                ' matching record found; update it
                ?????? 
            End If
         End Using
      End Using
    End Using
End Sub

我建议在 ADO.NET walkthrough 上搜索 MSDN，因为数据访问代码与 VB6 和 VBA 中使用的 ADO 模型有很大不同