大力，皱健

Question

try:
Dim con As New ADODB.Connection
Dim comm As New ADODB.Command
Dim rst As New ADODB.RecordsetDim sdate As Stringsdate = Now()
CN.ConnectionString = "driver={sql server};server=aa\one_sql;database=金字塔项目;uid=sa;pwd=7766a"
CN.CursorLocation = adUseClient
CN.CommandTimeout = 300
CN.Opencomm.Parameters.Append comm.CreateParameter("@parIdentify", adChar, adParamInput, 10, 8456799999#)
comm.Parameters.Append comm.CreateParameter("@parAmount", adCurrency, adParamInput, 3, 6548)
comm.Parameters.Append comm.CreateParameter("@parNote", adChar, adParamInput, 2, "kk")
comm.Parameters.Append comm.CreateParameter("@parDate", adDBDate, adParamInput, , sdate)         comm.CommandText = "insertSale "
comm.CommandType = adCmdStoredProc
comm.Execute

Answer 1

comm.Parameters.Append comm.CreateParameter("@parDate", adDBDate, adParamInput, 这里呢？, sdate)

Answer 2

直接报告SQL语句不更好？
改为
con.exec(" exec insertSale 8456799999#,6548,'kk',sdate ")

Answer 3

TRY:con.exec(" exec insertSale '8456799999#',6548,'kk','sdate' ")

Answer 4

我一定要用command对象！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！