导出记录如何设置成变量？

子煜　发表于：2011-07-23 10:52:44 　

Private Sub Command02_Click()

Dim rs01 As New ADODB.Recordset, rs02 As New ADODB.Recordset

rs01.Open "SELECT 示例主表.* FROM 示例主表 WHERE (((示例主表.主示例01)='1000015'));", CurrentProject.Connection, adOpenKeyset, adLockReadOnly '单头记录集
rs02.Open "SELECT 示例子表.* FROM 示例子表 WHERE (((示例子表.主示例01)='1000015'));", CurrentProject.Connection, adOpenKeyset, adLockReadOnly '单身记录集
OutExcels "555", rs01, rs02

rs01.Close
rs02.Close
Set rs01 = Nothing
Set rs02 = Nothing

End Sub

以下代码是一个导出按钮的，在此按钮上固定了导出SQL代码，这个导出代码如何实现成变量？

比如在前台来控制记录导出从哪个表，谢谢，请给个思路。

Top

煮江品茶发表于：2011-07-23 11:08:51

http://www.accessoft.com/blog/article-show.asp?userid=10802&Id=5660

Top

子煜发表于：2011-07-23 17:33:40

'rs01.Open "SELECT T_MO.* FROM T_MO WHERE (((T_MO.MO1_MOCode)='" & Print_Order & "'));", CurrentProject.Connection, adOpenKeyset, adLockReadOnly '单头记录集
'rs02.Open "SELECT T_MO2.* FROM T_MO2 WHERE (((T_MO2.MO2_SOCode)='" & Print_Order & "'));", CurrentProject.Connection, adOpenKeyset, adLockReadOnly '单身记录集

红色部份如何改成变量呢？就是引用窗体上的一个控件名称，可以自由输入单号。

改成这样后也不起作用？

'rs01.Open "SELECT T_MO.* FROM T_MO WHERE ((('" & Me.Headers_Code_Field & "')='" & Print_Order & "'));", CurrentProject.Connection, adOpenKeyset, adLockReadOnly '单头记录集
'rs02.Open "SELECT T_MO2.* FROM T_MO2 WHERE ((('" & Me.Lines_Code_Field & "')='" & Print_Order & "'));", CurrentProject.Connection, adOpenKeyset, adLockReadOnly '单身记录集

Top

煮江品茶发表于：2011-07-23 19:11:35

你怎么不好好看给你地址的文章呢？

3、如果构造SQL语句的变量是SQL语句中某些字段、某些子句需要用到的变量值，而不是SQL语句的子句名称（诸如select、delect、from 、where等）和字段名称，则变量值需要按照不同的数据类型进行表达。

Top

子煜发表于：2011-07-23 19:22:08

明白，谢谢指教。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

导出记录如何设置成变量？