<< Click to Display Table of Contents >> Navigation:  Apollo ADO.NET Provider > Using SQLTable

 

Dim apiSQL As New Apollo.SQLTable()

Dim s As String

 

apiSQL.DatabaseName = "C:\Apollo\9.9\x86\Data\"

apiSQL.SQL = "SELECT * FROM TEST"

 

apiSQL.Open()

 

ListBox1.Items.Clear()

apiSQL.MoveFirst()

 

apiSQL.MoveFirst()

While (Not apiSQL.EOF)

 

 ListBox1.Items().Add(apiSQL.FieldByName("FIRST") & " " & _

  apiSQL.FieldByName("LAST") + " " + _

  CStr(apiSQL.FieldByName("MARRIED")) + " " + _

  CStr(apiSQL.FieldByName("AGE")) + " " + _

  CStr(apiSQL.FieldByName("SALARY")) + " " + _

  CStr(apiSQL.FieldByName("HIREDATE")) + " " + _

  CStr(apiSQL.FieldByName("NOTES")) + " " )

 

 apiSQL.MoveBy(1)

End While

 

apiSQL.Close()