いつもありがとうございます。

VB2005での、ODBCのDSNを使った接続文を教えて下さい。

VB6.0の時は
   With Cn
             .ConnectionString = "DSN=AL_ODBC;Uid=AA04"
             .CursorLocation = adUseClient
             .ConnectionTimeout = 15
             .Open
    End With
とコーディングしていました。

　VB2005のSQLServerの接続文は
Dim connection As New SqlConnection("Persist Security Info=True;Integrated Security=false;User ID=aoyinq;Password=inq;Initial Catalog=WDB;Data Source=SY01 ")

connection.Open()
とコーディングしています。

宜しく、お願いします。

SqlConnection は SQL Server 専用のクラスです。
かわりに、OdbcConnection クラスを使ってください。

ありがとうございます。

おかげで、接続まではできました。

もう1点だけよろしいでしょうか？
SQL文をパラメータで渡しDataViewをとりたいのですが・・・

SqlCommandをOdbcCommandにし
SqlDataAdapterは何に変えるのでしょうか？

今までのSQLserverの内容を投稿します。これをODBCのDSNを使ってホストに接続し
DataViewを取得したいのです。

修正ポイントを教えて頂けませんか..

Public Function GetDv(ByVal pSQL As String) As DataView
        
        Dim MyCn As New SqlConnection
        Dim MyCmd As New SqlCommand
        Dim MyDA As New SqlDataAdapter
        Dim MyDS As DataSet = New DataSet

        Dim strConnection As String = "Persist Security Info=True;Integrated Security=false;User ID=ainq;Password=inq;Initial Catalog=ADB;Data Source=SY01 "

        With MyCmd
            .CommandType = CommandType.Text
            .CommandText = pSQL
            .Connection = MyCn
        End With
        '**************************************************************
        Try
            MyCn.ConnectionString = strConnection
            MyCn.Open()
            MyDA.SelectCommand = MyCmd
            MyDA.Fill(MyDS)
            MyCn.Close()
            Return MyDS.Tables(0).DefaultView
        Catch ex As Exception
            If (MyCn.State = ConnectionState.Open) Then
                MyCn.Close()
            End If
        End Try
        Return Nothing
    End Function

申し訳ありません、
宜しくお願いします。