shahryari
یک شنبه 22 بهمن 1391, 14:14 عصر
چگونه ميتوان تشخيص داد يك جدول با نام مثلا "MyTable" در ديتا بيس اكسس وجود دارد يا نه؟؟؟
بدون استفاده از رفرنس ADOX يا ADODB
-------------------------------------------------
نكته:
با استفاده از كد زير ميتونم تمام جدول ها رو در ليست باكس ادد كنم
و سپس با استفاده از حلقه نام مورد نظر را در بين آيتم هاي ليست باكس مقايسه كنم كه در درصورت وجود داشتن ، مقداري را برگرداند...
اما مشكل اين است ليست باكس نميخوام استفاده كنم......
كد ليست كردن جداول ديتابيس اكسس
Public Sub GetAllTableNames(ByVal ConnectionString As String, ByVal TablesListBox As ListBox)
TablesListBox.DataSource = Nothing
Using cn As New OleDbConnection(ConnectionString)
cn.Open()
Dim DatabaseSchema As New DataTable
DatabaseSchema = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
TablesListBox.DisplayMember = "TABLE_NAME"
TablesListBox.DataSource = DatabaseSchema
End Using
End Sub
بدون استفاده از رفرنس ADOX يا ADODB
-------------------------------------------------
نكته:
با استفاده از كد زير ميتونم تمام جدول ها رو در ليست باكس ادد كنم
و سپس با استفاده از حلقه نام مورد نظر را در بين آيتم هاي ليست باكس مقايسه كنم كه در درصورت وجود داشتن ، مقداري را برگرداند...
اما مشكل اين است ليست باكس نميخوام استفاده كنم......
كد ليست كردن جداول ديتابيس اكسس
Public Sub GetAllTableNames(ByVal ConnectionString As String, ByVal TablesListBox As ListBox)
TablesListBox.DataSource = Nothing
Using cn As New OleDbConnection(ConnectionString)
cn.Open()
Dim DatabaseSchema As New DataTable
DatabaseSchema = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
TablesListBox.DisplayMember = "TABLE_NAME"
TablesListBox.DataSource = DatabaseSchema
End Using
End Sub