Excel 2000访问远程数据的四种方法 　.docVIP

Excel 2000访问远程数据的四种方法 Excel 2000作为为一个电子表格软件，它不仅仅有强大的数据处理能力，而而且它的报表功能也是十分强强大。因而常常用Excell 2000去调用Acceess、SQL Serveer、Oracle、DB22等数据库软件建立的大型数数据库的内容。用户可以在工工作表中对这些数据进行筛选选、排序、查询、编辑和打印印报表，十分方便，这也是大大多数人都熟悉的。但如何去去调用这数据呢？本人在这里里提供4种方法。 SQL 内的样样本数据库pubs为例。在在控制面板/ODBC数据源源/系统DSN，单击增加按按纽，选取SQL Servver驱动程序，建立一个与与pubs数据库连接的叫ppubs名称数据源。 在Excel 20000中，选择 数据/获取取外部数据/新建数据库查询询，然后按向导的提示一步一一步做，最后将数据返回Exxcel 2000中就行了了 方法二： 这种方方法需要VBA编程（方法三三、方法四也一样），在Viisual Basic编程程中，我们经常用ADO来访访问数据。ADO是Micrrosoft提供的针对各种种各样数据源的新型高级编程程接口。它支持大多数据库操操作，在Excel 20000中应用ADO来访问数据据，是十分理想的方法。看看看下面一个实例： Sub opendb Dim ccn As Dim rss As Set cn = New Set rrs = New PProvider=;Perrsist Securitty Info=Falsee;Data Sourcee=pubs” “sellect * fr om authors”, cnn Range.CopyFFromRecordsett rs End Sub 宏中第一、二句定义了一个个ADO 的Connecttion对象和一个Recoordset对象，第三、四四句创建了一个ADO 的CConnection对象和和一个Recordset对对象。第五句连接到前面我们们建立的数据源pubs数据据库。第六句是ADO 的RRecordset对象执行行一条SQL里selectt语句。在这也可以执行innsert，update等等等SQL语句的。第七句是是将rs里的记录返回当前表表里。第八、九句是关闭连接接。运行前要在Excel 2000工具/引用中引用用ADO的库文件。 Exxcel 2000中应用AADO对象，不仅可以对数据据库进行查询，而且可以作增增加，修改数据库的记录，甚甚至可以调用SQL 的存储储过程，加强Excel 22000对数据库处理能力。。 Excel 2000的功能是十分强大大的，它自带了一个ODBCC加载宏，我们在Excell 2000中引用这个宏文文件，就可以通过下面的方法法去访问我们建立的数据源了了 Sub opendb Dim id as innteger id = SSQLOpen SQLExxecQuery id, “select * frrom authors” Set output = Worksheets.RRange SQLRetrrieve id, outtput, , , nbbsp ; True SQQLClose id End sub 第二二句是调用宏中的SQLOppen函数建立一个对数据库库pubs连接，第三句是SSQLExecQuery函函数执行了一条selectt语句，id是由 SQLOOpen 函数返回的唯一连连接标识，第四句是SQLRRetrieve函数将SQQLExecQuery函数数执行的查询的结果返回到EExcel 2000中。 方法法四： 这种方法是使用APPI方法，下面是一个实例 res = SQLAllocHaandle ‘设置环环境属性 res = SQQLSetEnvAttr ‘分配数据库连接句柄 res = SQLAlloocHandle ‘连连接到数据源 sConneect=“DSN=pubss;DATABASE=puubs“ res=SQLDDriverConnectt,sConnOut, LLen, _ nConnOOutLen, 0) sSSql =“select * from authoors“ res = SQQLExecDirect)) ‘将记录返回当前表里里 res=SQLNumRResultCols Doo While SQLL_NO_DATA_FOUUND) J=j+1 FOOR I=1 TO Nc res = SQLGetDData Cells =ttmp Next I Looop ‘释放数据库连接接句柄 res = SQLLAllocHa