Question

vb如何读取数据库中的数据

vb如何读取数据库中的数据

Answer 1

什么错呢？可否写出错误讯息！
* 有点须注意的是“第一笔”，“最后比笔”或“上一笔”须写在个别的CommandButton中。

-------------------------------------------------
'下面两行写在General（一般区域内）里面（程式最上面）
Dim sql As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

'在Load区域内写：
Private Sub Form_Load()
On Error Resume Next
rs.MoveFirst
Label1.Caption=Rs("编号") & Rs("题目")
End Sub

Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" ’注意开关引号和分号
sql = "Select * From 单选题" ' 单选题不放[]
rs.CursorLocation = adUseClient '加上这行鼠标位置功能
Rs.Open sql, Conn, adOpenKeyset, adLockPessimistic ’

Rs.MoveNext '下一笔资料
If Rs.BOF = False And Rs.EOF = False Then
Label1.Caption = Rs("编号") & Rs("题目")
End If

If Rs.EOF = True Then ‘若超过最后一笔资料就返回最后一笔记录。
Rs.MoveLast
End If
End Sub

-----------------------------------------------------
说明：
* EOF为 "End Of File"
* BOF为 "Begining Of File"
比如：Rs.EOF=True 意思为超过最后一笔记录。
Rs.BOF=True 意思为超过第一笔记录。

* 其他移动记录方法：
rs.MoveLast ‘最后一笔记录
rs.MoveFirst ‘第一笔记录

Rs.MovePrevious '上一笔资料
If Rs.BOF = False And Rs.EOF = False Then
Label1.Caption = Rs("编号") & Rs("题目")
End If

If Rs.BOF = True Then ‘若超过第一笔资料就返回第一笔记录。
Rs.MoveFirst
End If

Answer 2

详细见参考资料

Answer 3

每种数据库都不一样的，你要读什么？ACCESS SQL 还是。。。。

Answer 4

什么数据库呀？