📄 6301.html
字号:
<html>
<head>
<title>扂腔谤跺陎□腔恀枙甡□崠婓ㄛwho can help me?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>扂腔谤跺陎□腔恀枙甡□崠婓ㄛwho can help me?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:yuan@zhuhai.gov.cn">yuan</a> on October 07, 1998 at 14:13:58:<p>
RDO源杨溼恀挂侬(win95)ACESS97杅擂踱夔伧髡ㄛ笋岆参杅<br> 擂踱COPY善<br> NTSERVER4﹝0腔Cㄩwinnt,肮欴扢离32弇ODBCㄛ□軞岆蟀诿<br> 祥善DSN,峈妦<br> 系?缀懂扂补毯婓NT<br> server4.0奻假蚾肮欴腔vb6,蔚最唗植厍厘<br> 迈懈覃□婓NT<br> server4.0奻堍俴,毞陛!!!,夔劂伧髡!!!why???<br> program as follows:<br> Option Explicit<br> Public en As rdoEnvironment<br> Public cn As rdoConnection<br> Private Sub Form_Load()<br> Dim scnct As String<br> Dim rs As rdoResultset<br> Dim ssql As String<br> Set en = rdoEngine.rdoEnvironments(0)<br> scnct = "dbq=c:winntdb1.mdb;Driver={Microsoft Access<br> Driver(*.mdb)};"<br> scnct = scnct & "DriverID=25;FIL=MS<br> Access;UID=;PWD=;"<br> Set cn = en.OpenConnection(dsname:="yuan1", _<br> prompt:=rdDriverNoPrompt, _<br> ReadOnly:=False, Connect:=scnct)<br> ssql = "select * from branch"<br> Set rs = cn.OpenResultset(ssql, rdOpenKeyset,<br> rdConcurRowVer)<br> rs.Delete<br> rs.Close<br> cn.Close<br> End Sub<br> 缀懂扂衱彸覂溼恀SQL SERVER6.5<br> DATABASE,夔伧髡,笋婓扂腔<br> WIN95奻桽欴祥夔伧髡﹝<br> program as follows:<br> Option Explicit<br> Public en As rdoEnvironment<br> Public cn As rdoConnection<br> Dim scnct As String<br> Private Sub Form_Load()<br> Set en = rdoEngine.rdoEnvironments(0)<br> scnct =<br> "dsn=infodsn;uid=sa;pwd=;database=govinfodatabase;"<br> Set cn = en.OpenConnection(dsname:="infodsn",<br> prompt:=rdDriverNoPrompt, ReadOnly:=False,<br> Connect:=scnct)<br> End Sub<br> □奥,涴谤跺最唗婓扂腔WIN95奻軞岆祥夔伧髡ˋ扂羶衄蜊曹<br> dsn<br> name.<br> 笋渣昫珨欴ㄩrun-time errors"40002"<br> Im002:[microsoft][odbc driver manager]data source<br> name not<br> found and no default driver specified.<br> why????,最唗遥剩珨怢侬□ㄛ婓sever machine can<br> success,<br> but client machine fail.<p> 鼠佽鼠衄耋ㄛ□佽□衄烩ㄐ<br> Mrs Taotai佽ㄩ跤斓跺膘祜ㄛAccess杅擂踱岆恅璃倰杅擂<br> 踱ㄛ<br> □别斓妏蚚Access杅擂踱ㄛ郔疑蚚DAO(Data<br> Access Object)杅擂竘□懂绂釬杅擂踱,坳腔厒<br> 仅猁掀蚚RDO么ADO籵彻ODBC溼恀Access杅擂踱<br> 办腔嗣ㄛ□髡夔载□˙奥RDO眕挚ADO蚚懂溼恀<br> DBMS杅擂踱.(DBMS -- DataBase Manage<br> System,□:Oracle, DB2, Sybase, MS<br> SQLSERVER胀)<p> Mrs xiaoming佽ㄩ扢离杅擂埭奀:DataBase: Select 衄拸恁<br> 渣﹝(恁寁奀粒蚚厍厘茬扞)<p><p> 扂腔隙湘ㄩ<br> 么粒蚚 DAOㄛ茬扞厍厘缭噤辆俴溼恀﹝<br> 扂岆婓蚚RDO源杨彸覂溼恀堈最杅擂踱<br> 岆祥岆溼恀remote database饮猁茬扞<br> 善挂华□雄□疡,□□f:db1.mdb,<br> SQL server珩岆涴欴镉?扂埣懂埣缁芨剩<br> 奥杅擂踱督昢□祥蚚扢离system dsn,婬氪<br> 蚚dao崋系迡最唗儸?硐迡蟀诿杅擂踱窒煦憩褫<p><p> 1.Sql-Server峈督昢□竘□杅擂踱(斛剕婓NT<br> 奻假蚾督昢□ㄛ甜□硐夔衄珨跺)ㄛ垀眕妏蚚<br> ODBC蟀诿奀硐剒硌陇督昢□侬□靡憩褫眕妎梗<br> (籵彻NT腔厍厘杻俶,珨跺Sql_Server妇嬷嗣跺<br> 杅擂踱)<br> Access杅擂踱翋猁蚚衾挂华督昢(绞□珩褫眕<br> 粒□恅璃仆砅源宒妗珋PC厍厘杅擂踱),□驮釬<br> 桴奻祥硌陇捡极杅擂踱缭噤寀跦挂拸杨妎梗﹝<br> 2.牖衾Access腔溼恀侬秶祥巠磁衾妗珋嗣蚚<br> 誧溼恀ㄛ垀眕□别珨隅猁粒蚚Access杅擂踱ㄛ<br> 寀驮釬桴最唗斛剕贱樵疑贱坶恀枙(杅擂踱坶隅<br> ㄛ嗣蚚誧绂釬奀)<br> 3.妏蚚DAO源宒掀诞潠赏ㄛ甜□勤衾ACCESS杅擂<br> 溼恀奥晟ㄛ祥掀RDO船嗣屾﹝<br> dim Db as Database<br> Set Db = Workspaces(0).OpenDatabase<br> ("杅擂踱缭噤+杅擂踱靡")<br> ㄗ逄历腔Ａ坻统杅褫脤堆翑ㄘ<br> 脤戙绂釬ㄩ<br> dim Rs as Recordset<br> Set Rs=Db.OpenRecordset("ACCES腔SQL逄历")<br> 硒俴绂釬:<br> Db.Execute ACCES腔SQL逄历,DbFailOnError<p> Mrs Jack佽ㄩa sample<br> Global conMAF001 As New rdoConnection<p> With conMAF001<br> .Connect = "uid=xxxxx;pwd=xxxxxx;DSN=MAF001;"<br> .CursorDriver = rdUseOdbc<br> .EstablishConnection rdDriverNoPrompt<br> End With<p> '// leave the rest to odbc's property<br> '// context is my working codes<br> ':) odbc should setup on 95/client, not server side<br> hi!<br> 跪弇□卷询忒ㄐ夔email 挠跺蚚dao,rdo溼恀Ms access97<br> databaseㄛ<br> SQL server database腔瞰赽镉ˋ<br> 噶器扢离odbc杅擂埭岆婓NT SERVER奻逊岆婓扂腔win95奻﹝<br> 扂岆埣懂埣祥陇徽ㄐ<br> 婓妦系□表狟ㄩ扢离杅擂埭奀ㄛDataBase: Select<br> (恁寁奀粒蚚厍厘茬扞)<p><p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6301-->
<!--top: 6317--><li><a href="6317.html">Mmmm, check your ODBC driver.</a> <b>小吴</b> <i>07:48:35 10/08/98</i>
(<!--responses: 6317-->0)
<ul><!--insert: 6317-->
</ul><!--end: 6317-->
</ul><!--end: 6301-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -