各位高手请看看这个问题吧!!! 就是我在数据库关联时,用了二个adodc控件,把adodc1加载了数据源。adodc2没有加载数据源,想通过sql语句把adodc1中的符合条件的记录作为adodc2的数据源。 在运行时就出现了,上面的问题。 不知道怎么解决。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 With adodc1 .ConnectionTimeout = 50 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false" .CommandTimeout = 50 .CommandType = adCmdTextEnd WithWith adodc1 .ConnectionTimeout = 50 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false" .CommandTimeout = 50 .CommandType = adCmdTextEnd With adodc1.recordSource = "select * from table where ..."adodc1.refresh adodc2.RecordSource=adodc1.Recordsourceadodc2.refresh '上面的写错了,不好意思!With adodc1 .ConnectionTimeout = 50 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false" .CommandTimeout = 50 .CommandType = adCmdTextEnd WithWith adodc2 .ConnectionTimeout = 50 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false" .CommandTimeout = 50 .CommandType = adCmdTextEnd With adodc1.recordSource = "select * from table where ..."adodc1.refresh adodc2.RecordSource=adodc1.Recordsourceadodc2.refresh 你的SQL语句怎么写的,贴出来看看! 太慢了....求算法.... VB创建智能桌面 请问怎么用Inet下载文件 我是个医生,想转行搞计算机编程,又听人说搞编程是吃青春饭,又犹豫了,大家给点建议吧! 怎么样实现密码为空的登录呢 急求,关于vb6中如何在datagrid或者msflexgrid中设置“多维标头”(multi-header)问题 水晶报表,WIN98,汉字重叠问题的解决,虽没彻底,但够用,散分 窗体 请问,怎么将一个Recordset对象直接保存到数据库中?该Recordset里已经存在数据。 字符串的长度问题 请推荐优秀的ActiveX控件 推荐几本好的VB编程的书
.ConnectionTimeout = 50
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false"
.CommandTimeout = 50
.CommandType = adCmdText
End WithWith adodc1
.ConnectionTimeout = 50
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false"
.CommandTimeout = 50
.CommandType = adCmdText
End With
adodc1.recordSource = "select * from table where ..."
adodc1.refresh
adodc2.RecordSource=adodc1.Recordsource
adodc2.refresh
With adodc1
.ConnectionTimeout = 50
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false"
.CommandTimeout = 50
.CommandType = adCmdText
End WithWith adodc2
.ConnectionTimeout = 50
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=false"
.CommandTimeout = 50
.CommandType = adCmdText
End With
adodc1.recordSource = "select * from table where ..."
adodc1.refresh
adodc2.RecordSource=adodc1.Recordsource
adodc2.refresh