存储过程...
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
问题点数：50、回复次数：7Top
1 楼cqs76（老牛）回复于 2003-09-03 18:45:41 得分 0
一运行，就 报错？？
帮忙！Top
2 楼txlicenhe（马可）回复于 2003-09-03 18:50:58 得分 15
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
Top
3 楼txlicenhe（马可）回复于 2003-09-03 18:52:42 得分 15
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
Top
4 楼cqs76（老牛）回复于 2003-09-05 18:59:34 得分 0
方法我知道，我想找到错误！！1Top
5 楼kob（无助的人）回复于 2003-09-06 13:10:06 得分 0
在VB中不能用"CREATE PROCEDURE"创建存储过程,要用DMO对象创建,建议看看这方面的帮助,在SQL的安装目录下80\Tools\Books里有.Top
6 楼suntt（两条腿的狗）回复于 2003-09-06 13:51:59 得分 10
回： kob(无助的人) vb中可以用用执行sql语句来创建存储过程的。
楼主不知道你的错误出在哪一行，提示的错误是什么？Top
7 楼yunfeng007（一水寒）回复于 2003-09-06 14:04:39 得分 10
单步调试一下，看哪一行出错。然后贴出来，大家在帮你看看。Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
