+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=42)
+--- الموضوع : اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) (/showthread.php?tid=4162)
اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) - سعود - 17-09-12
اضف الادوات التالية:
Label1
ListBox1
ListBox2
DataGridView1
Button1
في منطقة التصريحات العامة اكتب:
رمز برمجي:
كود :
Dim str As String = ""
Dim con As New OleDb.OleDbConnectionرمز برمجي:
كود :
Me.Text = My.Application.Info.ProductName
If con.State = ConnectionState.Open Then
con.Close()
End Ifرمز برمجي:
كود :
If con.State = ConnectionState.Open Then
con.Close()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "Access 2007 db (*.accdb)|*.accdb| Access 2003 db (*.mdb)|*.mdb"
If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
If dlg.SafeFileName.EndsWith(".accdb") Then
str = "provider=microsoft.ace.oledb.12.0;data source=" & dlg.FileName
ElseIf dlg.SafeFileName.EndsWith(".mdb") Then
str = "provider=microsoft.jet.oledb.4.0;data source=" & dlg.FileName
End If
con.ConnectionString = str
Label1.Text = "Connected To: " & con.ConnectionString
End If
Dim SchemaTable As DataTable
Try
ListBox1.Items.Clear()
If con.State = ConnectionState.Closed Then
con.Open()
End If
SchemaTable = con.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.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_NAME.ToString())
End If
Next
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Tryاكتب:
رمز برمجي:
كود :
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter("select * from " & ListBox1.Text & "", con)
ds.Clear()
DataGridView1.DataSource = Nothing
da.Fill(ds, ListBox1.Text)
DataGridView1.DataSource = ds
DataGridView1.DataMember = ListBox1.Text
ListBox2.Items.Clear()
Dim dtable1 As DataTable
dtable1 = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, ListBox1.Text, Nothing})
For i = 0 To dtable1.Rows.Count - 1
ListBox2.Items.Add(dtable1.Rows(i).Item(3).ToString)
Next iRE: اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) - mohd_sader - 22-11-15
هل من الممكن عمل هكذا في الاصدار السادس
و كيف؟
RE: اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) - CLARO - 02-06-16
شكرا .
RE: اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) - سعود - 03-06-16
(02-06-16, 12:45 PM)CLARO كتب : شكرا .
اخي الكريم يوجد زر شكرا انقر عليه افضل من الاكتفاء بكلمة "شكرا"