VB语言使用ADO连接、操作SQLServer数据库教程
这篇文章主要介绍了VB语言使用ADO连接、操作SQLServer数据库教程,本文讲解详细、代码中有大量注释,是非常好的一篇教程,需要的朋友可以参考下
连接第一步(要仔细看)
对于小白来讲,这里的教程最详细,连接ADO数据库第一步,要添加什么部件呢?全称是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件。
在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)部件里有一个名叫:Adodc数据控件,要将它添加。在Adodc数据控件数据位置中找到ACCES。
控件引用的方法(值指的是姓名)
For i = 1 To Adodc1.Recordset.RecordCount
If Not Adodc1.Recordset.EOF Then
Combo1.AddItem Adodc1.Recordset.Fields("值").Value
Adodc1.Recordset.Movenext
End If
Next i
该代码引用的编写者是ydl890406大大,在VB群中写这东西时,让我借用了,后来我发现有很多错误,y大神修改几次后的还是有错误,干脆重写了一遍,这就是后来的代码。时间过去的很快,VB群也解散了。后来不知为何,现在很多的教程都用了这段代码。
第二部分是AOD的代码连接,由于第二部分涉及到Recordset对象和Connection对象,自己学一下,完全可以自己编写。
何为Recordset对象和Connection对象,Connection对象是与数据源的连接,Recordset对象是操作数据。
寻找Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件
VB用ADO连接SQLServer数据库
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
'数据源信息常量
Public
Const
conn
As
String
=
"Provider = SQLOLEDB.1;Password = sa; UserID = sa; Initial Catalog = StudentFiles; Data Source = localhost"
Public
Const
CONNECT_LOOP_MAX = 10
'一次执行connect操作,可以访问数据库的次数
Private
IsConnect
As
Boolean
'标记数据库是否连接
Private
Connect_Num
As
Integer
'标记执行Connect()函数后访问数据的次数
Private
cnn
As
ADDODB.Connection
'连接数据库的Connect对象
Private
re
As
ADDODB.Recordset
'保存结果集的Recordset对象
//连接数据库
Private
Sub
Connect()
'如果连接标记为真,则返回。
IF IsConnect =
True
Then
Exit
Sub
End
If
Set
cnn =
New
ADODB.Connection
'关键new用于创建新对象cnn
cnn.ConnectionString = conn
cnn.Open
'判断连接的状态
If
cnn.State <> adStateOpen
Then
MsgBox
"数据库连接失败"
End
End
If
'设置连接标识,表示已经连接到数据库
IsConnect =
True
End
Sub
'断开与数据库的连接
Private
Sub
DisConnect()
Dim
rc
As
Long
If
IsConnect =
False
Then
Exit
Sub
End
If
'关闭连接
cnn.Close
'释放cnn
Set
cnn =
Nothing
IsConnect =
False
End
Sub
'使用Connect_Num控制数据连接
Public
Sub
DB_Connect()
Connect_Num = Connect_Num + 1
Connect
End
Sub
'使用Connect_Num控制数据断开
Public
Sub
DB_Disconnect()
If
Connect_Num >= CONNECT_LOOP_MAX
Then
Connect_Num = 0
Disconnect
End
If
End
Sub
'强制关闭api方式访问俄的数据库,计数器复位
Public
Sub
DBapi_Disconnect()
Connect_Num = 0
Disconnect
End
Sub
'执行数据库操作语言
'byval 就是按参数的值传递,再传递过程中,参数不会发生变化(也就是将参数值而不是将地址传递给过程的方式,这就使过程访问发哦变量的副本,过程不可改变变量的值);
与之对应的是byref,指按参数的地址传值,byref可以省略
Public
Sub
SQLExt(
ByVal
TmpSQLstmt
As
String
)
Dim
cmd
As
New
ADODB.Command
'创建Command对象cmd
DB_Connect
'连接数据库
Set
cmd.ActiveConnection = cnn
'设置cmd的ActiveConnect属性,指定与其关联的数据库连接
cmd.CommandText = TmpSQLstmt
'设置要执行的命令文本
'MsgBox TmpSQLstmt
cmd.Execute
'执行命令
Set
cmd =
Nothing
DB_DisConnect
'断开与数据库的连接
End
Sub
'执行数据库查询语句
Public
Function
QueryExt(
ByVal
TmpSQLstmt
As
String
)
As
ADODB.Recordset
Dim
rst
As
New
ADODB.Recordset
'创建Rescordset对象rst
DB_Connect
'连接数据库
Set
rst.ActiveConnection = cnn
'设置rst的ActiveConnection属性,指定与其相关的数据库的连接
rst.CursorType = adOpenDynamic
'设置游标类型
rst.LockType = adLockOptimistic
'设置锁定类型
rst.Open TmpSQLstmt
'打开记录集
Set
QueryExt = rst
'返回记录集
End
Function
|