Office中国论坛/Access中国论坛

标题: 如何用VB做生成表查询???向高人请教 [打印本页]

---

作者: ZZBZZBZZZB    时间: 2009-6-10 22:49
标题: 如何用VB做生成表查询???向高人请教
Private Sub Command42_Click()
Dim mxkm As String, i As Integer
Dim tyu产 As String
tyu产 = 总账科目.Value
    Set rsmx = New ADODB.Recordset
    mysql = "select 日期 凭证号 摘要  明细科目  借方金额  贷方金额 from 清单 into ssssss     where  总帐科目 = '" & tyu产 & "'"
   
rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Sub

---

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

Powered by Discuz! X3.3