UC知道关于VB数据库
来源：百度知道 编辑：UC知道 时间：2024/06/20 04:42:15
我想把VB数据库里的数据输到一个文本框里，我是这样编写代码的，但是文本框在运行时没有输出，大家看看，帮我指点指点。
Dim panduan1 As String
Dim tiankong1 As String
Dim xuance1 As String
Dim aa As String
Dim bb As String
Dim cc As String
panduan1 = "一、判断题，共20题，每题1分，共20分"
tiankong1 = "二、填空题，共20题，每题1分，共20分"
xuance1 = "三、选择题，共30题，每题2分，共60分"
判断题.Adodc1.RecordSource = "select * from 判断"
Do While Not 判断题.Adodc1.Recordset.EOF
aa = aa & 判断题.Adodc1.Recordset.Fields("题目") & Chr(13) & Chr(10) & _
判断题.Adodc1.Recordset.Fields("学生答案") & Chr(13) & Chr(10)
判断题.Adodc1.Recordset.MoveNext
Loop
填空.Adodc1.RecordSource = "select * from 填空"
Do While Not 填空.Adodc1.Recordset.EOF
bb = bb & 填空.Adodc1.Recordset.Fields("题目") & Chr(13) & Chr(10) & _
填空.Adodc1.Recordset.Fields("学生答案") & Chr(13) & Chr(10)
填空.Adodc1.Recordset.M
Dim panduan1 As String
Dim tiankong1 As String
Dim xuance1 As String
Dim aa As String
Dim bb As String
Dim cc As String
panduan1 = "一、判断题，共20题，每题1分，共20分"
tiankong1 = "二、填空题，共20题，每题1分，共20分"
xuance1 = "三、选择题，共30题，每题2分，共60分"
判断题.Adodc1.RecordSource = "select * from 判断"
Do While Not 判断题.Adodc1.Recordset.EOF
aa = aa & 判断题.Adodc1.Recordset.Fields("题目") & Chr(13) & Chr(10) & _
判断题.Adodc1.Recordset.Fields("学生答案") & Chr(13) & Chr(10)
判断题.Adodc1.Recordset.MoveNext
Loop
填空.Adodc1.RecordSource = "select * from 填空"
Do While Not 填空.Adodc1.Recordset.EOF
bb = bb & 填空.Adodc1.Recordset.Fields("题目") & Chr(13) & Chr(10) & _
填空.Adodc1.Recordset.Fields("学生答案") & Chr(13) & Chr(10)
填空.Adodc1.Recordset.M
你真强大, 控件名居然用中文的, 虽然说VB支持中文吧, 还有代码看着闹眼睛
真服了你了,不过作为前辈,还是稍微提点你一下吧!
你设置 判断题.Adodc1.RecordSource 后,好像没有激活这个控件哦, 我就刚开始的时候用过这个控件开发过程序,以后都是用的ADODB.Connection和ADODB.RecordSet来实现的, 但是基本原理是一样的, 设置SQL查询语句前,最好,将控件Close一下,然后设置好后,再Open,Adodc1控件,应该有个requery方法吧,试试,每次设置好RecordSource后,requery一下吧