高手請來看,SQLAPD 連接,和輸入輸出參數應用問題-->tmtony转移

HG

Sub com_search_click()
On Error GoTo Err_com_search_Click
   Dim cmd As ADODB.Command
   Dim cnt As New ADODB.Connection
   Dim prm1 As New ADODB.Parameter
   Dim prm2 As New ADODB.Parameter
   Dim sql As String
      
   cnt.Open "provider =sqloledb,user id = sa,password =;date source = sql2k;"
   MsgBox cnt.State
   sql = "upr_qry_trade_wh_ins_line_pt"
   cmd.ActiveConnection = CurrentProject.Connection
   cmd.CommandType = adCmdStoredProc
   cmd.CommandText = sql
   
   Set prm1 = cmd.CreateParameter("@wh_ins_line_no", adInteger, adParamInput, , 1)
   Set prm2 = cmd.CreateParameter("@wh_ins_line_pt", adDecimal, adParamOutput)
   cmd.Parameters.Append prm1
   cmd.Parameters.Append prm2
   Debug.Print "outpt", cmd.Parameters(1)
   cmd.Execute
   
Exit_com_search_Click:
    Exit Sub

Err_com_search_Click:
    MsgBox Err.Description
    Resume Exit_com_search_Click
   
End Sub
----------------------------------------------
code sure but proc err:
provider cannot be found.it may not be properly installed
---------------------------------------------------------
請問高手,SQLOLEDB,是在參照中引用哪 一項
[em02]

HG

現在有這個了，哪是80年代的事情了
sub linkupdate()
dim strconnect as string
  dim rst as adodb.recordset
  dim udl as msdasc.dataliks /*這才是sqlADP提專用提供者
   set ud1 = new msdasc.datalinks
   strconnect = udl.promptnew
   currentproject.openconnection strconnect
end sub
----------------------------------------
是不是多功能連接呀。
請接著關注
高手布道樣中的小字報
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=5950&ID=5950

tmtony

strConnString ="rovider=SQLOLEDB.1assword=mypassword;" & _
"ersist Security Info=True;User ID=myuid;" & _
"Initial Catalog=mydbname;" & _
"Data Source=myserver;Connect Timeout=15"
看看你的参数有没有少，且首先检查你的ADO是否正常，在VB里插个ADO控件试试

HG

可以，小弟還愿意維護此貼。
多謝zhuyiwen.
大家的方法都不錯，都很熱情。

zhuyiwen

tmtony, 请把这个贴子转到ADP栏目中去。

HG

站長，zhenyiwen您們都還在嗎？
拉小弟一把了。好嗎？

zhuyiwen

你可以在调试时，在立即窗口中执行：

?CurrentProject.Connection.ConnectionString

我的结果为：
Provider=MSDataShape.1ersist Security Info=True;Data Source=MYDESK;User ID=saassword=***********;Initial Catalog=Apprais;Data Provider=SQLOLEDB.1

提供者为：SQLOLEDB.1

HG

多謝站長，隨然小弟用這個已可連接上
cmd1.ActiveConnection = CurrentProject.Connection
但很奇怪為什么在裝過MDAC(SQL2K)自帶的，還是沒有OLEDB連接提供者。
小弟愿自動維護此貼是。
請站長看一下有關--打開窗體傳遞參數的問題
多謝

tmtony

试试这个行不行
Conn.Open "Driver={SQL Server};Server=myserver;Database=mydatabase;Uid=sawd=;"

HG

站長先別走，拉小弟一把在說。
help help