vb 为什么每次随机出来都是第一条记录
If db.State = adStateOpen Then
db.Close
End If
rc.CursorLocation = 3
db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=courseexamine;Data Source=" + server_name
rc.Open "select * from faultmanage ", db, adOpenDynamic, adLockOptimistic
u = rc.RecordCount
ReDim aryid(u)
For z = 0 To rc.RecordCount - 1
aryid(z) = Trim(rc("ID"))
Next
one = LBound(aryid)
n = UBound(aryid)
Randomize
bx = Int(Rnd() * (Abs(n - one + 1)) + one)
If db.State = adStateOpen Then
db.Close
End If
db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=courseexamine;Data Source=" + server_name
rc.Open "select * from faultmanage where id ='" + Trim(aryid(bx)) + "'", db, adOpenDynamic, adLockOptimistic
tm = Trim(rc("faultname"))
为什么每次随机出来的bx是对
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
招对日VB工程师
要求二年以上的VB经验
有过对日项目的最好，能看懂日语的
有合适的发简历到邮箱xiaocm2004@163.com
哥们
大连有你的地盘吗？
VB没做过咋整！
VB6倒是没问题，可惜不懂日 ......
