VB2010操作ACCESS数据库

Public AccessConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & https://www.wendangku.net/doc/cd5885098.html,.DirectoryPath & "\Note.mdb;" & _
"Persist Security Info=False"


=========================添加数据========================================
Try
Dim AccessString As String = "INSERT INTO UserTable(姓名) VALUES(" & ")"
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessCmd As OleDbCommand = New OleDbCommand(AccessString, AccessConn)
AccessCmd.ExecuteNonQuery()
AccessConn.Close()
Catch AccessException As Exception
MsgBox(AccessException.Message, , sender.text)
End Try

=========================读取数据=========================================
Try
Dim AccessString As String = "SELECT * FROM 图库 WHERE 路径=" & "'" & Dir_TreeView.SelectedNode.FullPath & "'"
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn)
AccessConn.Close()
Dim TempDataSet As New DataSet
AccessAdapter.Fill(TempDataSet)
PicCount = TempDataSet.Tables(0).Rows.Count
If PicCount = 0 Then Exit Try
PicCStr = "," & PicCount.ToString
Catch AccessException As Exception
MsgBox(AccessException.Message, , sender.text)

End Try

===========================更新数据==========================
Try
Dim AccessString As String = "UPDATE 记录 SET 格式=" & 清除格式_ToolStrip.Checked & " WHERE 路径='" & NodePath & "'"
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessCmd As OleDbCommand = New OleDbCommand(AccessString, AccessConn)
AccessCmd.ExecuteNonQuery()
AccessConn.Close()
Catch AccessException As Exception
MsgBox(AccessException.Message, , sender.text)

End Try

========================删除数据===================================
Try
Dim AccessString As String = "DELETE FROM 记录 WHERE 路径=" & "'" & NodePath & "'"
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessCmd As OleDbCommand = New OleDbCommand(AccessString, AccessConn)
AccessCmd.ExecuteNonQuery()
AccessConn.Close()
Catch AccessException As Exception
MsgBox(AccessException.Message, , sender.text)
End Try