vb为什么老是提示"时实错误'3709',连接无法用于执行此操作“

连接字符串是对的

创建的参数改成1,3；adOpenDynamic, adLockPessimistic 添加和查询不要搞在一起 把else部分取消，addnew和update应该成对出现，另外建议，recordset对象最好在程序头部就申明，load就创建，程序结束就销毁。使用时候，用过就及时关闭Close。使用recordset前还可以加一句判断，如果没有关闭，就先关闭。比如事前无...

这个3709错误是你没有把cn对象执行open操作 无法对数据库进行操作 如果你有在其他过程打开cn对象 检查该对象变量的定义是否全局变量 不要重复定义局部变量

呵呵，在你执行open的时，数据库连接conn已经关闭了，那么你怎么执行呢？加上一句连接串，不知道你的连接串怎么写的。只要打开下就可以了 比如：'首先得添加一个引用Public Sub OPENconn() '打开串函数Dim conn As ADODB.Connection Dim rs_add As ADODB.Recordset Set conn = New ADODB.Connection ...

假设你用的是ADO） Dim myrec As New ADODB.Recordset 建议在代码最前面加上 option explicit 强制定义变量 另外，你的数据库打开了吗？myconn是写在Sub Main()? 如果是的话请把Sub Main()设置为启动对象。 有51%的概率确定是这个原因了。。。

2个错误：1.Dim Rs As New ADODB.Recordset '用户信息查询记录集 应该将NEW这个关键字删除，即Dim Rs As ADODB.Recordset '用户信息查询记录集 2.在Rs.Open strSql, Conn, 3, 1---此行调试出错！！！前面增加一行：set Rs = New ADODB.Recordset 问题即可解决。

Private Sub Command1_Click()Dim Cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=leehl.mdb;Mode=ReadWrite;Persist Security Info=False;"Cnn.Open rs.CursorLocation = adUseClient rs.Source = "Select * from...

"连接无法用于执行些操作,在此上下文中它可能已经被关闭或无效。"说明连接对象没有打开，你写了连接数据库的函数，但是并没有调用 Private Sub Command1_Click()Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset ConnectDataBase() '在这里加一句，里面你还要传一个参数 rs.Open "Select *...

把 Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection 中的 Dim conn As New ADODB.Connection 去掉即可

数据库没链接上 看看你的链接字符串是否正确：.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=db_Client;Data Source=db_Client"