怎么把数据库里的东西 用VB显示出来
毕业论文编程题目我做到这步编写一个选择题我想请问我数据库A表B里放了一道题目CCCCCCC还有四个选项AAABBBCCCDDD我怎么在VB里显示题目和选项呢要用到哪些控件...
毕业论文编程题目
我做到这步 编写一个选择题
我想请问 我数据库A 表B里放了一道题目CCCCCCC
还有四个选项AAA BBB CCC DDD
我怎么在VB里显示题目和选项呢 要用到哪些控件?
最后想希望有个总分
谁能提供完整代码?用VB做毕业设计的 大家都应该知道 肯定是大学不认真读书的 所以请各位哥哥能详细描述下 数据库是ACCESS
我会加分的
如果哪位哥哥能提供完整的其他管理系统的话 我非常乐意 展开
我做到这步 编写一个选择题
我想请问 我数据库A 表B里放了一道题目CCCCCCC
还有四个选项AAA BBB CCC DDD
我怎么在VB里显示题目和选项呢 要用到哪些控件?
最后想希望有个总分
谁能提供完整代码?用VB做毕业设计的 大家都应该知道 肯定是大学不认真读书的 所以请各位哥哥能详细描述下 数据库是ACCESS
我会加分的
如果哪位哥哥能提供完整的其他管理系统的话 我非常乐意 展开
4个回答
展开全部
Dim conn As New ADODB.connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim connstr As String
Dim dbPath As String
Dim tableName As String
dbPath="d:\A.mdb" '数据库路径
tableName="B" '表名
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbPath
sql = "select * from " & tableName & " where id ='" & Text1.Text & "'" 'Text1中是你要查询题目的编号
conn.open (connstr)
rs.open sql, conn, 3, 3
If rs.recordcount > 0 Then
rs.MoveFirst
Label1.Caption = rs("Title") '题目
Option1(0).Caption=rs("A") '选项A
Option1(1).Caption=rs("B") '选项B
Option1(2).Caption=rs("C") '选项C
Option1(3).Caption=rs("D") '选项D
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Dim rs As New ADODB.Recordset
Dim sql As String
Dim connstr As String
Dim dbPath As String
Dim tableName As String
dbPath="d:\A.mdb" '数据库路径
tableName="B" '表名
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbPath
sql = "select * from " & tableName & " where id ='" & Text1.Text & "'" 'Text1中是你要查询题目的编号
conn.open (connstr)
rs.open sql, conn, 3, 3
If rs.recordcount > 0 Then
rs.MoveFirst
Label1.Caption = rs("Title") '题目
Option1(0).Caption=rs("A") '选项A
Option1(1).Caption=rs("B") '选项B
Option1(2).Caption=rs("C") '选项C
Option1(3).Caption=rs("D") '选项D
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
展开全部
还是自己多看看书吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你入过想要的话我帮你做个简单的,我QQ249677845
你的邮箱是多少我把做好的发给你 你自己去参考把
或者给我邮箱号也行
你的邮箱是多少我把做好的发给你 你自己去参考把
或者给我邮箱号也行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询