UC知道急！急！vb事例中sql查询实现遇到困难了
来源：百度知道 编辑：UC知道 时间：2024/09/20 09:37:24
Private Sub Command1_Click()
Dim tim As Date
tim = Form1.Text1.Text '在这里定义一个可以输入如2008-8-5时期变量
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT ODP_Master.ODP_Date as [date],ODP_Master.ODP_EM_Key,Primary_Codes.PC_Description,Operation_Codes.OC_Description,ODP_Detail.ODPD_Quantity,ODP_Detail.ODPD_Standard, ODP_Detail.ODPD_ST_Key, ODP_Detail.ODPD_SM_Key, ODP_Detail.ODPD_Piece_Rate FROM ODP_Master, ODP_Detail, Primary_Codes, Operation_Codes where Primary_Codes.PC_Key=Operation_Codes.OC_PC_Key And ODP_Detail.ODPD_OC_Key=Operation_Codes.OC_Key And ODP_Detail.ODPD_ODP_Key=ODP_Master.ODP_Key AND ODP_Master.ODP_Date = 'tim' '在这里调用text1.text中的内容
ORDER BY ODP_Master.ODP_Date"
Adodc1.Refresh
End Sub
可是运行时 提示数据不匹配！！！！！！这是问什么呢！！
高手过来帮忙呀！！小生在此谢谢了！
Dim tim As Date
tim = Form1.Text1.Text '在这里定义一个可以输入如2008-8-5时期变量
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT ODP_Master.ODP_Date as [date],ODP_Master.ODP_EM_Key,Primary_Codes.PC_Description,Operation_Codes.OC_Description,ODP_Detail.ODPD_Quantity,ODP_Detail.ODPD_Standard, ODP_Detail.ODPD_ST_Key, ODP_Detail.ODPD_SM_Key, ODP_Detail.ODPD_Piece_Rate FROM ODP_Master, ODP_Detail, Primary_Codes, Operation_Codes where Primary_Codes.PC_Key=Operation_Codes.OC_PC_Key And ODP_Detail.ODPD_OC_Key=Operation_Codes.OC_Key And ODP_Detail.ODPD_ODP_Key=ODP_Master.ODP_Key AND ODP_Master.ODP_Date = 'tim' '在这里调用text1.text中的内容
ORDER BY ODP_Master.ODP_Date"
Adodc1.Refresh
End Sub
可是运行时 提示数据不匹配！！！！！！这是问什么呢！！
高手过来帮忙呀！！小生在此谢谢了！
Dim tim As Date
tim = Cdate(Form1.Text1.Text)
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT ODP_Master.ODP_Date as [date],ODP_Master.ODP_EM_Key,Primary_Codes.PC_Description,Operation_Codes.OC_Description,ODP_Detail.ODPD_Quantity,ODP_Detail.ODPD_Standard, ODP_Detail.ODPD_ST_Key, ODP_Detail.ODPD_SM_Key, ODP_Detail.ODPD_Piece_Rate FROM ODP_Master, ODP_Detail, Primary_Codes, Operation_Codes where Primary_Codes.PC_Key=Operation_Codes.OC_PC_Key And ODP_Detail.ODPD_OC_Key=Operation_Codes.OC_Key And ODP_Detail.ODPD_ODP_Key=ODP_Master.ODP_Key AND ODP_Master.ODP_Date = " & tim & " ORDER BY ODP_Master.ODP_Date"
AND ODP_Master.ODP_Date = 'tim' '在这里调用text1.text中的内容
试试这个：
AND ODP_Master.ODP_Date = '" & text1.text &"'" '在这里调用text1.text中的内容