به دست آوردن لیست جداول پایگاه داده اکسس

[alimanam]

با سلام به دوستان عزیز :

این نمونه سورس رو برای یکی از دوستان که نیاز داشتن جداول یا جدول پایگاه داده اکسس رو به دست بیارن ( نام جدول های موجود در پایگاه داده ) آماده کردم . نمونه هم به صورت یه مثال ضمیمه هست دوستانی که همچین نیازی دارن میتونن یه نگاهی بهش بندازن . موفق باشید .

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim DatabasePath As String = TextBox1.Text & ";"
Dim ConnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DatabasePath & _
"Persist Security Info=False"
Dim SchemaTable As DataTable

'Connect to the database
Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)

Try
ListBox1.Items.Clear()

conn.Open()

'Get table and view names
SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSc hemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})

Dim int As Integer
For int = 0 To SchemaTable.Rows.Count - 1
If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
'Add items to list box
ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAM E.ToString())
End If
Next

Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try

conn.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "Microsoft Access|*.mdb"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
End If
End Sub
End Class


منبع (http://www.dreamincode.net/code/snippet806.htm)