(mysql.info) odbc-net-op-vb-cp

Info Catalog

(mysql.info) odbc-net-op-c-sharp-cp

(mysql.info) myodbc-with-net

 
 23.1.20.2 ODBC.NET: VB
 ......................
 
 The following sample creates a table `my_vb_net' and demonstrates the
 use in VB.
 
      ' @sample    : myvb.vb
      ' @purpose   : Demo sample for ODBC.NET using MyODBC
      ' @author    : Venu, <venu@mysql.com>
      '
      ' (C) Copyright MySQL AB, 1995-2006
      '
      '
 
      '
      ' build command
      '
      ' vbc /target:exe
      '     /out:myvb.exe
      '     /r:Microsoft.Data.Odbc.dll
      '     /r:System.dll
      '     /r:System.Data.dll
      '
 
      Imports Microsoft.Data.Odbc
      Imports System
 
      Module myvb
        Sub Main()
            Try
 
                'MyODBC 3.51 connection string
                Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                               "SERVER=localhost;" & _
                               "DATABASE=test;" & _
                               "UID=venu;" & _
                               "PASSWORD=venu;" & _
                               "OPTION=3;"
 
                '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
      End Module
 

Info Catalog

(mysql.info) odbc-net-op-c-sharp-cp

(mysql.info) myodbc-with-net