[前][次][番号順一覧][スレッド一覧]

mysql:11160

From: 東原 正智 <東原 正智 <ZAP02756@xxxxxxxxxx>>
Date: Mon, 14 Mar 2005 01:55:12 +0900
Subject: [mysql 11160] Re: MySQLDriverCSを使っての接

すみません。自己レスです。

MySQLDriverCSをあきらめ、MyODBCにて接続できました。
一応まとめておきます。お騒がせしました。
MySQLDriverCSの原因などご存知の方は、教えていただければ幸いです。
[環境]
MyODBC-3.51.11-1
MySQL4.1.10
VB.NET(2003)使用
[目的]
別マシンのサーバーに対してVB.NETよりIPを指定して接続、select.
[参照設定]
・Microsoft.Data.Odbc
・System
・System.Data
[Source]
Imports Microsoft.Data.Odbc
Imports System

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        Try
            'MySQLへの接続
            'MyODBC 3.51を使用
            '宣言
            'MyODBC 3.51 Connectionstring
            Dim MyConString As String = _
                 "DRIVER={MySQL ODBC 3.51 Driver};" & _
                 "SERVER=*.*.*.*;" & _
                 "DATABASE=db;" & _
                 "UID=***;" & _
                 "PASSWORD=*****;" & _
                 "OPTION=3;"
            'Connection
            Dim MyConnection As New OdbcConnection(MyConString)
            MyConnection.Open()
            MsgBox("DBに接続しました")
            Console.WriteLine("Connection State::" & _          
                         MyConnection.State.ToString)
            Dim MyCommand As New OdbcCommand
            MyCommand.Connection = MyConnection
            'SELECT
            Console.WriteLine("Select field1,field2 _
                        FROM db.table")
            MyCommand.CommandText = "SELECT field1,field2 _
                        FROM db.table;"
            'DataReaderでの読込み
            Dim MyDataReader As OdbcDataReader
            MyDataReader = MyCommand.ExecuteReader
            While MyDataReader.Read
                If MyDataReader("field1") Is DBNull.Value Then
                    Console.WriteLine("field1= " & _
                        CStr(MyDataReader("field1")) &_
                        "field2 =" & "NULL")
                Else
                    Console.WriteLine("field1= " & _
                        CStr(MyDataReader("field1")) & _
                        " field2 = " & _
                        CStr(MyDataReader("field2 ")))
                End If
            End While
            'Catch ODBC Exception
          Catch MyOdbcException As OdbcException
            Dim i As Integer
            Console.WriteLine(MyOdbcException.ToString)
            'Catch program exception
          Catch MyException As Exception
            Console.WriteLine(MyException.ToString)
        End Try
End Sub

[前][次][番号順一覧][スレッド一覧]

     11159 2005-03-13 21:13 [東原 正智 <ZAP02756] MySQLDriverCSを使っての接続             
->   11160 2005-03-14 01:55 ┗[東原 正智 <ZAP02756] Re: MySQLDriverCSを使っての接