我在窗体上放置了一个MaskEdBox控件,拿到时间格式
Private Sub Form_Load()
Me.Height = 8000
Me.Width = 13000
Me.Move (main.ScaleWidth - Me.Width) / 2, (main.ScaleHeight - Me.Height) - 1000
nowdata = Format$(Date, "YYYY-MM-DD")
MaskEdBox2.Mask = "####-##-##"
MaskEdBox2.MaxLength = 10
MaskEdBox2.PromptChar = " "
MaskEdBox2.Text = nowdata
Call liekuan
Call cmdload
End Sub
执行到sq赋值的时候,会提示字符串转datetime格式出现错误,
Private Sub chaxun_Click() '查询数据并冲入msflexgrid
Dim sq As String
connecttoserver
sq = "select * from tb_cl where datediff(d,flzrq,'MaskEdBox2.Text')<=30"*************这里
Call executesql(sq) '首先判断sql语句执行是否出错
If Err.Number <> 0 Then
MsgBox "错误代码:" & Err.Number & vbCrLf & _
"错误描述" & Err.Description, vbCritical + vbOKOnly, "连接错误"
disconnect
Exit Sub
End If
Private Sub Form_Load()
Me.Height = 8000
Me.Width = 13000
Me.Move (main.ScaleWidth - Me.Width) / 2, (main.ScaleHeight - Me.Height) - 1000
nowdata = Format$(Date, "YYYY-MM-DD")
MaskEdBox2.Mask = "####-##-##"
MaskEdBox2.MaxLength = 10
MaskEdBox2.PromptChar = " "
MaskEdBox2.Text = nowdata
Call liekuan
Call cmdload
End Sub
执行到sq赋值的时候,会提示字符串转datetime格式出现错误,
Private Sub chaxun_Click() '查询数据并冲入msflexgrid
Dim sq As String
connecttoserver
sq = "select * from tb_cl where datediff(d,flzrq,'MaskEdBox2.Text')<=30"*************这里
Call executesql(sq) '首先判断sql语句执行是否出错
If Err.Number <> 0 Then
MsgBox "错误代码:" & Err.Number & vbCrLf & _
"错误描述" & Err.Description, vbCritical + vbOKOnly, "连接错误"
disconnect
Exit Sub
End If
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货