vb6.0(dataenvironment+datareport)+access2000,怎么传参数？

Question

dataenvironment的connection的command的sql语句能写成如“select * from client where client_id=?",?的值从text1.text传入，实现动态的生成报表，可以吗？

Answer 1

    set rs=cmd.execute (,text1.text)

Answer 2

sql = "select * from client where client_id=" & text1.text

Answer 3

写到外面，不要在command属性中写
Private Sub Command3_Click()
DbFileName = App.Path & "\article.mdb"
        connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                   DbFileName & ";Persist Security Info=False;"
    
DataEnvironment1.Connection1.Open connectstring
'DataEnvironment1.Connection1.Execute "select * from mz"
DataEnvironment1.rsCommand1.Open "select * from mz where id="&id
DataReport1.Show
End Sub