调试出错，小弟没有学过VB。请各位大哥指教，我有急用！！！

Question

错误提示：实时错误：‘3709’
请求操作需要OLE DB会话对像，而当前提供程序不支持此条件各位老前辈，怎么样才能解决它呀，我急死了！！！

Answer 1

cns 服务器数据库的连接(sql)
Public Cns As New ADODB.Connection
Public Const connectStrings = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=MRP;Data Source=qs-server"Set cmd1.ActiveConnection = Cns
cmd1.CommandText = "SELECT * from MADE_DETAIL WHERE ONLYID='LJK'"
Rs1.CursorLocation = adUseClient
Rs1.Open cmd1, , adOpenKeyset, adLockOptimistic还有我说明一个问题，这个程序是三年前做的。前几天因为服务器问题，重装系统后把这个程序就不行了

Answer 2

再想问说明一下，以前用的是SQL 7的，现在是SQL 2000，这没有什么问题吧！

Answer 3

Public Cns As New ADODB.Connection
Const connectStrings = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=xxxx;Initial Catalog=MRP;Data Source=qs-server"Private Sub Command1_Click()
    Cns.ConnectionString = connectStrings
    Cns.Open
    Dim cmd1 As New ADODB.Command
    Set cmd1.ActiveConnection = Cns
    cmd1.CommandText = "SELECT * from Category"
    Dim Rs1 As New ADODB.Recordset
    Rs1.CursorLocation = adUseClient
    Rs1.Open cmd1, , adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = Rs1
End Sub

Answer 4

必须安装Mdac_typ.exe  数据访问引擎你可以看一下，连接是否打开？sql语句是否正确

Answer 5

哪位可能提供Mdac_typ.exe
还有我在VB6里面可以打开一个数据库，在数据视图里面。
程序里面的代码应该说没有问题的吧。我们以前可以用的，只是系统重装以后就不行了，

Answer 6

哦，忘了联系方法了，
QQ：10092810
E-mail:[email protected]

Answer 7

http://msdn.microsoft.com/data/mdac/default.aspx
http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=en

Answer 8

安装 Microsoft Data Access Components (MDAC) 2.8

Answer 9

你试过我写的代码么？注意：
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）