新建.exe工程MyApp,新建数据环境MyDev,将连接名改为MyCon,设置MyCon属性(连接向导)连上数据库,在Form1.Load事件中写 MyDev.MyCon.Open() Dim rstTmp as new RecordSet set rstTmp=MyDev.MyCon.Exec("Select * from MtTable") ....
你要做什么?只是打开的话,我习惯这样写 AddCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Info.mdb" & ";Persist Security Info=False" V4 = Reg.ReadKey("Software\TV_Inspect_BB", "ServerName") Set TVinfo = New ADODB.Connection On Error Resume Next TVinfo.Open AddCon If Err = -2147467259 Then MsgBox "无法连接服务器,请稍后再试!", vbOKOnly + vbCritical, "Error" Exit Sub End If Set BBKsave1 = New ADODB.Recordset Set BBKtemp = New ADODB.Recordset BBKsave1.CursorLocation = adUseClient BBKsave1.CursorType = adOpenKeyset BBKsave1.LockType = adLockOptimistic BBKtemp.CursorLocation = adUseClient BBKtemp.CursorType = adOpenKeyset BBKtemp.LockType = adLockOptimistic BBKtemp.Open "BBK_TEMP", TVinfo, , , adCmdTable不过不同情况,打开的方式也不大一样
在打开的对话框里选<vb数据窗体向导>,一步一步的往下,就可以得到一个完整的ADO控制连接数据库的窗口例子(是不是很容易)。注意在第四步选<ADO代码>你就可以看到完全用ADO对象的连接方法了
MyDev.MyCon.Open()
Dim rstTmp as new RecordSet
set rstTmp=MyDev.MyCon.Exec("Select * from MtTable")
....
AddCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Info.mdb" & ";Persist Security Info=False"
V4 = Reg.ReadKey("Software\TV_Inspect_BB", "ServerName") Set TVinfo = New ADODB.Connection
On Error Resume Next
TVinfo.Open AddCon
If Err = -2147467259 Then
MsgBox "无法连接服务器,请稍后再试!", vbOKOnly + vbCritical, "Error"
Exit Sub
End If
Set BBKsave1 = New ADODB.Recordset
Set BBKtemp = New ADODB.Recordset
BBKsave1.CursorLocation = adUseClient
BBKsave1.CursorType = adOpenKeyset
BBKsave1.LockType = adLockOptimistic
BBKtemp.CursorLocation = adUseClient
BBKtemp.CursorType = adOpenKeyset
BBKtemp.LockType = adLockOptimistic
BBKtemp.Open "BBK_TEMP", TVinfo, , , adCmdTable不过不同情况,打开的方式也不大一样
不过连我自己都看不懂
要的话
E-Mail