Office中国论坛/Access中国论坛

标题: 高手請來看,SQLAPD 連接,和輸入輸出參數應用問題-->tmtony转移 [打印本页]

作者: HG 时间: 2002-5-24 23:52
标题: 高手請來看,SQLAPD 連接,和輸入輸出參數應用問題-->tmtony转移
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]

作者: tmtony 时间: 2002-5-25 00:04
缺省的控件面板中的ODBC源中的SQL driver 不带sqloleDB的
SQLOLEDB 一般包含在MDAC （ADO）中，如果你有ADO2.5 2.6 2.7
应该引用ADO就可以了

作者: HG 时间: 2002-5-25 00:25
請問站長,在哪里可找到

作者: tmtony 时间: 2002-5-25 00:37
你安装了office2000 本身应该有啊。不行的话你去微软的网站上下载

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

作者: ganrong 时间: 2002-5-28 01:17
提示: 作者被禁止或删除内容自动屏蔽

作者: HG 时间: 2002-5-28 02:26
電腦絕對沒有問題：
沒辦法，小弟現只能這樣邊接了。
cmd1.ActiveConnection = CurrentProject.Connection
但這樣，總覺得不很靈活。
為何會如些哪？

作者: HG 时间: 2002-6-9 01:17
但為何還是在引用項中找不倒OLEDB提供者哪？

作者: HG 时间: 2002-6-9 01:20
站長先別走，拉小弟一把在說。
help help

作者: tmtony 时间: 2002-6-9 01:24
试试这个行不行
Conn.Open "Driver={SQL Server};Server=myserver;Database=mydatabase;Uid=sa

wd=;"

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

作者: zhuyiwen 时间: 2002-6-9 01:31
你可以在调试时，在立即窗口中执行：

?CurrentProject.Connection.ConnectionString

我的结果为：
Provider=MSDataShape.1

ersist Security Info=True;Data Source=MYDESK;User ID=sa

assword=***********;Initial Catalog=Apprais;Data Provider=SQLOLEDB.1

提供者为：SQLOLEDB.1

作者: HG 时间: 2002-6-9 01:31
站長，zhenyiwen您們都還在嗎？
拉小弟一把了。好嗎？

作者: zhuyiwen 时间: 2002-6-9 01:35
tmtony, 请把这个贴子转到ADP栏目中去。

作者: HG 时间: 2002-6-9 01:37
可以，小弟還愿意維護此貼。
多謝zhuyiwen.
大家的方法都不錯，都很熱情。

作者: tmtony 时间: 2002-6-9 01:53
strConnString ="

rovider=SQLOLEDB.1

assword=mypassword;" & _
"

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

作者: HG 时间: 2002-6-13 23:55
現在有這個了，哪是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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)