Question

vb 引用ado 和使用ADO控件

vb里引用ado 和使用ado控件，有什么区别呢？

Answer 1

给你一个示例吧:
先引用 : Microsoft Activex Data Objects 2.1 Library
准备工作:
在D:\下,有一个数据库文件 Mydb.Mdb(Access数据库)
数据库有,有一个表,名叫Mytable
Mytable下,有四个字段
DM 自动编号
XX 文本型(也可以是其它的
YY 文本型(也可以是其它的
FF 文本型(也可以是其它的
数据表下,随便添加几个记录吧,DM系统会自动分配

程序方面:
在窗体上,添加四个文本框,一个命令按钮,编写如下代码,你试试看
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将路径换成你的数据库位置
Dim Sql As String, S As Long
S = Val(Text1.Text)
If S > 0 Then
Sql = "Select * From [MyTable] Where DM=" & S
Rs.Open Sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此记录"
Else
Text2.Text = Rs("XX")
Text3.Text = Rs("YY")
Text4.Text = Rs("FF")
End If

Else
MsgBox "请输入正确的编号"
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub