Download presentation
Presentation is loading. Please wait.
1
VB与数据库 数据库连接与查询
2
无源连接的步骤
3
范例 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("书籍名称")
4
Rs的Fields集合 Fields集合 返回值 rs.Fields(“书籍名称”) 或rs.Fields(0) 《交叉小径的花园》
小说 rs.Fields（“国家”）或rs.Fields(2) 阿根廷
5
记录指针定位 RecordSet对象可用下列5个方法定位当前记录 1.MoveFirst：使记录指针指向第一个记录
2.MoveNext：使用记录指针指向下一个记录 3.MovePrevious：使记录指针指向前一个记录 4.MoveLast：使记录指针指向最后一个记录 5.Move n：使记录指针指向从当前记录算起的第n个记录
Similar presentations
![第2章第2章 第 1 节 生物与非生物. [ 猜谜语 ] 名字叫做牛， 不会拉犁头； 说我力气小， 背着房子走。 （ 打一动 物）](/40/11037992/big_thumb.jpg "第2章第2章 第 1 节 生物与非生物. [ 猜谜语 ] 名字叫做牛， 不会拉犁头； 说我力气小， 背着房子走。 （ 打一动 物）>")
