存储过程？

[cqs76]

Private Sub Form_Load()
Show
Dim con As New ADODB.Connection
Dim comm As New ADODB.Command
Dim rst As New ADODB.Recordset

Dim sdate As String
sdate = Now()
con.Open "driver={sql server};server=cqs\cqs_sql;database=金字塔项目;uid=sa;pwd=7766a"
comm.ActiveConnection = con

comm.Parameters.Append comm.CreateParameter("@parIdentify", adChar, adParamInput, 18, 320411761031002#)
comm.Parameters.Append comm.CreateParameter("@parAmount", adCurrency, adParamInput, 3, 12000)
comm.Parameters.Append comm.CreateParameter("@parNote", adChar, adParamInput, 2, "kk")
comm.Parameters.Append comm.CreateParameter("@parDate", adDate, adParamInput, , sdate)


comm.CommandText = "insertSale "
comm.CommandType = 4
comm.Execute
Print "ok"
End Sub


CREATE PROCEDURE insertSale
@parIdentify varchar(18),
@parAmount money,
@parNote char(12),
@parDate datetime
as
insert into sale(identify,amount,note,[date]) values(@parIdentify,@parAmount,@parNote,@parDate)
'sale是表名
GO

[cqs76]

一运行，就 报错？？
帮忙！

[txlicenhe]

Private Sub Form_Load()
Show
Dim con As New ADODB.Connection

Dim sdate As String
sdate = Now()
con.Open "driver={sql server};server=cqs\cqs_sql;database=金字塔项目;uid=sa;pwd=7766a"

con.exec " exec insertSale "
Print "ok"
End Sub

[txlicenhe]

Private Sub Form_Load()
Show
Dim con As New ADODB.Connection

Dim sdate As String
sdate = Now()
con.Open "driver={sql server};server=cqs\cqs_sql;database=金字塔项目;uid=sa;pwd=7766a"

con.execute " exec insertSale "
Print "ok"
End Sub

[txlicenhe]

Private Sub Form_Load()
Show
Dim con As New ADODB.Connection

Dim sdate As String
sdate = Now()
con.Open "driver={sql server};server=cqs\cqs_sql;database=金字塔项目;uid=sa;pwd=7766a"

con.execute " exec insertSale 320411761031002#,12000,'KK','" & sdate & "'"
Print "ok"
End Sub

[cqs76]

写法我会的！
大哥，我要找错！！

[sdhdy]

try:
comm.Parameters.Append comm.CreateParameter("@parIdentify", advarChar, adParamInput, 18, "320411761031002#")
comm.Parameters.Append comm.CreateParameter("@parAmount", adCurrency, adParamInput, 3, 12000)
comm.Parameters.Append comm.CreateParameter("@parNote", adChar, adParamInput, 12, "kk")
comm.Parameters.Append comm.CreateParameter("@parDate", adDate, adParamInput, , " & sdate & ")

[tangji]

comm.CommandText = "exec insertSale 参数"
comm.CommandType = 4
comm.Execute
Print "ok"

[yyy431706]

comm.Parameters.Append comm.CreateParameter("@parIdentify", adChar, adParamInput, 18, 320411761031002#)
comm.Parameters.Append comm.CreateParameter("@parAmount", adCurrency, adParamInput, 3, 12000)
comm.Parameters.Append comm.CreateParameter("@parNote", adChar, adParamInput, 2, "kk")
comm.Parameters.Append comm.CreateParameter("@parDate", adDate, adParamInput, , sdate)


comm.CommandText = "insertSale "
comm.CommandType = 4
把上面的改为：
comm.CommandText = "insertSale "
comm.CommandType = 4

cmd.Parameters.Refresh
cmd.Parameters("@parIdentify")=320411761031002#
cmd.Parameters("@parAmount")=12000
cmd.Parameters("@parNote")="kk"
cmd.Parameters("@title")=" & sdate & "
试试