+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23033)
الصفحات:
1
2
تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - Abdelazez.Ahmad - 22-12-17
السلام عليكم ورحمة الله وبركاته
أسال الله العظيم لكم جميعا العافية
سؤالي :
أريد تعبئة الداتا جريد فيو بالوضع المنفصل مع الحفاظ علي اسماء الأعمدة المصممة من قبل
فا عند تعبئة الداتا جريد بهذا الكود
يقوم بادراج اعمدة جديدة غير الأعمدة المصممة من قبل وتعبئة هذه الأعمدة الجديدة
فا كيف يتم لي تعبئتها في الأعمدة التي قمت بتصميمها
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - محمود صالح - 22-12-17
اولا : وانت بتصمم الاعمدة روح لخصية datapropertyname واكتب اسم الحقل كما في قاعدة البيانات وهكذا لكل عمود
ثانيا: في الكود اكتب datagridview1.autogeneratecolumns =false
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - عبدالله الدوسري - 23-12-17
سؤال اخي الكريم؟
هل تستخدم الــ DataSet و الــ TableAdapter
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - Rabeea Qbaha - 23-12-17
PHP كود :
Sub FillGrid_Search()
DataGrid1.CancelEdit()
DataGrid1.Columns.Clear()
DataGrid1.DataSource = Nothing
DataGrid1.Columns.Add("", "رقم المحل")
DataGrid1.Columns.Add("", "المساحة")
DataGrid1.Columns.Add("", "الطابق")
DataGrid1.Columns.Add("", "الموقع")
DataGrid1.Columns.Add("", "")
DataGrid1.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Dim sqlstring As String= "SELECT * FROM table ORDER BY Date DESC "
'فحص الاتصال بقاعدة البيانات
If SQL.conn.State = ConnectionState.Open Then
SQL.conn.Close()
End If
SQL.conn.Open()
Dim adt As New SqlDataAdapter(sqlstring, SQL.conn)
Dim dt As New DataTable
adt.Fill(dt)
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
DataGrid1.Rows.Add()
DataGrid1.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(0)
DataGrid1.Rows(i).Cells(2).Value = dt.Rows(i).ItemArray(1)
DataGrid1.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(2)
DataGrid1.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(3)
Next
SQL.conn.Close()
End Sub
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - محمود صالح - 23-12-17
(23-12-17, 12:34 AM)عبدالله الدوسري كتب : سؤال اخي الكريم؟
هل تستخدم الــ DataSet و الــ TableAdapter
شغلك زي ما هو وضيف عليه الى الخطوتين السابقتين
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - Abdelazez.Ahmad - 23-12-17
(22-12-17, 10:17 PM)محمود صالح كتب : اولا : وانت بتصمم الاعمدة روح لخصية datapropertyname واكتب اسم الحقل كما في قاعدة البيانات وهكذا لكل عمود
ثانيا: في الكود اكتب datagridview1.autogeneratecolumns =false
جزاك الله خيرا أخي الكريم محمود صالح
أستخدم DataTable
جزاك الله خيرا أخي الكريم / [b]Rabeea Qbaha[/b]
(23-12-17, 12:34 AM)عبدالله الدوسري كتب : سؤال اخي الكريم؟
هل تستخدم الــ DataSet و الــ TableAdapter
جزاك الله خيرا أخي الكريم / عبد الله الدوسري
أستخدم داتا تيبيل
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - عبدالله الدوسري - 23-12-17
أخي Abdelazez.Ahmad
تعلم على الــ DataSet و الــ TableAdapter
تصدق لو أقول لك انه ممكن اتعامل مع جدول في قاعدة البيانات من ادخال سجل جديد و حفظ وحذف وجلب البيانات
بدون ما أكتب سطر واحد من الكود
نهائياَ بمعنى الكلمة
بدون ما أكتب سطر واحد
كلها مجرد شويت ضغطات على الماوس وسحب وإفلات
أما موضوع إني اكتب كود ينشئ نص الإتصال في كل مرة
واكتب كود ينشئ امر SQL واكتب كود جملة الإستعلام
ثم اكتب كود وإضيف البراميترات يدوياً
وأفتح الإتصال بقاعدة البيانات
ثم أقوم بتنفيذ أمر SQL
ثم أقوم بإغلاق الإتصال
ثم اكتب كود لنقل البيانات إلى داتا قريد فيو
هذا الكلام كان قبل 10 سنوات
الآن الفيجوال ستيديو يقوم بكتابة كل الأوامر في ملفات خاصة بالــ DataSet نيابتاً عنك
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - Abdelazez.Ahmad - 23-12-17
(23-12-17, 09:04 PM)عبدالله الدوسري كتب : أخي Abdelazez.Ahmadجزاك الله خيرا أخي عبد الله
تعلم على الــ DataSet و الــ TableAdapter
تصدق لو أقول لك انه ممكن اتعامل مع جدول في قاعدة البيانات من ادخال سجل جديد و حفظ وحذف وجلب البيانات
بدون ما أكتب سطر واحد من الكود
نهائياَ بمعنى الكلمة
بدون ما أكتب سطر واحد
كلها مجرد شويت ضغطات على الماوس وسحب وإفلات
أما موضوع إني اكتب كود ينشئ نص الإتصال في كل مرة
واكتب كود ينشئ امر SQL واكتب كود جملة الإستعلام
ثم اكتب كود وإضيف البراميترات يدوياً
وأفتح الإتصال بقاعدة البيانات
ثم أقوم بتنفيذ أمر SQL
ثم أقوم بإغلاق الإتصال
ثم اكتب كود لنقل البيانات إلى داتا قريد فيو
هذا الكلام كان قبل 10 سنوات
الآن الفيجوال ستيديو يقوم بكتابة كل الأوامر في ملفات خاصة بالــ DataSet نيابتاً عنك
هل تقصد Linq to Sql ?
أو أرسل لي لنك تعليم Table Adapter
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - عبدالله الدوسري - 23-12-17
(23-12-17, 09:56 PM)Abdelazez.Ahmad كتب : جزاك الله خيرا أخي عبد الله
هل تقصد Linq to Sql ?
أو أرسل لي لنك تعليم Table Adapter
عفواً لم أقصد Linq to Sql : هذة تقنية تتيح لك محاكات لغة SQL في بيئة .NET
سأجد لك شرح يوضح طريقة استخدام الــ DataSet و الــ TableAdapter
تحياتي.
RE: تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) - abohamad - 24-12-17
السلام عليكم ممكن يساعدك هذا
Try
With Me
DataGridView1.Rows.Clear()
For i As Integer = 0 To srcon.bd.Count - 1
Dim a As Integer = Me.DataGridView1.Rows.Add
'===========================================================
DataGridView1.Rows.Item(a).Cells(0).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("ID").ToString
DataGridView1.Rows.Item(a).Cells(1).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Order_number").ToString
DataGridView1.Rows.Item(a).Cells(2).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("ADD_date").ToString
DataGridView1.Rows.Item(a).Cells(3).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Quantity").ToString
DataGridView1.Rows.Item(a).Cells(4).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Price").ToString
DataGridView1.Rows.Item(a).Cells(5).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Document_num").ToString
DataGridView1.Rows.Item(a).Cells(6).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Selling_price").ToString
DataGridView1.Rows.Item(a).Cells(7).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("RSelling_price").ToString
DataGridView1.Rows.Item(a).Cells(8).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Store").ToString
DataGridView1.Rows.Item(a).Cells(9).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Balance").ToString
DataGridView1.Rows.Item(a).Cells(11).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("item_id").ToString
'==========================================================================Document_num
srcon.bd.Position = srcon.bd.Position + 1
Next
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try