用ADO怎么连接Access数据库？

步骤如下：

一、用有源ODBC DSN的方法和无源OLE DB的方法连接数据库：

1、无源OLE DB：

string strConn="Provider=Microsoft.Jet.OLEDB.4.0 Data Source=intels.mdb"

2、有源ODBC DSN：

string strConn="Data Source=intels"

如果采用ADO.NET连接SQL Server或者Oracle，方法和VB中连接相应数据的连接字符串一致。

二、开始连接数据库：

ADOConnection Conn = new ADOConnection(strConn)

三、执行一个select SQL 查询：

string strSQL = "Select id from test"

ADOCommand ADOCmd=new ADOCommand(conn,Conn)

Conn.Open()

ADODataReader reader

ADOCmd.Execute(out reader)

四、得到ADODataReader中包含的数据：

先执行：

reader.Read()

然后就可以取得数值：

reader["id"].ToString()

依次类推。

五、delete（删除）语句，insert和update相同：

strSQL="delete from test where id=’1’"

//strSQL="insert into test values(’1’)"

//strSQL="update test set id=’1’"

ADOCommand ADOCmd=new ADOCommand(conn,Conn)

Conn.Open()

ADOCmd.Execute()

由于ADO对象不直接支持MySQL,所以必须先安装MyODBC, 后者也是一个免费产品，在 www.mysql.org上有下载，安装好了MyODBC, 就可以在ODBC数据源管理中配置一个数据源名称，把它指向你想连接的MySQL数据库。代码如下：Sub connectMySQL() '通过MyODBC去连接MySQL数据库，并将Microsoft SQL Server 7 '的数据转进mysql中 Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL As New ADODB.Connection'声明并创建对象 连接 Dim rs As New ADODB.Recordset '声明并创建对象 记录集 Dim cm As New ADODB.Command '声明并创建对象 命令sConnect = "dsn=mysql1" '指定MySQL的数据源名称 cnMySQL.Open sConnect '连接到 mysqlsConnect="Provider=SQLOLEDB.1Persist Security Info=FalseUser ID=sapwd=123456Initial Catalog=softdownData Source=ntserver" '连接到 ms sql server 7 cnMSSQL.Open sConnect'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," &_ "softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," &_ "softdown smallint(4))" '创建新的MySQL数据表语句 sSql = "select * from softinfo order by softnum" rs.Open sSql, cnMSSQL, 1, 1 While Not rs.EOF sSql = "insert into softinfo values (" &Trim(rs(0).Value) &",'" &Trim(rs(1).Value) &_"','" &Trim(rs(2).Value) &"','" &Trim(rs(3).Value) &"','" &Trim(rs(4).Value) &_"','" &Trim(rs(5).Value) &"'," &Trim(rs(6).Value) &"," &Trim(rs(7).Value) &")" cm.ActiveConnection = cnMySQL cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wendrs.Close Set rs = NothingcnMySQL.Close Set cnMySQL = NothingcnMSSQL.Close Set cnMSSQL = Nothing End Sub

---