vb.net ado mysql,在VB6中动态创建使用ADO控件访问数据库-.NET教程,VB.Net语言

使用ado控件可以方便的在vb6中访问odbc数据库，但是通过直接放置adods控件来获得ado的数据连接比较麻烦，我们可以在vb工程中创建一个公共数据模块，将ado控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ado连接。

一次完整的ado调用操作分为如下几个步骤：

打开ado到数据库的连接，初始化ado recordset集。

通过写入sql语句执行查询并返回查询结果recordset集；或者可以通过写入sql语句执行相应数据库操作。

释放recordset集，关闭数据库连接。

需要注意的是，每个动态创建的ado同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ado。

下面是相关的代码：

—————————————————————–

如下代码保存在名为my.bas的工程模块中

public conn as adodb.connection        定义ado connection对象

public rs as adodb.recordset           定义ado recordset对象

****************************

打开数据库连接

****************************

function connopen()

dim astr as string

set conn = new adodb.connection

astr = getdatabasepath  mdb文件数据库路径

conn.connectionstring = “provider=microsoft.jet.oledb.4.0;data source=” & astr & “;persist security info=false”

本例的odbc连接为jet4.0的直接到mdb文件的连接，如果使用odbc数据源可以使用如下connection串：

provider=msdasql.1;password=””;persist security info=true;data source=数据源名称;initial catalog=数据表库名称

conn.open

set rs = new adodb.recordset

with rs do

activeconnection = conn

cursortype = adopendynamic

locktype = adlockoptimistic

end with

end function

****************************

关闭数据库

****************************

function connclose()

set rs = nothing

conn.close

set conn = nothing

end function

**********************************************************

获得数据库路径

本例数据库保存在程序目录下的dbs子目录中，名为db1.mdb

**********************************************************

public function getdatabasepath() as string

dim spath as string

if right$(app.path, 1) = “\” then

spath = app.path + “dbs\”

else

spath = app.path + “\dbs\”

end if

getdatabasepath = spath + “db1.mdb”

end function

end of my.bas

—————————————————————–

如下示例代码为my.bas的使用方法：

—————————————————————–

使用rs对象执行select语句

tablename和fieldname分别为表名和字段名

查询结果保存在数组s中

private sub runselectcommand()

dim s(99) as string

dim i as integer

i=0

call my.connopen

my.rs.open “select * from tablename”

while not rs.eof

i=i+1

if not isnull(my.rs!fieldname) then s(i)=cstr(my.rs!fieldname)

rs.movenext

wend

call my.connclose

end sub

使用conn对象执行update/delete/insert语句

sql语句放在变量ssql中

private sub runsqlcommand()

dim ssql as string

call my.connopen

my.conn.execute ssql

call my.connclose

end sub

对于datagrid和datareport这些需要datasource的控件可以做如下操作

使用select语句打开rs的数据集

set obj.datasource=my.rs

———————————————————————

这个方法对于开发简单小型的mis系统很实用，也可以在报表和数据表中使用，缺点是在多表操作和函数嵌套调用时，一个动态ado对象不能同时执行两个工作，后一个写入的sql语句会覆盖先写入的sql语句，当在回到前一个过程时，会因为字段找不到而出错。因此如果可能需要进行多表操作，可以尝试多定义几个conn 和rs对象。