17033.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 35 行

HTML
35
字号
<html>  <head>    <title>Re: 怎样动态设定DataEnvironment 的DataSource?</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 怎样动态设定DataEnvironment 的DataSource?</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 大汉堡 on August 11, 1999 at 03:14:28:<p>In Reply to: <a href="16998.html">怎样动态设定DataEnvironment 的DataSource?</a> posted by Fai on August 10, 1999 at 16:48:39:<p>: 本人有一个DataEnvironment,DataSource="D:\ESU\ESU.mdb",DataEnvironment 裹面有几个Command<br>: 由于这程式会设在不同的电脑上,因此需要改变不同的Path<br>: 所以要动态设定DataEnvironment 的DataSource<p>: 我在form中,写了此行<br>:     ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & DbDir & "ESU.mdb"<br>:     DataEnvironment1.Connection1.ConnectionString = ConnStr<br>: 想动态改变Directory Path 的位置,当一用到Command 的时候<br>: Error Message is displayed as "[Microsoft][ODBC Driver Manager] Data Source name not found and no default driver specified"<br>: 请问应怎么办?<br>不要先设定,于程式执行再做<br>Private Sub Connection1_WillConnect(ConnectionString As String, Userid As String, Password As String, Options As Long, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)<br>  DataEnvironment1.Connection1.Properties("data source") = ConnStr<br>End Sub<p><p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17033--><!--top: 17044--><li><a href="17044.html">Re: 怎样动态设定DataEnvironment 的DataSource?</a> <b>Fai</b> <i>10:42:00 8/11/99</i>(<!--responses: 17044-->2)<ul><!--insert: 17044--><!--top: 17102--><li><a href="17102.html">Re: 怎样动态设定DataEnvironment 的DataSource?</a> <b>大汉堡</b> <i>04:38:38 8/12/99</i>(<!--responses: 17102-->1)<ul><!--insert: 17102--><!--top: 17118--><li><a href="17118.html">Re: 我已经试到!谢谢!怎样动态设定DataEnvironment 的DataSource?</a> <b>Fai</b> <i>12:21:33 8/12/99</i>(<!--responses: 17118-->0)<ul><!--insert: 17118--></ul><!--end: 17118--></ul><!--end: 17102--></ul><!--end: 17044--></ul><!--end: 17033--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?