在VB6中动态创建使用ADO控件访问数据库,在VB6中动态创建使用ADO控件访问数据库
在VB6中动态创建使用ADO控件访问数据库
使用ADO控件可以方便的在VB6中访问ODBC数据库，但是通过直接放置ADODS控件来获得ADO的数据连接比较麻烦，我们可以在VB工程中创建一个公共数据模块，将ADO控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ADO连接。
一次完整的ADO调用操作分为如下几个步骤：打开ADO到数据库的连接，初始化ADO RECORDSET集。通过写入SQL语句执行查询并返回查询结果RECORDSET集；或者可以通过写入SQL语句执行相应数据库操作。释放RECORDSET集，关闭数据库连接。
需要注意的是，每个动态创建的ADO同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ADO。
下面是相关的代码：
-----------------------------------------------------------------
如下代码保存在名为的工程模块中
Public CONN As 定义ADO CONNECTION对象Public RS As 定义ADO RECORDSET对象
****************************打开数据库连接****************************Function ConnOpen() DimASTR As String Set CONN = New ASTR = GetDatabasePath MDB文件数据库路径
= "Provider= Source=" & ASTR & ";Persist Security Info=False" 本例的ODBC连接为JET4.0的直接到MDB文件的连接，如果使用ODBC数据源可以使用如下CONNECTION串： Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=数据源名称;Initial Catalog=数据表库名称
Set RS = New
With RS Do ActiveConnection = CONN CursorType = adOpenDynamic LockType = adLockOptimistic End WithEnd Function
****************************关闭数据库****************************Function ConnClose() Set RS = Nothing Set CONN = NothingEnd Function
********************************************************** 获得数据库路径 本例数据库保存在程序目录下的DBS子目录中，名为********************************************************** Function GetDatabasePath() As String Dim sPath As String If Right$(, 1) = "" Then sPath = + "dbs" Else sPath = + "dbs" End If GetDatabasePath = sPath + "& Function
End of
如下示例代码为的使用方法：\使用对象执行语句和分别为表名和字段名查询结果保存在数组中 Sub RunSelectCommand() Dim s(99) as String Dim i as Integer i=0 Call "SELECT * FROM TableName" While Not RS.EOF i=i+1 If Not isNull(!) Then s(i)=Cstr(!) Wend Call Sub
使用CONN对象执行UPDATE/DELETE/INSERT语句SQL语句放在变量sSQL中Private Sub RunSqlCommand() Dim sSQL as String Call sSQL Call sub
对于DATAGRID和DATAREPORT这些需要DATASOURCE的控件可以做如下操作使用SELECT语句打开RS的数据集Set
这个方法对于开发简单小型的MIS系统很实用，也可以在报表和数据表中使用，缺点是在多表操作和函数嵌套调用时，一个动态ADO对象不能同时执行两个工作，后一个写入的SQL语句会覆盖先写入的SQL语句，当在回到前一个过程时，会因为字段找不到而出错。因此如果可能需要进行多表操作，可以尝试多定义几个CONN 和RS对象。
如果觉得《在VB6中动态创建使用ADO控件访问数据库》对你有帮助，请点赞、收藏，并留下你的观点哦！
