UC知道运行vb程序出错，急！！！！
来源：百度知道 编辑：UC知道 时间：2024/07/01 11:57:16
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
List1.AddItem (Adodc1.Recordset.Fields("专业"))
Adodc1.Recordset.MoveNext
Loop
End If
黄色标志在Adodc1.Recordset.RecordCount > 0，怎么回事？
先谢谢了
提示是：“vb中对象变量或with块变量未设置”是怎么回事我用的是access数据库
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
List1.AddItem (Adodc1.Recordset.Fields("专业"))
Adodc1.Recordset.MoveNext
Loop
End If
黄色标志在Adodc1.Recordset.RecordCount > 0，怎么回事？
先谢谢了
提示是：“vb中对象变量或with块变量未设置”是怎么回事我用的是access数据库
1.你连接数据库时可能出错了，检查一下connectstring这句语句，是否写正确，或者把他改成connectstring ="file name=你保存的DNS的路径".注意的是在odbc源中选择dns文件哦！
2.你的sql语句有没有写正确，查看方法是把你的语句放到sql server中的查询分析器中去运行一下，看看有没有什么问题！有问题就改一下！
你的数据库有记录吗 你先测试下Adodc1.Recordset.RecordCount 这个的值是什么
可能缺少
adodc1.refresh
这跟打开 Recordset 所用参数有关
if Adodc1.Recordset.RecordCount > 0 Then 改成这样就可以了
if Not(Adodc1.Recordset.BOF and Adodc1.Recordset.EOF) Then