Question

vb随机从数据库提取一条数据显示在文本框中

各位大侠求救啊：

adodc连接数据库，单击命令按钮能随机将表内的某一条记录显示在text文本框中，只有命令按钮谢了代码，代码如下：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\huizai\桌面\新建文件夹\db1.mdb;Persist Security Info=False" '设置数据库路径
Randomize
Adodc1.RecordSource = "select * from 表1 where id=Int(Rnd()* Adodc1.Recordset.Fields.Count)"
Set Text1.DataSource = Adodc1
Text1.DataField = "电话号码"

运行提示至少有一个变量未定义，但总共就这些代码啊，咋办？
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\huizai\桌面\新建文件夹\db1.mdb;Persist Security Info=False" '设置数据库路径
Randomize
Adodc1.RecordSource = "select * from 表1 where id=" & Int(Rnd() * Adodc1.Recordset.Fields.Count)
Set Text1.DataSource = Adodc1
Text1.DataField = "电话号码"
End Sub
运行不了，提示个什么with块变量未设置，目前整个程序只是这些代码，还需要在什么地方加上代码么？

Answer 1

Int(Rnd()* Adodc1.Recordset.Fields.Count) 这个是VB语句，你把它放到双引号里发送到数据库服务器有什么用？要分清楚VB语句和SQL语句的区别：
Dim i as integer
i= Int(Rnd()* Adodc1.Recordset.Fields.Count)
Adodc1.RecordSource = "select * from 表1 where id=" & i

追问

不行，提示对象变量或with块变量未设置
Private Sub Form_Load() 这个地方还需要写什么程序么？

追答

我没写全，你知道意思就可以了。

Answer 2

就是忘记定义哪个变量 很容易的 错误提示在哪 好好找找