vb中adodb连接数据库,,VB语言使用ADO连接、操作SQLServer数据库教程

vb中adodb连接数据库,,VB语言使用ADO连接、操作SQLServer数据库教程

本文主要介绍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 返回记录集

结束功能

vb中adodb连接数据库,,VB语言使用ADO连接、操作SQLServer数据库教程