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を使っての接