编程论坛 → VB6论坛

代码解释

guojun1119 发布于 2012-10-07 10:07， 597 次点击

   Set db = OpenDatabase(App.Path & "\数据.MDB", False, False)
    SQL = "SELECT 名称"
    For i = 1 To from1.Listbox2.ListCount
        SQL = SQL & "," & from1.Listbox2.list(i - 1)
    Next
    SQL = SQL & " FROM 数据"
    Set rs1 = db.OpenRecordset(SQL, dbOpenDynaset)
    j = 1
    rs1.MoveFirst
    Do Until rs1.EOF
        For i = 1 To form1.Listbox1.ListCount
            If rs1.Fields(0) = form1.Listbox1.list(i - 1) Then
                j = i
                Exit For
            End If
        Next i
请问这段代码的主要意思是

8 回复

#2

zhujianlin2012-10-08 10:17

自己慢慢的从书本中理解吧！

#3

wube2012-10-11 02:09

不知道各位前辈在做关联数据库五段正规划是怎么克服的？

#4

lowxiong2012-10-11 10:13

这段代码不就是完善sql语句字符串吗？标准访问数据表的语句就是"select 字段1,字段2,字段3,...字段n from 表名"。有时根据用户需要，只要显示字段1,字段3,字段5的数据，用户就把需要显示的字段名称放在一个选择控件中，通过循环完成完整的sql语句。这段代码就是完成这个功能的。

#5

lowxiong2012-10-11 10:25

回复 3楼 wube

关联数据库五段正规划是什么意思？没做过，也没摆渡到，能不能解释下？
我已经好长时间没做像样的东西了，自觉快老年痴呆了。写程序的确是年轻人的工作，到我这个年纪都不愿想事，不愿写代码。可我又不想这么快老年痴呆，很纠结，如各位高手有项目，能否带带我，让我也参合参合？权当给我一个延缓脑衰老的理由啊！

#6

guojun11192012-10-11 17:07

回复 4楼 lowxiong

谢谢

#7

wube2012-10-11 22:19

回复 5楼 lowxiong

http://tw.myblog.
每次要开始学习ADO的用法
每次都卡在这
数据库的规划
好难懂

#8

学编程啊2012-10-12 08:58

有路走了

#9

guojun11192012-10-12 10:50

回复 7楼 wube

这个网址打不开呀？

1