+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة بقواعد البيانات (/showthread.php?tid=13545)
مساعدة بقواعد البيانات - mohamed haroon - 18-10-15
السلام عليكم
اود طلب المساعدة بخصوص كود يعرض كل ال columns لجدول معين فى data grid view بحيث يكون كل column فى row داخل ال data grid view
ارجو المساعدة و شكرا 
RE: مساعدة بقواعد البيانات - سعود - 18-10-15
اذا تقصد عرض جدول بالاداة فاضبط مصدر البيانات الخاص بها على DataTable تعبئة من الجدول المطلوب.
RE: مساعدة بقواعد البيانات - عدنان الشمري - 18-10-15
في جملة select فقط اختر *بدلا من اسماء الحقول في الجدول
RE: مساعدة بقواعد البيانات - mohamed haroon - 18-10-15
كود :
Dim str As String = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source=C:\Users\mohamed haroon\Desktop\db1.mdb;"
Dim con As New OleDb.OleDbConnection(str)
dg.DataSource = Nothing
dg.Rows.Clear()
Dim d As New DataTable("infoma")
Dim cm As New OleDb.OleDbCommand("", con)
cm.Parameters.Clear()
If con.State = ConnectionState.Closed Then con.Open()
dg.ColumnCount = 2
dg.Columns(0).Name = "details"
dg.Columns(1).Name = "type"
Dim name(d.Columns.Count) As String
Dim i As Integer = 0
For Each column As DataColumn In d.Columns
name(i) = column.ColumnName
i += 1
Nextهذا هو قصدى لاكنى لا ادرى كيفية استخراج المصفوفة name فى data grid view
RE: مساعدة بقواعد البيانات - أبو عمر - 18-10-15
انت عايز اسماء الاعمدة اللي تمثل اسماء الحقول
والا عايز القيم في السجلات ؟
dg.Columns(0).Name = "details"
dg.Columns(1).Name = "type"
هنا بيغير اسم الحقل أو العمود فقط الى details و type
يعني هيبان في الجريد اسم العمود details و type
RE: مساعدة بقواعد البيانات - mohamed haroon - 18-10-15
شكرا لمشاركة الاخوة لقد وجدت هذا الكود و هو يعمل بنجاح
كود :
provider = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source ="
dataFile = "C:\Users\mohamed haroon\Desktop\db1.mdb"
connString = provider & dataFile
myConnection.ConnectionString = connString
myConnection.Open()
Try
Dim Rest() As String = {Nothing, Nothing, "infoma", Nothing}
Dim columns As String = "Columns"
Dim dt As DataTable = myConnection.GetSchema(columns, Rest)
For Each row As DataRow In dt.Rows
dg.Rows.Add(row.Item("COLUMN_NAME").ToString)
Next
myConnection.Close()
Catch ex As Exception
End Try