📄 5834.html
字号:
<html>
<head>
<title>苤挔ㄛ斓赻备岆RDO询忒ㄛ崋系祥隙湘扂儸ˋ珨跺场悝VB腔苤账ㄐㄐㄐ</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>苤挔ㄛ斓赻备岆RDO询忒ㄛ崋系祥隙湘扂儸ˋ珨跺场悝VB腔苤账ㄐㄐㄐ</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by Mrs Wang on September 21, 1998 at 08:45:12:<p>
In Reply to: <a href="5771.html">RDO access remote MS access97 database error?Who save me?</a> posted by Mrs wang on September 18, 1998 at 11:47:16:<p>
<p>: NT server4.0 machine name:wang<br>: system dsn:mydata<br>: in my local machine :c:\mydatabase.mdb<br>: how to access remote NT server4.0 machine wang<br>: in database shareing directory<br>: c:\winnt\mydatabase.mdb,please help me?<br>: Option Explicit<br>: program code as follows:<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 = "c:\winnt\mydatabase.mdb; _<br>Driver=C:\WINNT\System32\odbcjt32.dll;" _<br>: & "DriverID=25;FIL=MS Access;UID=;PWD=;server=wang;dsn=mydata;"<br>: Set cn = en.OpenConnection(dsname:="", _ 'this line debug errors<br>: prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=scnct)<br>: ssql = "select * from branch"<br>: Set rs = cn.OpenResultset(ssql, rdopenkeyset)<br>: rs.addnew<br>: rs("branch_id") = "2"<br>: rs("branch__tep") = "132421"<br>: rs.Update<br>: While Not cn.EOF<br>: rs.MoveNext<br>: Wend<br>: rs.Close<br>: cn.Close<br>: End Sub<br>: but debug errors:<br>: there is errors:IM002[microsoft][odbc driver manager] data source name not found and no default<br>: driver specified <br>: who can save me?<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5834-->
</ul><!--end: 5834-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -