所以我正在尝试创建一个表单,使用Microsoft Access更新与数据库中的其他数据表一起保存的数据表,但不创建访问中的程序。当我运行程序并单击“创建”时,会弹出“该列不存在”的错误
即使我检查解决方案资源管理器时,它显示我已连接且右列存在
与此相关的代码是:
Private m_cn As New SqlConnection
Private m_daQuotes As SqlDataAdapter
Private m_daData As SqlDataAdapter
Private m_daUsers As SqlDataAdapter
Private m_cbQuotes As SqlCommandBuilder
Private m_cbData As SqlCommandBuilder
Private m_cbUsers As SqlCommandBuilder
Private m_dtQuotes As New DataTable
Private m_dtData As New DataTable
Private m_dtUsers As New DataTable
Private m_rpQuotes As Integer = 1
Private m_rpData As Integer = 1
Private m_rpUsers As Integer = 1
Private m_drQuotes As DataRow
Private m_drData As DataRow
Private m_drUsers As DataRow
Private neededPassword As String
Private Sub fMainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
m_cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\kophazi\Documents\Databases\Customer Quotes Log Database.accdb"
m_daQuotes = New SqlDataAdapter("Select * from Quotes", m_cn)
m_daData = New SqlDataAdapter("Select * from Data", m_cn)
m_daUsers = New SqlDataAdapter("Select * from Users", m_cn)
m_cbQuotes = New SqlCommandBuilder(m_daQuotes)
m_cbData = New SqlCommandBuilder(m_daData)
m_cbUsers = New SqlCommandBuilder(m_daUsers)
m_daQuotes.Fill(m_dtQuotes)
m_daData.Fill(m_dtData)
m_daUsers.Fill(m_dtUsers)
Private Sub btnpOCreateNew_Click(sender As Object, e As EventArgs) Handles btnpOCreateNew.Click
Dim userNewRow As DataRow = m_dtUsers.NewRow()
userNewRow("username") = txtpOName.Text
userNewRow("Password") = txtpOPassword.Text
m_dtUsers.Rows.Add(userNewRow)
m_daUsers.Update(m_dtUsers)
End Sub