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