为啥读不到数据库的数据

周书平

.版本 2
.支持库 eDB
.子程序 读出数据
.局部变量 开奖期号, 文本型
.局部变量 开奖号码, 文本型
.局部变量 循环次数, 整数型
编辑框_获取数据.内容 ＝ “”
记录集1.读文本 (“开奖号码”, 开奖号码)
记录集1.读文本 (“开奖期号”, 开奖期号)
全局_开奖期号 ＝ 开奖期号
全局_最新开奖号码 ＝ 开奖号码
.计次循环首 (到整数 (编辑框_采集期数.内容), 循环次数)
    记录集1.读文本 (“开奖号码”, 开奖号码)
    记录集1.读文本 (“开奖期号”, 开奖期号)
    记录集1.到下一条 ()
    编辑框_获取数据.加入文本 (开奖号码 ＋ “|”)
.计次循环尾 ()

阿易大大

.版本 2
.支持库 eDB




.子程序 读出数据
.局部变量 开奖期号, 文本型
.局部变量 开奖号码, 文本型
.局部变量 循环次数, 整数型
.局部变量 qqq, 整数型
.局部变量 记录集_, 记录集

qqq ＝ 外部数据库1.查询 (“SELECT * FROM Data”)
编辑框_获取数据.内容 ＝ “”
.判断循环首 (外部数据库1.尾记录后 (qqq) ＝ 假)
    开奖号码 ＝ 外部数据库1.读 (qqq, “开奖号码”)
    开奖期号 ＝ 外部数据库1.读 (qqq, “开奖期号”)
    外部数据库1.到后一记录 (qqq)

    编辑框_获取数据.加入文本 (开奖号码 ＋ “|”)

寒潮

数据库连接连接数据库，记录集.置连接（数据库连接），记录集打开表或sql语句，然后才能查询。

Eyy讲师小歪

根据你的源码来看，应该是用的Acess数据库，但是并没有看见链接数据库的源码。如果方便的话，您可以将您的源码发出来，以便我们能找出解决方案。

潇洒＆男孩

去看看这个吧！这个适合你去学习下！

周书平

寒潮 发表于 2017-5-22 09:10
数据库连接连接数据库，记录集.置连接（数据库连接），记录集打开表或sql语句，然后才能查询。

1. .版本 2
   
2. .支持库 internet
   
3. .支持库 iext
   
4. .支持库 eDB
   
5. 
   
6. .程序集 窗口程序集_启动窗口
   
7. .程序集变量 全局_最新开奖号码, 文本型
   
8. .程序集变量 全局_开奖期号, 文本型
   
9. 
   
10. .子程序 __启动窗口_创建完毕
    
11. .局部变量 aa, 对象
    
12. 
    
13. ' 删除文件 (取运行目录 () ＋ “\开奖数据.mdb”)
    
14. .如果 (取反 (文件是否存在 (取运行目录 () ＋ “\1.mdb”)))
    
15.     aa.创建 (“ADOX.Catalog”, )
    
16.     aa.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取运行目录 () ＋ “\开奖数据.mdb”)
    
17.     aa.清除 ()
    
18.     外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\开奖数据.mdb”, , , , )
    
19.     外部数据库1.执行 (“CREATE TABLE Data (序号 autoincrement , 开奖期号 TEXT , 开奖时间 TEXT , 开奖结果 TEXT, 开奖号码 TEXT)”, )
    
20. .否则
    
21.     外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\开奖数据.mdb”, , , , )
    
22. .如果结束
    
23. 
    
24. 
    
25. .子程序 _时钟1_周期事件
    
26. 
    
27. _按钮_采集数据_被单击 ()
    
28. 
    
29. .子程序 _按钮_采集数据_被单击
    
30. .局部变量 源文本, 文本型
    
31. .局部变量 正则, 正则表达式类
    
32. .局部变量 计次, 整数型
    
33. .局部变量 索引, 整数型
    
34. .局部变量 匹配数, 整数型
    
35. .局部变量 取时间, 文本型
    
36. .局部变量 time, 日期时间型
    
37. 
    
38. 编辑框3.内容 ＝ “”
    
39. 编辑框3.加入文本 (到文本 (编辑框1.内容))
    
40. 编辑框1.内容 ＝ “”
    
41. 正则.创建 (“(\d+)年(\d+)月(\d+)日”, 到文本 (日期框1.今天))
    
42. 取时间 ＝ 正则.取子匹配文本 (1, 1) ＋ “-” ＋ 正则.取子匹配文本 (1, 2) ＋ “-” ＋ 正则.取子匹配文本 (1, 3)
    
43. time ＝ 到时间 (取时间)
    
44. .计次循环首 (到整数 (编辑框55.内容), 计次)
    
45.     源文本 ＝ 到文本 (HTTP读文件 (“http://chart.cp.360.cn/kaijiang/kaijiang?lotId=265108&spanType=2&span=” ＋ 时间_到文本 (time, 1, 1) ＋ “_” ＋ 时间_到文本 (time, 1, 1)))
    
46.     正则.创建 (#常量1, 源文本)
    
47.     匹配数 ＝ 正则.取匹配数量 ()
    
48.     .计次循环首 (匹配数, 计次)
    
49.         索引 ＝ 超级列表框1.插入表项 (, , , , , )
    
50.         超级列表框1.置标题 (索引, -1, 正则.取子匹配文本 (计次, 1))
    
51.         超级列表框1.置标题 (索引, 1, 正则.取子匹配文本 (计次, 2))
    
52.         超级列表框1.置标题 (索引, 2, 正则.取子匹配文本 (计次, 25))
    
53.         超级列表框1.置标题 (索引, 3, 取文本右边 (到文本 (到整数 (正则.取子匹配文本 (计次, 3)) ＋ 到整数 (正则.取子匹配文本 (计次, 4)) ＋ 到整数 (正则.取子匹配文本 (计次, 5)) ＋ 到整数 (正则.取子匹配文本 (计次, 6)) ＋ 到整数 (正则.取子匹配文本 (计次, 7)) ＋ 到整数 (正则.取子匹配文本 (计次, 8))), 1) ＋ “+” ＋ 取文本右边 (到文本 (到整数 (正则.取子匹配文本 (计次, 9)) ＋ 到整数 (正则.取子匹配文本 (计次, 10)) ＋ 到整数 (正则.取子匹配文本 (计次, 11)) ＋ 到整数 (正则.取子匹配文本 (计次, 12)) ＋ 到整数 (正则.取子匹配文本 (计次, 13)) ＋ 到整数 (正则.取子匹配文本 (计次, 14))), 1) ＋ “+” ＋ 取文本右边 (到文本 (到整数 (正则.取子匹配文本 (计次, 15)) ＋ 到整数 (正则.取子匹配文本 (计次, 16)) ＋ 到整数 (正则.取子匹配文本 (计次, 17)) ＋ 到整数 (正则.取子匹配文本 (计次, 18)) ＋ 到整数 (正则.取子匹配文本 (计次, 19)) ＋ 到整数 (正则.取子匹配文本 (计次, 20))), 1))
    
54.         超级列表框1.置标题 (索引, 4, 到文本 (到整数 (取文本右边 (到文本 (到整数 (正则.取子匹配文本 (计次, 3)) ＋ 到整数 (正则.取子匹配文本 (计次, 4)) ＋ 到整数 (正则.取子匹配文本 (计次, 5)) ＋ 到整数 (正则.取子匹配文本 (计次, 6)) ＋ 到整数 (正则.取子匹配文本 (计次, 7)) ＋ 到整数 (正则.取子匹配文本 (计次, 8))), 1)) ＋ 到整数 (取文本右边 (到文本 (到整数 (正则.取子匹配文本 (计次, 9)) ＋ 到整数 (正则.取子匹配文本 (计次, 10)) ＋ 到整数 (正则.取子匹配文本 (计次, 11)) ＋ 到整数 (正则.取子匹配文本 (计次, 12)) ＋ 到整数 (正则.取子匹配文本 (计次, 13)) ＋ 到整数 (正则.取子匹配文本 (计次, 14))), 1)) ＋ 到整数 (取文本右边 (到文本 (到整数 (正则.取子匹配文本 (计次, 15)) ＋ 到整数 (正则.取子匹配文本 (计次, 16)) ＋ 到整数 (正则.取子匹配文本 (计次, 17)) ＋ 到整数 (正则.取子匹配文本 (计次, 18)) ＋ 到整数 (正则.取子匹配文本 (计次, 19)) ＋ 到整数 (正则.取子匹配文本 (计次, 20))), 1))))
    
55.     .计次循环尾 ()
    
56.     time ＝ 增减时间 (time, 5, -1)
    
57. .计次循环尾 ()
    
58. 加入数据库 ()
    
59. 
    
60. .子程序 加入数据库
    
61. .局部变量 n, 整数型
    
62. 
    
63. .计次循环首 (超级列表框1.取表项数 (), n)
    
64.     外部数据库1.执行 (“insert into Data(开奖期号,开奖时间,开奖结果,开奖号码) values ('” ＋ 超级列表框1.取标题 (n － 1, 1) ＋ “','” ＋ 超级列表框1.取标题 (n － 1, 2) ＋ “','” ＋ 超级列表框1.取标题 (n － 1, 3) ＋ “','” ＋ 超级列表框1.取标题 (n － 1, 4) ＋ “' )”, )
    
65. .计次循环尾 ()
    
66. 读出数据 ()
    
67. 
    
68. 
    
69. 
    
70. 
    
71. 
    
72. 
    
73. 
    
74. 
    
75. 
    
76. 
    
77. 
    
78. 
    
79. 
    
80. 
    
81. 
    
82. 
    
83. 
    
84. .子程序 读出数据
    
85. .局部变量 开奖期号, 文本型
    
86. .局部变量 开奖号码, 文本型
    
87. .局部变量 循环次数, 整数型
    
88. 
    
89. 记录集1.置连接 (数据库连接1)
    
90. 记录集1.打开 (“开奖数据”, #数据表名, )
    
91. 记录集1.到首记录 ()
    
92. 
    
93. 编辑框_获取数据.内容 ＝ “”
    
94. 记录集1.读文本 (“开奖号码”, 开奖号码)
    
95. 记录集1.读文本 (“开奖期号”, 开奖期号)
    
96. 全局_开奖期号 ＝ 开奖期号
    
97. 全局_最新开奖号码 ＝ 开奖号码
    
98. .计次循环首 (到整数 (编辑框_采集期数.内容), 循环次数)
    
99.     记录集1.读文本 (“开奖号码”, 开奖号码)
    
100.     记录集1.读文本 (“开奖期号”, 开奖期号)
     
101.     记录集1.到下一条 ()
     
102.     编辑框_获取数据.加入文本 (开奖号码 ＋ “|”)
     
103. .计次循环尾 ()
     
104. 
     

复制代码

还是不行，数据库是有数据的，前面的代码是求助一位易友写的，可能是
.版本 2
.支持库 eDB

记录集1.置连接 (数据库连接1)
记录集1.打开 (“开奖数据”, #数据表名, )
记录集1.到首记录 ()

编辑框_获取数据.内容 ＝ “”
记录集1.读文本 (“开奖号码”, 开奖号码)
记录集1.读文本 (“开奖期号”, 开奖期号)
全局_开奖期号 ＝ 开奖期号
全局_最新开奖号码 ＝ 开奖号码
.计次循环首 (到整数 (编辑框_采集期数.内容), 循环次数)
    记录集1.读文本 (“开奖号码”, 开奖号码)
    记录集1.读文本 (“开奖期号”, 开奖期号)
    记录集1.到下一条 ()
    编辑框_获取数据.加入文本 (开奖号码 ＋ “|”)
.计次循环尾 ()


这段有问题

周书平

Eyy讲师小歪 发表于 2017-5-22 09:12
根据你的源码来看，应该是用的Acess数据库，但是并没有看见链接数据库的源码。如果方便的话，您可以将您的 ...

123.e (639.44 KB, 下载次数: 1)

2017-5-22 09:27 上传

点击文件名下载附件

阿易大大

.版本 2
.支持库 eDB



.子程序 读出数据
.局部变量 开奖期号, 文本型
.局部变量 开奖号码, 文本型
.局部变量 循环次数, 整数型

记录集1.置连接 (数据库连接1)
记录集1.打开 (“SELECT * FROM Data”, #数据表名, )
记录集1.到首记录 ()

编辑框_获取数据.内容 ＝ “”
记录集1.读文本 (“开奖号码”, 开奖号码)
记录集1.读文本 (“开奖期号”, 开奖期号)
全局_开奖期号 ＝ 开奖期号
全局_最新开奖号码 ＝ 开奖号码
.计次循环首 (到整数 (编辑框_采集期数.内容), 循环次数)
    记录集1.读文本 (“开奖号码”, 开奖号码)
    记录集1.读文本 (“开奖期号”, 开奖期号)
    记录集1.到下一条 ()
    编辑框_获取数据.加入文本 (开奖号码 ＋ “|”)
.计次循环尾 ()


补充内容 (2017-5-22 09:43):
替换此段即可

补充内容 (2017-5-22 09:45):
不对 当我没说

补充内容 (2017-5-22 09:52):
.版本 2
.支持库 eDB




.子程序 读出数据
.局部变量 开奖期号, 文本型
.局部变量 开奖号码, 文本型
.局部变量 循环次数, 整数型
.局部变量 qqq, 整数型
.局部变量 记录集_, 记录集

qqq ＝ 外部数据库1.查询 (...

周书平

阿易大大 发表于 2017-5-22 09:43
.版本 2
.支持库 eDB

不行的，不知道哪里的问题，楼上有源码，你看下？？

阿易大大