？ODBC连接字符串

Question

首先在“工程”菜单中的“引用”选“microsoft activeX data objects 2.5 library”
然后在程序中写相关命令。例如：
Public Sub SourceX()   Dim cnn1 As ADODB.Connection
   Dim rstTitles As ADODB.Recordset
   Dim rstPublishers As ADODB.Recordset
Dim rstPublishersDirect As ADODB.Recordset   Dim rstTitlesPublishers As ADODB.Recordset
   Dim cmdSQL As ADODB.Command
   Dim strCnn As String
   Dim strSQL As String   ' 打开连接。
   Set cnn1 = New ADODB.Connection
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn1.Open strCnn
   
   ' 打开基于命令对象的记录集。
   Set cmdSQL = New ADODB.Command
   Set cmdSQL.ActiveConnection = cnn1
   cmdSQL.CommandText = "Select title, type, pubdate " & _
      "FROM titles ORDER BY title"
   Set rstTitles = cmdSQL.Execute()
   
   ' 打开基于表格的记录集。
   Set rstPublishers = New ADODB.Recordset
   rstPublishers.Open "publishers", strCnn, , , adCmdTable
   
   ' 打开基于表格的记录集。
   Set rstPublishersDirect = New ADODB.Recordset
   rstPublishersDirect.Open "publishers", strCnn, , , adCmdTableDirect
      ' 打开基于 SQL 字符串的记录集。
   Set rstTitlesPublishers = New ADODB.Recordset
   strSQL = "SELECT title_ID AS TitleID, title AS Title, " & _
      "publishers.pub_id AS PubID, pub_name AS PubName " & _
      "FROM publishers INNER JOIN titles " & _
      "ON publishers.pub_id = titles.pub_id " & _
      "ORDER BY Title"
   rstTitlesPublishers.Open strSQL, strCnn, , , adCmdText   ' 使用 Source 属性显示每个记录集的资源。
   MsgBox "rstTitles source: " & vbCr & _
      rstTitles.Source & vbCr & vbCr & _
      "rstPublishers source: " & vbCr & _
      rstPublishers.Source & vbCr & vbCr & _
      "rstPublishersDirect source: " & vbCr & _
      rstPublishersDirect.Source & vbCr & vbCr & _
      "rstTitlesPublishers source: " & vbCr & _
      rstTitlesPublishers.Source   rstTitles.Close
   rstPublishers.Close
   rstTitlesPublishers.Close
   cnn1.CloseEnd Sub
希望对你有用！

Answer 1

楼上的就够用了,我也就不用多说了,简单一点儿的如下:
  1.首先要引用 ActiveX Data Object win98跟win2000的版本不一样,引用一个就行了,如果要在win98下使用就引用2.1吧!
  2.声明若干个object variant
    Dim(or public) CurCon As ADODB.Connection
    Dim(or public) CurRS As ADODB.Recordset
  3.声明其它变量
    'Connection String
    Dim(or public) ConStr As String
    'SQL element
    Dim(or public) CurSQL As String
    ......
  4.使用  
    Set CurCon=New ADODB.Connection
    Set CurRS=New ADODB.Recordset
    'For example, we set constr to 
    'DSN=datasource; UID=admin; PWD=' (Access DB)
    'DSN=datasource; UID=sa; PWD=' (SQL DB)
    'Certainly, you should setup the ODBC source first!
    ConStr="DSN=datesource; UID=sa; PWD="
    CurCon.Open ConStr
    'for example cursql='select * from table'
    CurSQL="Select * from Table"
    CurRS.Open CurSQL,CurCon
    ...
    ...
    'Read the DB Record...
    'Other element...
    ...
    ...
    'Close the Connection and Recordset after you use it!
    CurRS.Close
    CurCon.Close

Answer 2

感谢楼上二位的回答。不过我想问的如何用代码调用配置连接字符串的界面，而不是adodb。connection的使用。我想在程序运行时可以设置数据源连接字符串。