Dim Tablelist as New List(Of String)()
Dim odbcconn As OleDb.OleDbConnection=New oledb.OleDbConnection(connstring)
Dim restrictions(3) As string
restrictions(3) = "MSYS"
odbcconn.Open()
Dim dt As DataTable = odbcconn.GetSchema("Tables")
For Each dr In dt.rows
If InStr(Ucase(dr("TABLE_NAME")),"MYS") = 0 then
Tablelist.Add(dr("TABLE_NAME"))
End If
Next
odbcconn.Close
First a list of tables are returned from the connection object and then all tables that do not contain the string "MYS" in it's name are filled in to the TableList.
resizing array at runtime in vb.net - Stack Overflow
No comments:
Post a Comment