跪求!!!!!!!!!大家帮帮我!!!!!!!!!!VB中连接ACCESS查询相同条件的下一条记录怎么写啊?

Question

我的字段名为序列号1序列号2.......序列号11
比方说:
"序列号1"有数据为11
"序列号5"有数据为11
我想查询时显示第一条为序列号1的记录
点击[查询]按钮时inputbox框输入11
显示第一条记录点击[下一条]是显示序列号5的那一条记录
怎么写啊?
VB与ACCESS的数据库
11是inputbox中输入的数值
在"序列号1.....序列号11中
查询
点[查询]是inputbox中输入11
显示"序列号1"的记录
点[下一条]是显示"序列号5"的记录
表名:shuju

Answer 1

如果是同一列里的就RS.MoveNext .如果你的序列号是N列的话就关闭记录集然后,从新构建SQL字符串再打开记录集呗.其实还不如把表好好归置归置呢.

Answer 2

首先定義一個全局變量：dim IntCurField as integer 記下當前內容是來自哪個字段的。在点[查询]inputbox得到输入后(假設得到11)：
select * from shuju where 序列号1=11 or 序列号2=11 or .......序列号11=11這樣就得到了一個全面的記錄集，假設這個記錄集名字叫MyRec，點[下一條]時
dim i as integer
for i=IntCurField to MyRec.field.count
    if MyRec.field(i).values=11 then
        text1.text=MyRec.field(i).values
        text2.text=MyRec.field(i).name
        IntCurField=i
        exit for
    end if
next i
if i=MyRec.field.count then msgbox "此為最后一條記錄了"
不知道是否有理解錯LZ的意思。

Answer 3

我试试
我的那个11是inputbox里假设输入的一个数而已
不一定是11
也可以是其它的

Answer 4

elangno1() 
能否帮我看看源程序
好象还不行
我的程序在上面
www.access911.net/csdn
管理系统
在里面的"序列号查询"功能里

Answer 5

我知道你說的11是假設的，那么你可以定義一個變量，由用戶輸入后賦值就可以了。由于我這里的電腦是繁體的，而你的文件名又是簡體中文的，所以很難打開。
如果你可以改成英文的文件名，我可以幫你看看。
http://www.access911.net/csdn/FileDescription.asp?mdb=2006-10-28&id=48&mode=3

Answer 6

elangno1()
我上传了
文件名为
"elangno1()"