VB ADO 处理数据库并发请求

VB ADO 处理数据库并发请求

Dim db As New ADODB.Connection, RS As New ADODB.Recordset
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\数据库名.mdb"
db.Open
strSQL = "select * from 数据表名 order by id desc"
RS.Open strSQL, db, 3, 3(读取时后面3， 3可以修改为1， 1，但是添加、修改、删除必须是3，3)
1、RS.AddNew 是添加新记录语句
2、 ...... 添加或更新内容，例如RS("BT")=BT，其中括号中的BT是字段名，等号后面的BT是待更新的变量值。
3、RS.UpDate 是更新记录，更新的含义包括添加和修改，因此在添加记录时必须同时有RS.AddNew语句和RS.UpDate语句，而修改记录仅仅需要RS.UpDate语句。
4、RS.Delete 是删除记录的语句
5、最后别忘了关闭对象：
RS.Close
db.Close OK

把recordset的锁定方式设置好，就能处理了。不过ACCESS的多用户功能确实较差。推荐升到sqlserver或msde.

给你一些参考希望对你有用。

程式包括“新增，删除，编辑，储存，取消和查询代码。
例如在Form中设置3个Textbox和5个CommandButton
分别为

Textbox=Date(txtdate),Items(txtitems),Price(txtprice).

CommandButton = 新增(cmdadd),储存(cmdsave),删除(cmddelete),
取消新增(cmdcancel),编辑(cmdedit).

以下三段写在General(一般)事件里
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mode as string

Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"Persist security info= False; Data source=" & App.Path & "\daily.mdb"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Daily", cn, adOpenKeyset, adLockPessimistic (Daily为Access 资料表名)

For i = 0 To rs.Fields.Count - 1
List1.AddItem rs.Fields(i).Name
Next i
End Sub

以下自作函数以便文本栏显示资料表资料
Sub LoadControls()
If rs.BOF = False And rs.EOF = False Then
txtdate = rs.Fields("Date")
txtitems = rs.Fields("Items")
txtprice = rs.Fields("Price")
End If
End Sub

以下为新增按钮代码
Private Sub cmdadd_Click()
mode = "add"
txtdate.Text = CStr(Date) （显示系统今天日期）
txtitems.SetFocus
txtitems = ""
txtprice = ""
End Sub

以下为编辑按钮代码
Private Sub cmdedit_Click()
mode = "edit"
Call LoadControls
txtdate.SetFocus
End Sub

以下为删除按钮代码
Private Sub cmddelete_Click()
If rs.EOF = False Then
X = MsgBox("Do you want to delete this record", vbExclamation + vbYesNo)
If X = vbYes Then
rs.Delete
rs.Requery
Call LoadControls
Else
Exit Sub
End If
End If
End Sub

以下为储存按钮代码
Private Sub cmdsave_Click()
If mode = "add" Then
rs.AddNew
rs.Fields("Date") = txtdate
rs.Fields("Items") = txtitems
rs.Fields("Price") = txtprice
rs.Update
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
rs.Requery
txtdate.SetFocus
Call LoadControls
Exit Sub
End If
End Sub

If mode = "edit" Then
rs.Fields("Date") = txtdate
rs.Fields("Items") = txtitems
rs.Fields("Price") = txtprice
rs.Update
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
rs.Requery
txtdate.SetFocus
Call LoadControls
Exit Sub
End If

以下为取消新增按钮代码
Private Sub Cmdcancel_Click()
Call LoadControls
End Sub
-------------------------------
查询：
在form加上1个Textbox,1个commmandbutton和1个Listbox
Textbox=txtfind
CommandButton=cmdsearch
ListBox=List1

可查询日期，文字和数字.
Private Sub cmdsearch_Click()
Select Case rs.Fields(List1.ListIndex).Name
Case "Items"
SQL = "select * from Table Name where Items=" & "'" & txtfind.Text & "'"
Case "Price"
SQL = "select * from Table Name where Price=" & txtfind.Text
Case "Date"
SQL = "select * from Table Name where Date = #" & txtfind.Text & "#"
End Select

If rs.State = adStateOpen Then rs.Close
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
End Sub

放心吧，ADO已经帮你做好了，你只管添加删除就是了，
不过要加 on error语句，防止同时访问同一条记录时出错崩溃