50分送出，问题解决马上解贴！在VB中怎样取得执行存储后的返回值呢！

Question

Private Sub Command2_Click()
            Dim objConn As New ADODB.Connection
            Dim strSQL As String
            Dim strSQL123 As String
            Dim ConnectionString As String
            ConnectionString = "Provider=SQLOLEDB.1;Password=bukefeihua;Persist Security Info=True;User ID=wangkuanmei;Initial Catalog=master;Data Source=192.168.1.67"
            objConn.Open ConnectionString
            strSQL = "CREATE DATABASE zhangjiyong  ON PRIMARY  (NAME =zhf_data, FILENAME='C:\zhangjiyong_data.mdf', SIZE=15MB, MAXSIZE=20MB, FILEGROWTH=20%) LOG ON (NAME=zhf_Log, FILENAME='C:\zhangjiyong_Log.ldf', SIZE=3MB, MAXSIZE=10MB, FILEGROWTH=1MB) "
            strSQL123 = objConn.Execute(strSQL)
            MsgBox strSQL123
               
End Sub想实现这样的结果，请把具体代码贴出来！

Answer 1

Dim Cmd As ADODB.Command
    Set conn = New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Data Source=" 192.168.0.1;Initial Catalog=myphoto;User ID=sa;Password=test;"
    Set Cmd = New ADODB.Command
    With Cmd
        .ActiveConnection = conn
        .CommandText = "sp_Test"
        .CommandType = adCmdStoredProc
        .Parameters.Append Cmd.CreateParameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0)
        .Parameters.Append Cmd.CreateParameter("@userId", adInteger, adParamInput, , user_uid)        
         .Execute
    End With
 
    Out_put = Cmd.Parameters("@RETURN_VALUE").ValueOut_put 就是，嘿嘿看见你我名字蛮象的 告诉你咯 ：）

Answer 2

存儲過程應該另外寫在sql server里面Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "exec dbo.procInsert 參數1﹐參數2﹐參數3....
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    if not rsTable.eof then
          x=rsTable.fields(0).value
          'x的值成功返回1，失敗返回0
    endifEnd Sub--存儲過程如下﹕
CREATE PROC dbo.procInsert 
(@orderNo varchar(4),@orderName varchar(20),@orderNum numeric(10,2))
AS
BEGIN TRAN
SET NOCOUNT ON
SET ANSI_WARNINGS OFFINSERT INTO  new_ks.develop.TabX(order_no,order_name,order_num)
VALUES(@OrderNo,@OrderName,@OrderNum)
IF @@ERROR<>0  GOTO errhandleINSERT INTO  Northwind.develop.TabY(order_no,order_name,order_num)
VALUES(@OrderNo,@OrderName,@OrderNum)
IF @@ERROR<>0  GOTO errhandle
COMMIT TRAN
SELECT 1errhandle:
IF @@ERROR<>0
BEGIN
ROLLBACK TRAN
SELECT 0
ENDGO--成功返回1，失敗返回0