| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265532
建立时间:2005年6月6日 |
| |
|
 [delpih编程]如何查询其他数据库内的表(IN子句实例)？【转贴】
软件技术
吕向阳 发表于 2009/6/13 9:47:26 |
|
如何查询其他数据库内的表(IN子句实例)？
关于Excel可以这样
insert into 表 SELECT * FROM [Excel 5.0;HDR=YES;DATABASE=c:\test.xls].[sheet1$];说明:c:\test.xls 是excel文件名sheet1是要导入的工作表名上述方法认为 SHEET1 的第一行为字段名（列标题），如果第一行就是数据用以下代码
insert into 表 SELECT * FROM [Excel 5.0;HDR=NO;DATABASE=c:\test.xls].[sheet1$];
如果要导出到 EXCEL 表格可以用如下方法：
Function JetSQLExportExcel() Dim strsql As String strsql = "select * into [Excel 5.0;HDR=YES;DATABASE=c:\temp\111test.xls].[sheet1] from admin" CurrentProject.Connection.Execute strsqlEnd Function
其实，你要获取链接字串还有一个方便的办法，就是使用链接向导，先手工链接一个文件到你的数据库中，然后执行以下代码:
Function displayLinkStringFromLinkTable() '先到工具菜单->引用 中引用 Microsoft ADO Ext. 2.X for DDL and Security '引用 ADOX Dim strTableName strTableName = "001" '001是链接表的名字 Dim cat As New ADOX.Catalog Dim objTable As ADOX.table Set cat.ActiveConnection = CurrentProject.Connection For Each objTable In cat.Tables If objTable.Name = strTableName Then Debug.Print objTable.Properties("Jet OLEDB:Link Provider String").Name Debug.Print objTable.Properties("Jet OLEDB:Link Provider String").Value End If Next objTableEnd Function
'删除其他数据库的表中的数据Function TestDeleteFromAnotherDb() Dim strSql As String strSql = "delete * from [;database=" & CurrentProject.Path & "\c2.mdb].表1" Debug.Print strSql CurrentProject.Connection.Execute strSqlEnd Function
'将当前数据库表中的数据插入到其他数据库的指定表中Function TestInsertFromAnotherDb() Dim strSql As String strSql = "insert into [;database=" & CurrentProject.Path & "\c2.mdb].表1(test1) select test1 from 表1" Debug.Print strSql CurrentProject.Connection.Execute strSqlEnd Function示例下载：http://access911.net/csdn/FileDescription.asp?mdb=2009-4-22&id=46 |
|
|