excelVBA中的数据库基本操作.pdf

excelVBA 中的数据库基本操作 ⾸先提⼀下 ，我们学习SQL+ADO访问数据库有什 ⽤处? 1 可以在不打开EXCEL⽂件的情况下,从⽂件中提取数据. 2 可以从建⽴连接的专业软件数据库中提取数据.如财务软件等. 怎 使⽤ADO的两种⽅式： 引⽤法 ⼯具--引⽤Microsoft Activex..D...O 引⽤后再声明: Dim conn As New Connection 声明链接对象 Dim rst As New Recordset 声明记录集对象 创建法 使⽤CreateObj ect函数创建 Set conn = CreateObj ect(adodb.connection) 创建ado对象 Set rst = CreateObj ect(ADODB.recordset) 创建记录集 ⼀、Connection对象 (列⼦以excel⽂件为数据库) 1 建⽴和数据库的连接 .Open Dim conn As New Connection conn.Open provider=microsoft.j et.oledb.4.0;extended properties=excel 8.0;data source= ThisWorkbook.Path /Database/exceldata.xls ( Conn.Open:打开数据库的连接 provider=microsoft.j et.oledb.4.0 数据库引擎版本 extended properties=excel 8.0 连接的是Excel8.0版本(excel2000以后的版本),Excel不是标准的数据库格式,所以要设 置扩展属性 data source= ThisWorkbook.Path /数据库.xls 数据库路径) ************ 以下是连接其他数据库或⽂件的字符串表达式********************************* 1 Mysql数据库 strDriver = Provider=SQLOLEDB;DataSource= Path ;Initial Catolog= strDataName 2 TXT⽂件 strDriver = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=text;IMEX= 1;HDR=NO;FMT=Delimited;;Data Source= Path 3 MSSQL数据库 strDriver = Provider=MSDASQL;Driver={SQL Server};Server= Path ;Database= strDataName 4 Oracle数据库 strDriver= Provider=madaora;Data Source=MyOracleDB; User Id=UserID; Password=Password 5 Excel ⽂件 ’conn.Open provider=microsoft.j et.oledb.4.0;extended properties=excel 8.0;data source= ThisWorkbook.Path /Database/exceldata.xls ⼆、第⼆步就是要在Vbe中执⾏SQL语句 ⽤到Execute SQL 增加新表格 ：.Execute Create 表格名 字段和属性—————— ⼀般⽤的⽐较少 增加新记录 ：.Execute Insert into 表名 (字段 1, 字段2,... 字段n) VALUES(值 1,值2,... 值n)