您的位置：程序门 -> vb -> 基础类

请帮忙看看这段代码错在哪里？老提示无法找到数据源

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

请帮忙看看这段代码错在哪里？老提示无法找到数据源

发表于：2007-04-04 14:37:36 楼主

请帮忙看看这段代码错在哪里？老提示无法找到数据源
public sub main（)
if app.previnstance = true then
msgbox "程序已经运行，无法再次执行. ", vbokonly + vbinformation, "系统提示 "
end
end if

connstr = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=cbxx;data source=zsm2 "
app.helpfile = app.path & "\help.chm "
load sfck
sfck.show
end sub
public function exesql（byval sql as string) as adodb.recordset
on error goto errhandler:

dim cn as adodb.connection
dim rs as adodb.recordset
dim strarray（) as string

set cn = new adodb.connection
set rs = new adodb.recordset

strarray = split（sql)
cn.open connstr

if strcomp（ucase$（strarray（0)), "select ", vbtextcompare) = 0 then
rs.open trim$（sql), cn, adopenkeyset, adlockoptimistic
set exesql = rs
else
cn.ＥＸＥＣute sql
end if

exesql_exit:
set rs = nothing
set cn = nothing
exit function

errhandler:
' 显示错误信息
msgbox "错误号: " & err.number & " 错误信息： " & err.description, vbexclamation
resume exesql_exit
end function

dim sqlfindjh, sqlfindjh2 as string

if gsh.text = " " then
msgbox "请输入给水号 ", vbexclamation + vbokonly, "系统提示 "
exit sub
end if

dim rs as adodb.recordset
sqlfindjh = "select dece_one from user_js1 where dece_one= ' " & trim（gsh.text) & " ' "
set rs = exesql（sqlfindjh)

dim rsjh as adodb.recordset
sqlfindjh2 = "select * from user_js1 where dece_one= ' " & trim（gsh.text) & " ' "
set rsjh = exesql（sqlfindjh2)
yhmc = rsjh（ "name ")
scjl = rsjh（ "last_data ")
zcjl = rsjh（ "this_data ")

发表于：2007-04-04 15:53:351楼得分:0

就这么看没有看出来错误。
你的程序运行到 cn.open那一行时，connstr是否为空？设断点看看。

发表于：2007-04-04 17:27:242楼得分:0

有很多种情况啊
你先用odbc连接一下数据库看看是否可以连接通,如果odbc都不能连通的话,估计是机器的问题,如:防火墙关掉试试,例外中添加1433端口试试
如果odbc连通了就检查代码看看是否connstr没有值
.....
....
...
..
.

发表于：2007-04-05 09:57:233楼得分:0

是空值，怎么是空值呢，odbc能连接通

其他资讯