您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

vb如何访问sql数据库

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb如何访问sql数据库

发表于：2008-01-13 10:22:23 楼主

下面是我编写的程序，但是老是提示我con as adodb.connection用户类型未定义，请专家们指教！！！然后我想把查询出来的结果显示出来，如何操作，请帮忙把代码写一下，谢谢！！！！

private sub command1_click（)

dim con as adodb.connection
set con = new adodb.connection
dim rs as adodb.recordset

set rs = new adodb.recordset

con.commandtimeout = 0
con.open "provider=sqloledb.1;persist security info=true;initial catalog=webnmsdb;initial catalog=bam;data source=192.168.0.41", "sa", ""
dim cx as string
cx = inputbox（"请输入要查询的逻辑/物理号码", "输入号码")

if cx = "" or len（dn) <> 7 then
msgbox "请输入正确电话号码"
else

yhzlcx_str = "select * from tbl_spdbchange where scallprefix= '" & cx & "'"

rs.open yhzlcx_str, con, adopendynamic, adlockoptimistic

if （rs.recordcount = 0) then
msgbox "数据库中无记录"
else

end sub

发表于：2008-01-13 10:28:431楼得分:0

你是否未引用ado

发表于：2008-01-13 10:34:512楼得分:0

con as adodb.connection用户类型未定义
可能是在工程菜单引用中没有选上 microsoft axtivex data objects 2.x library.
把这个选上就可以了

发表于：2008-01-13 11:45:433楼得分:0

在当前工程中引用ado，或者建立vb工程时选择“vb企业版控件”

发表于：2008-01-13 13:45:454楼得分:0

~~
遇到问题我的习惯先查开发软件帮助文档不行就查google

发表于：2008-01-13 14:08:065楼得分:0

引用ado

发表于：2008-01-13 14:18:086楼得分:0

con.open "provider=sqloledb.1;persist security info=true;initial catalog=webnmsdb;initial catalog=bam;data source=192.168.0.41", "sa", ""
你的datasource 是192.168.0.41？
我怎么看着这象一个ｉｐ地址啊？
还有就是，在使用ａｄｏｄｂ前，你到底引用或创建ａｄｏ对象了没？

下一篇：向各位高手请教select查询问题，有多个排序条件并且只取其中前几条
上一篇：急需数据操作的一套图标

其他资讯