vb请问这句话如何修改

来源：百度知道编辑：UC知道时间：2024/06/21 10:26:55

Dim sql As String

sql = "Select acc_num,ex_date,ex_type,money from exchange_info_tab Where acc_num = '" & DataCombo1.Text & "' and ex_date Between '" & statm.Value & "'" & " and " & "'" & endtm.Value & "'"

Adodc1.RecordSource = sql
Adodc1.Refresh

SQL语句中,对于数值型数据不用加""
我想你的acc_num statm.Value endtm.Value 都应该是数值型的吧
这样改试试看:
sql = "Select acc_num,ex_date,ex_type,money from exchange_info_tab Where acc_num = " & Val(DataCombo1.Text) & " and ex_date Between " & statm.Value & " and " & endtm.Value

请问这个vb程序如何修改？ VB如何修改注册表外语这句话有错吗？如何修改？ vb如何修改TXT文件？ VB窗体名如何修改? VB如何修改文件后缀名 vb中如何修改屏幕分辨率请问这句话如何翻译请问这句话如何译请问这句话如何理解