Movatterモバイル変換

The following sample creates a tablemy_vb_net and demonstrates the use in VB.

' @sample    : myvb.vb' @purpose   : Demo sample for ODBC.NET using Connector/ODBC''' build command'' vbc /target:exe'     /out:myvb.exe'     /r:System.Data.Odbc.dll'     /r:System.dll'     /r:System.Data.dll'Imports System.Data.OdbcImports SystemModule myvb  Sub Main()    Try      Dim MyConString As String = "DRIVER={MySQL ODBC 9.5 Unicode Driver};" & _      "SERVER=localhost;" & _      "DATABASE=test;" & _      "UID=venu;" & _      "PASSWORD=venu;" & _      "FOUND_ROWS=1;"      'Connection      Dim MyConnection As New OdbcConnection(MyConString)      MyConnection.Open()      Console.WriteLine("Connection State::" & MyConnection.State.ToString)      'Drop      Console.WriteLine("Dropping table")      Dim MyCommand As New OdbcCommand()      MyCommand.Connection = MyConnection      MyCommand.CommandText = "DROP TABLE IF EXISTS my_vb_net"      MyCommand.ExecuteNonQuery()      'Create      Console.WriteLine("Creating....")      MyCommand.CommandText = "CREATE TABLE my_vb_net(id int, name varchar(30))"      MyCommand.ExecuteNonQuery()      'Insert      MyCommand.CommandText = "INSERT INTO my_vb_net VALUES(10,'venu')"      Console.WriteLine("INSERT, Total rows affected:" & _      MyCommand.ExecuteNonQuery())      'Insert      MyCommand.CommandText = "INSERT INTO my_vb_net VALUES(20,'mysql')"      Console.WriteLine("INSERT, Total rows affected:" & _      MyCommand.ExecuteNonQuery())      'Insert      MyCommand.CommandText = "INSERT INTO my_vb_net VALUES(20,'mysql')"      Console.WriteLine("INSERT, Total rows affected:" & _      MyCommand.ExecuteNonQuery())      'Insert      MyCommand.CommandText = "INSERT INTO my_vb_net(id) VALUES(30)"      Console.WriteLine("INSERT, Total rows affected:" & _                        MyCommand.ExecuteNonQuery())      'Update      MyCommand.CommandText = "UPDATE my_vb_net SET id=999 WHERE id=20"      Console.WriteLine("Update, Total rows affected:" & _      MyCommand.ExecuteNonQuery())      'COUNT(*)      MyCommand.CommandText = "SELECT COUNT(*) as TRows FROM my_vb_net"      Console.WriteLine("Total Rows:" & MyCommand.ExecuteScalar())      'Select      Console.WriteLine("Select * FROM my_vb_net")      MyCommand.CommandText = "SELECT * FROM my_vb_net"      Dim MyDataReader As OdbcDataReader      MyDataReader = MyCommand.ExecuteReader      While MyDataReader.Read        If MyDataReader("name") Is DBNull.Value Then          Console.WriteLine("id = " & _          CStr(MyDataReader("id")) & "  name = " & _          "NULL")        Else          Console.WriteLine("id = " & _          CStr(MyDataReader("id")) & "  name = " & _          CStr(MyDataReader("name")))        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