Question

如何用VB向SQL2000数据库创建存储过程？

如果说不可以，那么，软件开发者如何进入到购买者的数据库中去写存储过程？我这个问也许很好笑，不过还是请哪位热心人帮忙作答，不胜感谢！！
如果可以，请给出一个简单的例子

Answer 1

当然可以，这是我以前做的其中一小段：
adoconn.Execute ("CREATE PROCEDURE mmas98.AddHDCard @parm_CardName varchar(40),@parm_CardID int,@parm_DepName varchar(40),@parm_ID varchar(20),@CardCount int AS" & vbCrLf & _
"DECLARE @ahid GUID,@DepId int" & vbCrLf & _
"SELECT @ahid = [object_id] FROM mmas98.AlarmHost WHERE [VCM_count]=0" & vbCrLf & _
"SELECT @DepId = [id] FROM mmas98.department WHERE [name] = @parm_DepName" & vbCrLf & _
"IF @CardCount=1 TRUNCATE TABLE mmas98.card" & vbCrLf & _
"INSERT INTO mmas98.Card VALUES(@parm_CardName,@CardCount,@ahid,@parm_CardID,0,@DepID,'1990-1-1','2012-12-31',0,0,2,0,@parm_ID)" & vbCrLf & _
"RETURN 0")
End If

adocomm.CommandText = "mmas98.AddHDCard" '设置Command对象源。
adocomm.CommandType = adCmdStoredProc '设置这个属性优化了该命令的执行
' adocomm.Parameters.Refresh
If ListView1.ListItems.Count > 0 Then
For i = 1 To ListView1.ListItems.Count
Set itm = ListView1.ListItems(i)
If itm.SubItems(1) <> "" Then
adocomm.Parameters(1) = itm.SubItems(2)
adocomm.Parameters(2) = itm.SubItems(4)
adocomm.Parameters(3) = itm.SubItems(3)
adocomm.Parameters(4) = itm.SubItems(1)
adocomm.Parameters(5) = i
adocomm.Execute
End If
Command4(0).Caption = CStr(Int(i / ListView1.ListItems.Count * 100)) & "%"
Command4(0).Refresh
Next i
Command4(0).Enabled = False
End If

追问

本人初识VB，对您的回答非常感谢却并不太懂，能加上注释吗？

追答

开始一段是把存储过程写入数据库
adocomm.Parameters(4) 给存储过程传递参数
adocomm.Execute执行存储过程

Answer 2

SQLstr = "Insert into PowerCheck _(nTime,sn,Volt,nCurrent,Temperature)" & _
"Values (" & "#" & clsS1.Time _ & "#" & "," & "'" + frmLogin.Text1.Text + "'" _
& "," & clsS1.Volt & "," & _clsS1.Current & "," & clsS1.Temperature & ")"

这是我刚调试过的SQL语句，你可以参考一下!