VB6中用Adodc绑定数据库，如何改变Recordsource

[jokonem]

在和序运行中，改变了Adodc.REcordsource的值后用Refresh进行刷新时，出现了变量类型不对的错误提示，请给与指点。

[cyflamingo]

你需要先对rs 进行刷新，然后再作set adodc.recordsource=rs的语句
你是不是把set丢了阿

[jokonem]

出错内容是《Refresh调用IAdodc失败。》

[jokonem]

我是参照，有一篇叫做，VB数据库编程的文章做的。

[jokonem]

是孙志刚的文章。

[jokonem]

请高人给予指点。

[hdj0569]

这样写：

sltSQL = "select * from 基本分层 where（ 工程编号 = "
datPrimaryRS.RecordSource = sltSQL + Pronum + ")"

[zhongminsheng]

为什么不把你的数据库名改为英文字母试试？

[jokonem]

stbigcrab(大螃蟹)　你好：
代码如下，很简单.
Dim sltSQL As String
Dim Pronum As String
Private Sub Command1_Click()
sltSQL = "select * from 基本分层 where 工程编号 = "
datPrimaryRS.RecordSource = sltSQL + Pronum
datPrimaryRS.Refresh
End Sub

[jokonem]

zhongminsheng(小生)　你好，我在改变ADODC的RECORDSOURCE属性时，用不到数据库名称。
详见上段代码。

[jokonem]

hdj0569(猫)　你好，试过了。问题依然如故。与不加括号前一模一样。谢谢你的指点。

[jokonem]

请给予指点。

[jokonem]

请各位高手多多指点。

[hx]

人太多了。。。

[jokonem]

hx(QQ我是皮蛋) 有高见请指教。

[stbigcrab]

能不能贴出你的代码？

[jokonem]

Pronum="'20011012'"字符串。

[jokonem]

谢谢各位的指点，我将继续提这个问题，只是名称变一下，关心我的朋友，请继续关注。

[zhongminsheng]

Pronum="'20011012'"字符串。 呵呵
这样的话就不用“'”了

[zhongminsheng]

这样写：
1. sltSQL = "select * from 基本分层 where 工程编号 ='"
datPrimaryRS.RecordSource = sltSQL + Pronum + "'"
注意“=”后面加“'”
参数后面加["'" ]
2. 是数据库 表名“基本分层”改为字母

[hdj0569]

我想问一下，你这个Pronum是一个什么类型的数据？