Newbiespg: Hvordan får jeg mine data frem i en tabel?

Hej eksperter!


Jeg har danhost som udbyder til mit site. Danhost har asp.net. Jeg har et spørgsmål. Hvordan får jeg data frem i en tabel når jeg har en MySql database?

Jeg har fået følgende links til en connector til mysql fra dem:
http://dev.mysql.com/doc/mysql/en/odbc-net-op-c-sharp-cp.html
http://dev.mysql.com/doc/mysql/en/odbc-net-op-vb-cp.html

Jeg har følgende kode i myvb.vb som ligger i mit \code

' @sample    : myvb.vb
' @purpose  : Demo sample for ODBC.NET using MyODBC
' @author    : Venu, <venu@mysql.com>
'
' (C) Copyright MySQL AB, 1995-2004
'
'
'
' 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=mysql.danhost.dk;" & _
                          "DATABASE=minDatatabase;" & _
                          "UID=user;" & _
                          "PASSWORD=password;" & _
                          "OPTION=3;"
            'Connection
            Dim MyConnection As New Data.Odbc.OdbcConnection(MyConString)
            MyConnection.Open()
            Console.WriteLine("Connection State::" & MyConnection.State.ToString)
            'Drop
            Console.WriteLine("Dropping table")
            Dim MyCommand As New Data.Odbc.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 Data.Odbc.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 Data.Odbc.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


Hordan laver jeg så en side som viser mine data?

Med venlig hilsen

Rasmus Hansen