我現在有一個存盤程序，它的引數是開始時間和結束時間。執行這個存盤程序可以將資料存入到User表中，
現在我想做一個VB小程式里面包括兩個DTPicker和一CommandButton，
選擇好DTPicker的值，然后單機CommandButton，就可以將資料存入到User表中。
我想知道在
Private Sub CommandButton_Click()
End Sub
里面我要怎樣寫啊？沒有做過，求教！！
謝謝！！
uj5u.com熱心網友回復：
Dim dt1 as String
Dim dt2 as String
dt1=Format(Now-20#/3600#/24#, "YYYY-MM-DD hh:mm:ss")
dt2=Format(Now, "YYYY-MM-DD hh:mm:ss")
conn.Exec “insert into tablename (dt1,dt2) values ('"+dt1+"','"+dt2+"')"
uj5u.com熱心網友回復：
可是我要執行的是存盤程序，conn.Exec “insert into tablename (dt1,dt2) values ('"+dt1+"','"+dt2+"')"
這里是要往表里面插入資料，我的這個表里面有很多的欄位，而且時間欄位就有一個，如果要像你這樣做的話，
那我這個表里面可就有好多欄位都是Null值了
uj5u.com熱心網友回復：
假定你的存盤程序sp_my_store_procedure需要兩個datetime型別的引數：conn.Exec “sp_my_store_procedure '"+dt1+"','"+dt2+"'"
uj5u.com熱心網友回復：
這是我做的一個簡單的頁面。
Private Sub cmdStatistics_Click()
strSQL = "exec ProcSateUserCash @BDate='" + StdValue(dtpSTime.Value, stDateTime) + "',@EDate='" + StdValue(dtpETime.Value, stDateTime) + "' "
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
dtpSTime.Value = "2014-02-01"
dtpETime.Value = Now
End Sub
這是我寫的后臺代碼，但是不對，我執行了之后，查看資料庫，沒有生成資料。
我現在還行往里面加入點東西，
因為資料量比較大所以，我想當統計的時候有提示“正在統計現金說資料”
當統計結束的時候提示“現金資料統計成功”。
麻煩你幫忙看看要怎樣改！謝謝。。。
uj5u.com熱心網友回復：
我又修改了一下統計的按鈕Private Sub cmdStatConsume_Click()
Dim strSQL As String
Dim aFields() As String
Dim sTime As String
Dim eTime As String
Dim deptIDs As String
Dim adoComm As Object
Set adoComm = CreateObject("ADODB.Command")
sTime = StdValue(dtpSTime.Value, stDate)
eTime = StdValue(dtpETime.Value, stDate)
mvarLastError = ""
On Error GoTo errFlag
If conn.State <> 1 Then conn.Open
'// 設定連接
Me.MousePointer = ccHourglass
adoComm.ActiveConnection = conn
adoComm.CommandType = adCmdStoredProc
adoComm.CommandText = "ProcUserCash"
adoComm.Parameters("@BTime") = sTime
adoComm.Parameters("@ETime") = eTime
'// 執行存盤程序
Set rsConsumeInfo = adoComm.Execute
If Not rsConsumeInfo.EOF Then
Application.DisplayStatusBar = True
Application.StatusBar = "正在運行中。。。。，請稍候..."
Set rsConsumeInfo = Nothing
Else
mvarLastError = "未查詢到任何結果"
MsgBox mvarLastError, vbInformation, "提示"
End If
'// 釋放物件
Set adoComm = Nothing
If rsConsumeInfo.State <> 0 Then rsConsumeInfo.Close
Set rsConsumeInfo = Nothing
Me.MousePointer = ccDefault
On Error GoTo 0
Exit Sub
errFlag:
Me.MousePointer = ccDefault
Set adoComm = Nothing
If rsConsumeInfo.State <> 0 Then rsConsumeInfo.Close
Set rsConsumeInfo = Nothing
mvarLastError = "發生錯誤,程式無法正常運行"
MsgBox mvarLastError, vbInformation, "提示"
End Sub
這樣執行的時候發生了錯誤，錯誤提示為“發生錯誤，程式無法正常運行”
這樣要怎樣修改啊？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/121737.html
標籤：網絡編程
上一篇：如何將通過MatrixvB畫出的figure1在picture里顯示？
下一篇：VB呼叫WORD模板列印怎么實作