平台:vb6.0,access2000。用ado打开数据库Private Sub Command1_Click()
'定义ado变量
Dim adocon As Connection
Dim rsado As Recordset
'打开数据库
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\dbriver.mdb;"然后应该如何读取数据库中的数据?
我是这样写的:
rsado = adocon.Execute (select * from db1 where name=选择值)
报错:缺少表达式我的vb学得不是很好,特别是关于数据库的以前没有学过。
rsado = adocon.Execute (select * from db1 where name=选择值)
我是仿照asp中的经验来的(大虾们不要笑!!!)
================================================
建立一个搜索数据库的数据集合请问vb中应该怎么写?
================================================
谢谢啦,谢谢各位大虾解答我的问题。
'定义ado变量
Dim adocon As Connection
Dim rsado As Recordset
'打开数据库
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\dbriver.mdb;"然后应该如何读取数据库中的数据?
我是这样写的:
rsado = adocon.Execute (select * from db1 where name=选择值)
报错:缺少表达式我的vb学得不是很好,特别是关于数据库的以前没有学过。
rsado = adocon.Execute (select * from db1 where name=选择值)
我是仿照asp中的经验来的(大虾们不要笑!!!)
================================================
建立一个搜索数据库的数据集合请问vb中应该怎么写?
================================================
谢谢啦,谢谢各位大虾解答我的问题。
解决方案 »
- 关于vb读取时间
- 错误 462 远程服务器不存在或不可用?
- msflexgrid中如何让行高根据内容自动调整?
- 文件格式是如何创建的?
- VB6.0调试通过,但生成的EXE运行出错
- RichTextBox控件中如何利用object.find()方法查找中文字符???
- 用installshield7.0+vb6.0打包,既不能uninstall,也不能用控制面板删除
- 急,如何创建web站点,创建web虚拟目录及设置相关属性?高分相送。
- 求一个PPTP VPN拔号的源程序!在线等
- idoloveyou(我18岁,成人了!) AdamBear(学习再学习) 過來領分!!!!
- 关于数据所描的问题。
- 请教数据库高手。
出了上面朋友的方法外.
还可以
dim RSado as new adodb.recordset
rsado.open "select * from db1 where name=选择值",adocon
改为:Set rsado = adocon.Execute (select * from db1 where name=选择值)给对象变量赋值时要加上SET.
所有的SQL语句都是字符串,所以变量等都得转换为字符串
上面的应该写成
Set rsado = adocon.Execute ("select * from db1 where name='" & 选择值 & "'")may be help