用户窗体录入日期

婉临又

求助大侠们     问题大概是在excel中通过窗体让用户手动输入日期，格式是“2019-10-01”这样的，然后将日期写到sql中通过exec写入sql数据库

sql命令是
exec [MesDate].[dbo].[test] '2019-10-01'

microyip

1. SQL_Conn.Execute "[MesDate].[dbo].[test] '2019-10-01'"

复制代码

婉临又

microyip 发表于 2019-10-8 16:31

日期是变动的 我问的问题可能不够明确，假如我的日期是变动的，我把它赋值给 time，那么我的exec里面单引号里应该怎么写？直接写time吗？

microyip

1. SQL_Conn.Execute "[MesDate].[dbo].[test] '" & Format(time,"yyyy-mm-dd") & "'"

复制代码

婉临又

microyip 发表于 2019-10-9 10:53

感谢！给你花~

另外或许您有空的话，可以帮我看看我这段代码吗？我想通过inputbox获取到年月，用sub调用它，但是我总是行不通。我感觉是sub里面调用不对，但是因为我没有系统学过vba 自己找了两格小时也没找到方法 感觉我的代码里到处都有问题
Sub Time()
useddate = Format(1, "00")
Call msgbox1(inputyear, month)
usedyear = inputyear
MsgBox usedyear
usedmonth = month
MsgBox month
usedtime = usedyear & "-" & usedmonth & "-" & useddate
MsgBox usedtime
End Sub


Public Function msgbox1(ByVal inputyear As String, ByVal month As String)
inputyear = InputBox("请输入年份：")
If IsNumeric(inputyear) = False Then
MsgBox "输入有误！请输入数字"
ElseIf inputyear < year(Now) Then
MsgBox "时间有误！"
End If
month = InputBox("请输入月份：")
If month > 12 Or IsNumeric(month) = False Then
MsgBox "输入有误，请输入正确的月份！"
month = InputBox("请输入月份：")
End If
End Function

microyip

1. Sub GetTime()
   
2.     Dim vMsg As Variant, nI As Integer, bFlag As Boolean, nDate(1 To 2) As Integer
   
3.    
   
4.     vMsg = Split("|请输入年份：|请输入月份：", "|")
   
5.     Do While nI < 2
   
6.         nI = nI + 1
   
7.         bFlag = True
   
8.         Do
   
9.             nDate(nI) = Application.InputBox(prompt:=vMsg(nI), Type:=1)
   
10.             If nDate(nI) = 0 Then
    
11.                 Exit Sub
    
12.             ElseIf nI = 1 Then '年份
    
13.                 If nDate(nI) < 2000 Or nDate(nI) > 2030 Then
    
14.                     MsgBox "输入年份不在2000~2030年之间！请重输！"
    
15.                 Else
    
16.                     Exit Do
    
17.                 End If
    
18.             Else '月份
    
19.                 If nDate(nI) < 1 Or nDate(nI) > 12 Then
    
20.                     MsgBox "输入的不是月份的数值！请重输！"
    
21.                 Else
    
22.                     Exit Do
    
23.                 End If
    
24.             End If
    
25.         Loop
    
26.     Loop
    
27.     MsgBox "输入的年月是：" & nDate(1) & "-" & Format(nDate(2), "00")
    
28. End Sub

复制代码

microyip

代码又要审核了，发图片吧

婉临又

microyip 发表于 2019-10-9 11:36
代码又要审核了，发图片吧

感谢！！！！！！！！！

microyip

获取年月部分，可以预设当前年月

1. nDate(nI) = Application.InputBox(Prompt:=vMsg(nI), Default:=IIf(nI = 1, Year(Date), month(Date)), Type:=1)

复制代码

婉临又

microyip 发表于 2019-10-9 14:24
获取年月部分，可以预设当前年月

再次感谢！！！！！！！！！