Imports System
Imports System.Data
Imports System.Data.Odbc
Public Class Form1
Public db_output As String
Public Sub Form1_Load() Handles Me.Load
DB_Query()
End Sub
Public Sub Form1_Close() Handles Button1.Click
Me.Close()
End Sub
Private Sub DB_Query()
' Set up connection string
Dim ConnString As String = "dsn=QuickBooks Data"
' Set up query string
Dim CmdString As String = " SELECT FullName, EditSequence FROM account LIMIT 5 "
'Declare Connection and DataReader variables
Dim Conn As OdbcConnection
Dim Reader As OdbcDataReader
Try
'Open Connection
Conn = New OdbcConnection(ConnString)
Conn.Open()
'Execute Query
Dim Cmd As New OdbcCommand(CmdString, Conn)
Reader = Cmd.ExecuteReader()
'Display output header
'Console.WriteLine("Querying database {0} with query {1}" & _
' ControlChars.NewLine, Conn.Database, Cmd.CommandText)
db_output &= "Querying results..." & vbCrLf & vbCrLf
db_output &= "FullName" & ControlChars.Tab & "EditSequence" & vbCrLf
'Process The Result Set
While (Reader.Read())
db_output &= Reader("FullName").PadLeft(9) & ControlChars.Tab & ControlChars.Tab & Reader("EditSequence") & vbCrLf
' db_output &= ("FullName").PadLeft(9) & _
' ControlChars.Tab & ControlChars.Tab & Reader(1) & vbCrLf
End While
'MessageBox.Show(db_output)
TextBox1.Text = db_output
'System.Threading.Thread.Sleep(5000)
Catch ex As Exception
'db_output &= "Error: " & ex
'Console.WriteLine("Error: {0}", ex)
Finally
'Close Connection
'Reader.Close()
'Conn.Close()
End Try
End Sub
Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class