VB

Imports System.Data.Odbc

Module XuguOdbcDemo

    Sub Main()
        Dim connStr As String
        Dim conn As OdbcConnection
        Dim cmd As OdbcCommand
        Dim reader As OdbcDataReader

        connStr = "Driver=XuguSQL 11.2;Server=127.0.0.1;Port=5138;DB=SYSTEM;UID=SYSDBA;PWD=SYSDBA;"
        conn = New OdbcConnection(connStr)
        conn.Open()
        cmd = conn.CreateCommand()
        cmd.CommandText = "select * from mytable where id = ?"
        cmd.Parameters.Add("id", OdbcType.Int).Value = 100
        reader = cmd.ExecuteReader()
        While reader.Read()
            Console.WriteLine(reader.GetInt32(0) & ", " &
                reader.GetString(1) & ", " &
                reader.GetString(2) & ", " &
                reader.GetString(3))
        End While
        reader.Close()
        conn.Close()
        Console.ReadKey()
    End Sub

End Module