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

稍微复杂点,小弟刚学几天,多多指教

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

稍微复杂点,小弟刚学几天,多多指教

发表于：2008-01-18 19:38:38 楼主

以这段代码产生的q值查询access数据库或者sql数据库中对应的id的数据（比如说这条数据有两个字段,name,gender),并将整条数据输出到textbox控件中

例如:q值,张三,男
q值,李四,女

dim bstop as boolean
dim n（1 to 20), i, j, q

private sub command1_click（)
'dim j
dim str as string
command1.visible = false

randomize timer
str = ""
open "c:\vbt.txt" for output as #1
while j < 2
q = int（rnd（1) * 20 + 1)
label1.caption = q: doevents: sleep 125
if n（q) = 0 and bstop = true then
str = str & q & chr（13) & chr（10)
n（q) = 1
j = j + 1
bstop = false
end if
wend

if str <> "" then
print #1, str
end if
close #1
end sub

private sub command2_click（)
bstop = true
end sub

发表于：2008-01-18 19:39:511楼得分:0

貌似分比较少,明天追加分数

发表于：2008-01-18 20:11:212楼得分:0

或者直接输出到txt文本中也行

发表于：2008-01-18 23:23:093楼得分:0

书上有很多这样的例子哦

发表于：2008-01-19 11:35:314楼得分:0

能不能贴个例子出来

下一篇：哪位大侠帮我设计个vb程序,谢谢了！！
上一篇：如何使vb程序多个域用户都能运行？

其他资讯