Office中国论坛/Access中国论坛

标题: SQL 查询问题?? [打印本页]

作者: xing_8 时间: 2004-7-15 22:58
标题: SQL 查询问题??
在SQL中查询到的内容导入到EXCEL应该怎样写.谁能帮忙加上,谢谢.如:

select

d23.code ,

d23.abbr_name,

d70.po_number  ,

d70.po_date  ,

d17.inv_part_number  ,

d17.inv_part_description ,

d71.quan_ord  ,

d71.del_date  ,

d71.quan_recd ,

d71.quan_retn ,

d71.price  ,

D71.TAX_2  ,

d71.quan_in_insp,

d71.quan_rejd  ,

(d71.quan_ord-d71.quan_recd+d71.quan_retn-d71.quan_rejd) quan_owe,

(d71.quan_recd-d71.quan_retn) real_recd,

d71.conversion_factor ,

d01.curr_code ,

d02p.unit_code pUnit,

d02s.unit_code sUnit

from

data0001 d01  ,

data0002 d02s ,

data0002 d02p ,

data0017 d17  ,

data0023 d23  ,

data0070 d70  ,

data0071 d71

where

d70.rkey = d71.po_ptr and

d70.currency_ptr = d01.rkey and

d70.supplier_pointer = d23.rkey and

d71.invt_ptr = d17.rkey and

d71.purchase_unit_ptr = d02p.rkey and

d17.stock_unit_ptr = d02s.rkey and

d70.status = 1

order by

d17.inv_part_number ,

d23.code ,

d70.po_number

作者: cg1 时间: 2004-7-15 23:09
方法非常多1、保存为查询后，用[url=mk

MSITStore

:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactTransferSpreadsheet.htm#][img]mk

msitstore:msohlp11.chm::/html/collapsetri.gif[/img]全部隐藏[/url]TransferSpreadsheet 方法参阅应用于[url=mk

MSITStore

:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactTransferSpreadsheet.htm#example]示例[/url]特性在 Visual Basic 中，TransferSpreadsheet 方法执行 TransferSpreadsheet 操作。expression.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)expression 必需。返回“应用于”列表中的一个对象的表达式。TransferType 可选 [url=mk:@MSITStore

:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactTransferSpreadsheet.htm#]AcDataTransferType[/url]。AcDataTransferType 可以是下列 AcDataTransferType 常量之一：acExportacImport 默认acLink 如果将该参数留空，将采用默认常量 (acImport)。SpreadsheetType 可选 AcSpreadSheetType。AcSpreadSheetType 可以是这些 AcSpreadSheetType 常量之一：acSpreadsheetTypeExcel3acSpreadsheetTypeExcel4acSpreadsheetTypeExcel5acSpreadsheetTypeExcel7acSpreadsheetTypeExcel8 默认acSpreadsheetTypeExcel9 默认acSpreadsheetTypeLotusWJ2 - 仅适用于日文版acSpreadsheetTypeLotusWK1acSpreadsheetTypeLotusWK3acSpreadsheetTypeLotusWK4 注释可以链接 Lotus 1-2-3 电子表文件中的数据，但是这些数据在 Microsoft Access 中是只读的。可以导入和链接 Lotus .WK4 文件，但是不能将 Microsoft Access 数据导出到此电子表格式中。而且，Microsoft Access 不再支持使用此方法导入、导出或链接 Lotus .WKS 或 Microsoft Excel 2.0 电子表中的数据。如果将该参数留空，将采用默认常量 (acSpreadsheetTypeExcel8)。TableName 可选 Variant 型。字符串表达式（字符串表达式：任一求值为一列连续字符的表达式。表达式的元素可以是：返回字符串或字符串 Variant (VarType 8) 的函数；字符串字面值、常量、变量或 Variant。），表示要向其中导入电子表格数据、从中导出电子表格数据或链接电子表格数据的 Microsoft Access 表的名称，或要将其结果导出到电子表格的 Microsoft Access 选择查询（选择查询：就表中存储的数据提出问题，然后在不更改数据的情况下以数据表的形式返回一个结果集。）的名称。FileName 可选 Variant 型。字符串表达式，表示要从其中导入、导出到或链接到的电子表格的名称与路径。HasFieldNames 可选 Variant 型。使用 True (-1) 可以在导入或链接时，将电子表格中的第一行用作字段名。使用 False (0) 可以将数据表第一行看成普通数据。如果将该参数留空，则采用默认值 (False)。在将 Microsoft Access 表或选择查询数据导出到电子表格中时，无论为该参数输入了何值，字段名称都将插入到电子表格的第一行中。Range 可选 Variant 型。字符串表达式，表示电子表格中单元格的有效范围或范围名称。该参数仅可用于导入。若要导入整个电子表格，请将该参数留空。导出到电子表格时，必须将该参数留空。如果

作者: cg1 时间: 2004-7-15 23:13
方法很多1、保存为查询后用TransferSpreadsheet 方法TransferSpreadsheet 方法

参阅应用于示例特性在 Visual Basic 中，TransferSpreadsheet 方法执行 TransferSpreadsheet 操作。expression.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)

expression    必需。返回“应用于”列表中的一个对象的表达式。TransferType 可选 AcDataTransferType。AcDataTransferType 可以是下列 AcDataTransferType 常量之一：

acExport

acImport 默认

acLink

如果将该参数留空，将采用默认常量 (acImport)。

SpreadsheetType 可选 AcSpreadSheetType。AcSpreadSheetType 可以是这些 AcSpreadSheetType 常量之一：

acSpreadsheetTypeExcel3

acSpreadsheetTypeExcel4

acSpreadsheetTypeExcel5

acSpreadsheetTypeExcel7

acSpreadsheetTypeExcel8 默认

acSpreadsheetTypeExcel9 默认

acSpreadsheetTypeLotusWJ2 - 仅适用于日文版

acSpreadsheetTypeLotusWK1

acSpreadsheetTypeLotusWK3

acSpreadsheetTypeLotusWK4

注释  可以链接 Lotus 1-2-3 电子表文件中的数据，但是这些数据在 Microsoft Access 中是只读的。可以导入和链接 Lotus .WK4 文件，但是不能将 Microsoft Access 数据导出到此电子表格式中。而且，Microsoft Access 不再支持使用此方法导入、导出或链接 Lotus .WKS 或 Microsoft Excel 2.0 电子表中的数据。如果将该参数留空，将采用默认常量 (acSpreadsheetTypeExcel8)。

TableName    可选 Variant 型。字符串表达式（字符串表达式：任一求值为一列连续字符的表达式。表达式的元素可以是：返回字符串或字符串 Variant (VarType 8) 的函数；字符串字面值、常量、变量或 Variant。），表示要向其中导入电子表格数据、从中导出电子表格数据或链接电子表格数据的 Microsoft Access 表的名称，或要将其结果导出到电子表格的 Microsoft Access 选择查询（选择查询：就表中存储的数据提出问题，然后在不更改数据的情况下以数据表的形式返回一个结果集。）的名称。FileName    可选 Variant 型。字符串表达式，表示要从其中导入、导出到或链接到的电子表格的名称与路径。HasFieldNames    可选 Variant 型。使用 True (-1) 可以在导入或链接时，将电子表格中的第一行用作字段名。使用 False (0) 可以将数据表第一行看成普通数据。如果将该参数留空，则采用默认值 (False)。在将 Microsoft Access 表或选择查询数据导出到电子表格中时，无论为该参数输入了何值，字段名称都将插入到电子表格的第一行中。Range    可选 Variant 型。字符串表达式，表示电子表格中单元格的有效范围或范围名称。该参数仅可用于导入。若要导入整个电子表格，请将该参数留空。导出到电子表格时，必须将该参数留空。如果输入了一个范围，导出将失败。UseOA    可选 Variant 型。说明

有关该操作及其参数如何使用的详细信息，请参阅该操作的主题。语法中的可选参数允许留空，但是必须包含参数的逗号。如果将位于末端的参数留空，则在指定的最后一个参数后面不需使用逗号。

注释  还可以通过使用 Recordset 对象的 ActiveConnection 属性，来使用 ActiveX 数据对象 (ADO) （数据访问对象 (DAO)：一种数据访问接口，与 Microsoft Jet 和符合 ODBC 的数据源通讯，以连接到、检索、操作和更新数据和数据库结构。）创建链接。

示例

下面的示例在 Lotus 电子表格 Newemps.wk3 的指定范围内将表导入到 Microsoft Access 的“Employees”表，并用电子表格中的第一行作为字段名。DoCmd.TransferSpreadsheet acImport, 3, _

"Employees","C:\Lotus\Newemps.wk3", True, "A1:G12"



2、用JET SQL的IN 子句完成http://access911.net/index.asp?board=4&mode=3&recordid=71FAB21E17DC

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)