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

vb adodb 出现未指定的问题

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

vb adodb 出现未指定的问题

发表于：2007-05-18 16:20:19 楼主

我在程序中加了select case 语句后出现错误“未指定的问题”进入调试后错指在conn.str处，不加select case 语句之前运行良好
谢谢
代码：（按钮使用的是数组）
private sub commandt_click（index as integer)
on error goto error1
dim conn as new adodb.connection
dim rst as new adodb.recordset
dim str as string, sql as string
str = "provider = microsoft.jet.oledb.4.0;persist security info=false;data source= " & app.path & "\db1.mdb "
conn.open str
conn.cursorlocation = aduseclient
sql = " select * from gerenxinxi "
set rst = conn.ＥＸＥＣute（sql)
set text1.datasource = rst
set text2.datasource = rst
set text3.datasource = rst
set text9.datasource = rst
set text10.datasource = rst
text1.datafield = "id "
text2.datafield = "xingming "
text3.datafield = "zhiwu "
text9.datafield = "yijibumen "
text10.datafield = "erjibumen "
dim i as integer
i=index
select case i
case 0
rst.movefirst
if rst.bof then
msgbox "顶部 "
rst.movefirst
'end if
case 1
rst.movelast
if rst.eof then
msgbox "底部 "
rst.movelast
end if
end select
set datagrid1.datasource = rst
exit sub
error1:
msgbox err.description
end sub

发表于：2007-05-18 16:23:521楼得分:0

on error goto error1
这行去掉，逐行调试

发表于：2007-05-18 16:32:132楼得分:0

case 0
rst.movefirst
if rst.bof then
msgbox "顶部 "
rst.movefirst
'end if
后面的 end if 为什么注释掉了？

发表于：2007-05-18 16:44:583楼得分:0

我在程序中加了select case 语句后出现错误“未指定的问题”进入调试后错指在conn.str处，不加select case 语句之前运行良好
谢谢
代码：（按钮使用的是数组）
private sub commandt_click（index as integer)
dim conn as new adodb.connection
dim rst as new adodb.recordset
dim str as string, sql as string
str = "provider = microsoft.jet.oledb.4.0;persist security info=false;data source= " & app.path & "\db1.mdb "
conn.open str
conn.cursorlocation = aduseclient
sql = " select * from gerenxinxi "
set rst = conn.ＥＸＥＣute（sql)
set text1.datasource = rst
set text2.datasource = rst
set text3.datasource = rst
set text9.datasource = rst
set text10.datasource = rst
text1.datafield = "id "
text2.datafield = "xingming "
text3.datafield = "zhiwu "
text9.datafield = "yijibumen "
text10.datafield = "erjibumen "
dim i as integer
i=index
select case i
case 0
rst.movefirst
if rst.bof then
msgbox "顶部 "
rst.movefirst
end if
case 1
rst.movelast
if rst.eof then
msgbox "底部 "
rst.movelast
end if
end select
set datagrid1.datasource = rst

发表于：2007-05-18 16:52:174楼得分:0

private sub commandt_click（index as integer)
dim conn as new adodb.connection
dim rst as new adodb.recordset
dim str as string, sql as string
str = "provider = microsoft.jet.oledb.4.0;persist security info=false;data source= " & app.path & "\db1.mdb "
conn.open str
conn.cursorlocation = aduseclient
sql = " select * from gerenxinxi "
set rst = conn.ＥＸＥＣute（sql)
set text1.datasource = rst
set text2.datasource = rst
set text3.datasource = rst
set text9.datasource = rst
set text10.datasource = rst
text1.datafield = "id "
text2.datafield = "xingming "
text3.datafield = "zhiwu "
text9.datafield = "yijibumen "
text10.datafield = "erjibumen "
dim i as integer
i = index
select case i
case 0
rst.moveprevious
if rst.bof then
msgbox "顶部 "
rst.movefirst
end if
case 1
rst.movenext
if rst.eof then
msgbox "底部 "
rst.movelast
end if
end select
set datagrid1.datasource = rst
end sub
还是出错错误指向conn.open str
conn.cursorlocation的值为“2 ”，aduseclient的值为3

发表于：2007-05-18 17:14:345楼得分:0

你确定你的str正确？

发表于：2007-05-18 22:18:516楼得分:0

private sub commandt_click（index as integer) 是什么事件呀?
index有什么作用?

发表于：2007-05-19 10:11:007楼得分:0

你确定你的str正确
我不知道 str 是不是正确，报错的就是conn.open str这一行

发表于：2007-05-19 10:13:498楼得分:0

private sub commandt_click（index as integer)
commandt是一个按钮数组commandt（0）和commandt（1）
我的目的是用两个按钮控制上一条或下一条
结果老是出错

发表于：2007-05-19 10:15:419楼得分:0

如果是str 的不正确应该怎么该呢？
谢谢

其他资讯