tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルODBCのDSNを使った接続文
記事No4455
投稿日: 2006/10/25(Wed) 18:29
投稿者WON
 いつもありがとうございます。

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()
とコーディングしています。

宜しく、お願いします。

[ツリー表示へ]
タイトルRe: ODBCのDSNを使った接続文
記事No4456
投稿日: 2006/10/25(Wed) 19:18
投稿者魔界の仮面弁士
SqlConnection は SQL Server 専用のクラスです。
かわりに、OdbcConnection クラスを使ってください。

[ツリー表示へ]
タイトルRe^2: ODBCのDSNを使った接続文
記事No4457
投稿日: 2006/10/25(Wed) 19:53
投稿者WON
ありがとうございます。

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

もう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

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

[ツリー表示へ]