用dataEnvironment连接数据库的问题,极难=50?

Question

你是通过ODBC连接数据库吗，如果是，在系统的ODBC数据源管理中，先将各种参数设置好，等连接时只要指定连接源的名称，就不用重输了。

Answer 1

我的Provider=SQLOLEDB.1，用的是VB，直接连数据库，不经过ODBC，我以前做的一个系统就是从ODBC绕的，现在我想直接连，但唯一没解决的就是上题了。各位大侠，都没法吗？

Answer 2

vb是Dao吗？Set  qdserver=dbserver.CreateQueryDef(  "  ")  
strSQL="EXEC  [SP]  @CODE_IN  =  'BATCHEXCHANGE'  "  
With  qdserver  
     .Connect="odbc;driver={SQL  Server};database=datqbase;server=servername;pwd=123  "  
     .ReturnsRecords=True  
     .SQL  =  strSQL  
      Set  rsBatch=.OpenRecordset(dbOpenSnapshot,dbSQLPassThrough)  
End  With

Answer 3

还是ADO: 
Ado
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .NonnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With

Answer 4

各位可能理解不了我的意思，我的意思是我在自已的机子上开发，是静态的，没有数据库连接上的问题，我是用dataEnvironment连接数据库,但拿到客户那里去用的时候，由于数据库环境和用户名和密码都不一样，就会弹出一个对话框，要求选择数据库和输入新的用户名和密码,这时，我要么采用NT方式登陆，要么读取那个对话框中的参数，下次登陆时自动以那个参数登陆，二者中第一种，会让客户麻烦一点，需要配置NT和SQL server.第二种，我会麻烦一点，我至少要读取那个对话框中的参数？,
如果实在没有办法，我只能撤掉dataEnvironment，换成原来的登陆方式。肯定会有人问，这么麻烦，为什么还要用dataEnvironment,我想，即然MS提供了这个工具，自有他存在的理由，所以我想尝试的用一下，开发时使用还不错，但发布时就会较麻烦，所以我就在这里请教各位大侠，有什么方法读取那个对话框里面的参数,或者还有更好的确决方法。