VB语言使用ADO连接、操作SQLServer数据库教程
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了VB语言使用ADO连接、操作SQLServer数据库教程,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含4229字,纯文字阅读大概需要7分钟。
内容图文
![VB语言使用ADO连接、操作SQLServer数据库教程](/upload/InfoBanner/zyjiaocheng/478/bfa07306492845ad94675dd743397cc8.jpg)
连接第一步(要仔细看)
对于小白来讲,这里的教程最详细,连接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
|
VB语言使用ADO连接、操作SQLServer数据库教程
标签:分享 来讲 好的 word oledb exe 副本 连接数 文本
本文系统来源:http://www.cnblogs.com/huhewei/p/6618709.html
内容总结
以上是互联网集市为您收集整理的VB语言使用ADO连接、操作SQLServer数据库教程全部内容,希望文章能够帮你解决VB语言使用ADO连接、操作SQLServer数据库教程所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。