本文主要介绍VB语言使用ADO连接和操作SQLServer数据库的教程。本文讲解详细,代码中有大量注释,是非常好的教程。有需要的朋友可以参考一下。
前几年学的VB我都快忘光了,所以这几天复习了一下。连接VB ADO数据库不是很难。
连接第一步(要仔细看)
对于小白来说,这里的教程是最详细的。连接ADO数据库的第一步需要添加哪些组件?全名是Microsoft ado数据控件6.0 (sp6) (oledb)部分。
在Microsoft ADO Data Control 6.0(SP6)(OLEDB)部件中有一个名为Adodc的数据控件,应该添加它。在Adodc数据控件的数据位置找到了ACCES。
控件(值是指名称)
复制代码如下:
对于i=1至Adodc1。记录集
如果不是Adodc1。Recordset.EOF然后
combo 1 . additemaddc1 . recordset . fields(' Value ')。价值
Adodc1。Recordset.Movenext
如果…就会结束
接下来我
这个代码参考的作者是ydl890406 Da。我在VB群里写这个东西的时候,借的。后来发现错误很多。被Y大神修改了几次,还是有错误,我就干脆重写了。这是后来的代码。时间过得很快,VB团解散了。后来因为某种原因,现在很多教程都在用这段代码。
第二部分是AOD的语码连接。由于第二部分涉及到记录集对象和连接对象,可以自己学习,自己写。
什么是记录集对象和连接对象?Connection对象是到数据源的连接,Recordset对象是操作数据。
查找Microsoft ado数据控件6.0 (sp6) (oledb)部件。
用VB ADO连接SQLServer数据库
数据源信息常数
public Const conn As String=' Provider=SQL oledb . 1;密码=saUserID=sa初始目录=学生文件;“数据源=本地主机”
Public Const CONNECT_LOOP_MAX=10 '执行连接操作时可以访问数据库的次数。
“Private IsConnect As Boolean”标记数据库是否已连接
' Private _ num as integer '标记在执行Connect()函数后数据被访问的次数。
Privateas addodb。“连接”连接数据库的连接对象。
私有as添加odb。“记录集”保存结果集的记录集对象。
//连接到数据库
专用子连接()
如果连接标志为真,则返回。
如果IsConnect=True,则
出口接头
如果…就会结束
设置cnn=New ADODB。“连接”键new用于创建新对象cnn。
cnn。连接字符串=连接
cnn。打开
确定连接的状态。
如果cnn。那就开放吧
MsgBox '数据库连接失败'
结束
如果…就会结束
设置连接ID以表明您已连接到数据库。
IsConnect=True
末端接头
断开与数据库的连接。
专用子断开()
Dim rc一样长
如果IsConnect=False,则
出口接头
如果…就会结束
关闭连接
cnn。关闭
发布cnn
设置cnn=无
IsConnect=False
末端接头
使用Connect_Num控制数据连接。
公共Sub DB_Connect()
连接数量=连接数量1
连接
末端接头
使用Connect_Num控制数据断开。
Public Sub DB_Disconnect()
如果连接数量=连接循环最大值,则
Connect_Num=0
拆开
如果…就会结束
末端接头
强行关闭api访问俄语数据库,计数器复位。
Public Sub DBapi_Disconnect()
Connect_Num=0
拆开
末端接头
执行数据库操作的语言。
Byval是通过参数的值来传递的,参数在重传的过程中不会改变(即参数值传递给过程而不是地址的方式,使得过程访问的是发送变量的副本,过程无法改变变量的值);
与之对应的是byref,是指根据参数的地址来传递值。byref可以省略。
public Sub SQLExt(ByVal TmpSQLstmt作为字符串)
Dim cmd作为新的ADODB。“命令”创建命令对象cmd
' DB_Connect '连接到数据库
设置cmd。“ActiveConnection=cnn”设置cmd的ActiveConnect属性,并指定与之关联的数据库连接。
敕令书' CommandText=TmpSQLstmt '设置要执行的命令文本。
MsgBox TmpSQLstmt
敕令书“执行”执行命令。
设置cmd=Nothing
' DB_DisConnect '与数据库断开连接
末端接头
执行数据库查询语句。
公共函数查询扩展(ByVal TmpSQLstmt作为字符串)作为ADODB .记录集
暗淡rst作为新ADODB .'记录集'创建记录集对象英特尔的快速储存技术
'数据库连接'连接数据库
设置rst .ActiveConnection=cnn '设置英特尔的快速储存技术的主动连接属性,指定与其相关的数据库的连接
rst .' CursorType=adOpenDynamic '设置游标类型
rst .' LockType=adLockOptimistic '设置锁定类型
rst .'打开' TmpSQLstmt '打开记录集
' Set QueryExt=rst '返回记录集
结束功能
郑重声明:本文由网友发布,不代表盛行IT的观点,版权归原作者所有,仅为传播更多信息之目的,如有侵权请联系,我们将第一时间修改或删除,多谢。