标题: access vba 求医, 这段有何问题 [打印本页] 作者: ZZBZZBZZZB 时间: 2009-6-23 12:24 标题: access vba 求医, 这段有何问题 Private Sub Command3_Click()
Dim rsmx As ADODB.Recordset
Dim mysql As String, aq As String
Dim tyu产 As String
tyu产 = Combo12.Value
Set rsmx = New ADODB.Recordset
mysql = "select 明细科目 into aq from 明细科目表 where 总帐科目 ='" & Combo12.Value & "'"
rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'更改表名"aq"为组合框的值"tyu产"
DoCmd.Rename tyu产, acTable, "aq"
End Sub
上面的测试通过,下面的怎么也通不过,不知是什么原因.数据库传上来了,望好心人指正!!!!
Private Sub Command4_Click()
Dim rsm As ADODB.Recordset
Dim mysql As String, aq As String
Dim tyu As String
tyu = Combo12.Value
Set rsm = New ADODB.Recordset
mysql = "select 日期,凭证编号,摘要,总帐科目,明细科目,借方金额,贷方金额 into aq from 清单 where 总帐科目 ='" & Combo12.Value & "'"
rsm.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'更改表名"aq"为组合框的值"tyu产"
DoCmd.Rename tyu, acTable, "aq"
rsmx.Close
End Sub作者: 红尘如烟 时间: 2009-6-23 13:03
Private Sub Command4_Click()
Dim mysql As String
If IsNull(Me.Combo12) Then Exit Sub
tyu = Combo12.Value
mysql = " SELECT 清单.日期, 清单.凭证号, 清单.摘要, 清单.总账科目, 清单.明细科目, 清单.借方金额, 清单.贷方金额" & _
" INTO " & Me.Combo12.Value & _
" FROM 清单" & _
" WHERE 总账科目 ='" & Combo12.Value & "'"
CurrentDb.Execute mysql
MsgBox "表 '" & Me.Combo12 & "' 已生成。", vbInformation
End Sub作者: 红尘如烟 时间: 2009-6-23 13:05
只是生成表，用不着ADO作者: ZZBZZBZZZB 时间: 2009-6-24 16:54
非常感谢红尘如烟!!!!不是你问题解决不了
先在查询中将SQL语句设计好,然后再复制到代码中,这种做法还真没试过.用SQL视;做查询这个没问题,转化为代码怕有点难吧????下面是一个交叉的参数查询,能转化为代码吗??
PARAMETERS [Forms]![总账查询]![Combo12] Text ( 255 );
TRANSFORM Sum(末归类明细.AAA) AS AAA之总计
SELECT 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要, Sum(末归类明细.AAA) AS [总计 AAA]
FROM 末归类明细
WHERE (((末归类明细.清单.总账科目)=[Forms]![总账查询]![Combo12]))
GROUP BY 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要
PIVOT 末归类明细.明细科目;作者: ZZBZZBZZZB 时间: 2009-6-24 17:28
Private Sub Command4_Click()
Dim mysql As String
If IsNull(Me.Combo12) Then Exit Sub
tyu = Combo12.Value
mysql = " TRANSFORM Sum(末归类明细.AAA) AS AAA 之总计" & _
" SELECT 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要, Sum(末归类明细.AAA) AS [总计 AAA] " & _
" INTO " & Me.Combo12.Value & _
" FROM 末归类明细" & _
" WHERE 总账科目 ='" & Me.Combo12.Value & _
" GROUP BY 末归类明细.日期, 末归类明细.凭证号 " & _
" PIVOT 末归类明细.明细科目"CurrentDb.Execute mysql
MsgBox "表 '" & Me.Combo12 & "' 已生成。", vbInformation
End Sub