VB与数据库 数据库连接与查询
无源连接的步骤
范例 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\" & "世界名著.mdb" sql = "select * from 书籍表 where 作品类型='小说'" rs.Open sql, cn, 1, 1 ‘1,1表示记录集合是只读的Label1.Caption = rs("书籍编号") Label2.Caption = rs("书籍名称")
Rs的Fields集合 Fields集合 返回值 rs.Fields(“书籍名称”) 或rs.Fields(0) 《交叉小径的花园》 小说 rs.Fields（“国家”）或rs.Fields(2) 阿根廷
记录指针定位 RecordSet对象可用下列5个方法定位当前记录 1.MoveFirst：使记录指针指向第一个记录 2.MoveNext：使用记录指针指向下一个记录 3.MovePrevious：使记录指针指向前一个记录 4.MoveLast：使记录指针指向最后一个记录 5.Move n：使记录指针指向从当前记录算起的第n个记录