如何把一个插入语句写成一个存储过程，并在vb里调用？多谢高手指点

Question

Sql = "INSERT INTO SX_HIST(SIMCARD,GPSDATE,GPSTIME,LONGITUDE,LATITUDE,SPEED,DIRECTION) VALUES('" & bszSimCard & "','" & bszDate & "','" & bszTime & "','" & dblY & "','" & dblX & "','" & dblSpeed & "','" & dblDir & "')"
        Gcnn.Execute Sql这是我目前用来实现插入的语句，我需要做那些工作就可以把它变为存储过程，并在vb里调用，只传递参数就可以啦；多谢

Answer 1

有必要吗？我觉得根本直接在SQL里面传就可以的嘛

Answer 2

'调用存储过程Public Sub Mk_GGL123(cs1 As Double, cs2 As Long)
    Dim cmd As New ADODB.Command
    Set cmd.ActiveConnection = Sjy   '连接的数据源
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "ccgcmc"    'ccgcmc 存储过程名
    cmd.Parameters(1) = cs1       '第一个参数
    cmd.Parameters(2) = cs2       '第二个参数,如果参数很多继续写
    Sjy.CursorLocation = adUseClient
    cmd_qkjshxpd.Execute
    Sjy.CursorLocation = adUseServer
End Sub

Answer 3

如果要批量插入数据的话，最方便的方法是用 ADODB.RecordSet.UpdateBatch 方法。
打开记录集，批量新增数据，最后 UpdateBatch，看一下帮助。

Answer 4

'调用存储过程Public Sub Mk_GGL123(cs1 As Double, cs2 As Long)
    Dim cmd As New ADODB.Command
    Set cmd.ActiveConnection = Sjy   '连接的数据源
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "ccgcmc"    'ccgcmc 存储过程名
    cmd.Parameters(1) = cs1       '第一个参数
    cmd.Parameters(2) = cs2       '第二个参数,如果参数很多继续写
    Sjy.CursorLocation = adUseClient
    cmd.Execute  'sorry 这儿刚才错了。
    Sjy.CursorLocation = adUseServer
End Sub