Does anyone know what is missing?
Option Strict On
Private Function MySQLDataReader_GetByte(ByVal Connection As MySqlConnection, ByVal CommandText As String, ByVal Column As String) As Byte()
' Declare the mysqlcommand and the mysqlreader.
Dim Command As MySqlCommand
Dim Reader As MySqlDataReader
Dim Data As Byte()
Try
' Create a new command.
Command = New MySqlCommand(CommandText, Connection)
' Execute the reader.
Reader = Command.ExecuteReader
' Execute the read command.
Reader.Read()
If Reader.HasRows Then
' Read the data.
' Here is where im having the error.
Data = Reader.GetByte(Column)
End If
' Close the reader.
Reader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return Data
End Function
This post has been edited by Backtracker: 15 April 2010 - 03:24 PM

New Topic/Question
Reply




MultiQuote



|