一个ADO的问题 请大家帮忙啊
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Public Function ConnectString() _
As String
'returns a DB ConnectString
ConnectString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=f:\db1.mdb;Pers
ist Security Info=False"
End Function
Private Sub Command1_Click()
rst.MoveLast
Text2= rst.RecordCount
End Sub
Private Sub Form_Load()
Dim par As ADODB.Parameter
Dim par1 As ADODB.Parameter
Set cn = New ADODB.Connection
cn.Open ConnectString
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "user"
cmd.CommandType = adCmdTable
Set rst = cmd.Execute()
If rst.EOF = True Then
MsgBox "dd"
Else
Text1 = rst.fields("1")
End If
End Sub
用ACCESS2002建立的数据库都不可以运行 用了Jet.OLEDB.4.0也不行
用ACCESS97建立的数据库 可以运行 但是运行rst.movelast就出错
说行集不支持反向 这是为什么呢？
而且运行rst.RecordCount 不能等到正确的数字 总是返回-1
什么原因呢
请大家帮忙啊
问题点数：0、回复次数：7Top
1 楼sxs69（）回复于 2003-05-04 20:54:38 得分 0
你可以用ACCESS2002转换工具转换成ACCESS2000数据库
rst.CursorLocation = adUseClient
Top
2 楼zsgzsgzsg（zsg）回复于 2003-05-04 21:25:20 得分 0
引用ado2.7，并且rst.CursorLocation = adUseClient
搜索mdac_typ27.exe下载，然后安装Top
3 楼laihuaping（就怕不抵抗）回复于 2003-05-04 21:25:28 得分 0
ACCESS链接老出错 这是怎么回事呢 我用了2002和97 有时97的行 而有时又不行 这是怎么回事呢？请指教Top
4 楼sxs69（）回复于 2003-05-04 21:41:45 得分 0
我试过没有问题啊Top
5 楼laihuaping（就怕不抵抗）回复于 2003-05-04 22:20:47 得分 0
可是我这里有时用97行 有时不行
2002好像每次都不行 不知道为什么啊？Top
6 楼chenyu5188（来自东方的狼）回复于 2003-05-04 23:16:26 得分 0
安装最新版本的mdac_typ.exe文件，版本为2.7
rst.CursorLocation = adUseClient'使用客户端游标
rst.CursorType＝AdOpenDynamicTop
7 楼laihuaping（就怕不抵抗）回复于 2003-05-05 09:10:58 得分 0
链接还是不行啊 为什么啊？用了ado2.7还是不行
2.7支持ACCESS2002吗？我为什么总不行啊？Top
