高手請來看,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

請問站長,在哪 里可找到

HG

多谢站长,本人记的很清在装 office2000后一并装的SQLserver 客户端工具,在安装 时
明明看到有MDAC安装,但还是在引用时,系统出错说找不到.
小弟,后到微软站台下了MDCA2.7运行时,大约5M多吧,安装也没有问题 ,
但更严重的事情发生了,
在ADP项目中,用ACCESS[连TABLE ,VIEW,QRY等都看不到,数据都连不上,真是奇怪,
没办法,用修复OFFICE 修复后,方可以续着运用ACCESS ADP,
但还是引出不到SQLOLEDB,为什么????(指的是ACCESSXP英文版,中文版出样出错)
-------------------------------------------------------------

HG

電腦絕對沒有問題：
沒辦法，小弟現只能這樣邊接了。
cmd1.ActiveConnection = CurrentProject.Connection
但這樣，總覺得不很靈活。
為何會如些哪？

HG

但為何還是在引用項中找不倒OLEDB提供者哪？

HG

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

HG

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

HG

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

HG

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

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