+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : استفسار عن ليست بوكس مع داتا جريد فيو (/showthread.php?tid=9304)
استفسار عن ليست بوكس مع داتا جريد فيو - hoob computer - 17-06-13
[COLOR="#0000FF"]بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته[/COLOR]
السلام عليكم و رحمة الله و بركاته[/COLOR]
عندي استفسار عن (Query) في قاعدة البيانات, و هو:
لدي قاعدة البيانات التالية:
[ATTACH=CONFIG]3034[/ATTACH]
و اريد عمل التالي:
واجهة (Form) تحتوي على التالي:
1- ليست بوكس (ListBox) عدد واحد (1) فقط, تحتوي على اسماء الاقسام/الدوائر.
2- داتاجريد فيو (DataGridView) تحتوي على جميع الموظفين الموجودين ضمن القسم/الدائرة المختار/ة من الـ (ListBox).
السؤال هو:
كيف أقوم بعمل الـ (Query) لجلب موظفين القسم/الدائرة المختار/ة و وضع المعلومات في الـ (DataGridView)؟
و أرجو توضحيها بالطريقتين:
1- الـ (Oledb).
2- الـ (SqlClient).
تحياتي.
استفسار عن ليست بوكس مع داتا جريد فيو - حريف برمجة - 17-06-13
وعليكم السلام ورحمة الله وبركاته
ارفق مثالك ليتم التعديل عليه
استفسار عن ليست بوكس مع داتا جريد فيو - hoob computer - 17-06-13
أخي الكريم, سؤالي كان واضح جداً. فهل من الضروري إرفاق المشروع الذي لم أكمله الى الان من أجل كود (Query) واحد فقط!!!!!!
استفسار عن ليست بوكس مع داتا جريد فيو - hoob computer - 17-06-13
تم حل المشكلة بنجاح و الحمدلله, و لا حاجة لإرفاق مثال
استفسار عن ليست بوكس مع داتا جريد فيو - Sajad - 17-06-13
السلام عليكم
تفضل
PHP كود :
Imports System.Data.SqlClient
Public Class Form1
Private constr As String = "Data Source=.\SQLEXPRESS;Initial Catalog=Emp;Integrated Security=True;"
Private mycon As New SqlConnection(constr)
Private myadapter As New SqlDataAdapter()
Private mytable As New DataTable()
Private myset As DataSet
Private emp As New List(Of Object)
Private Sub connect(ByVal select1 As String)
myadapter = New SqlDataAdapter(select1, mycon)
myset = New DataSet()
mycon.Open()
myadapter.Fill(myset)
mytable = myset.Tables(0)
mycon.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
connect("select * from Emp_Tbl,EmpInfo_Tbl,Dep_Tbl where Emp_Tbl.ID=EmpInfo_Tbl.Info_EmpID and EmpInfo_Tbl.Info_Department=Dep_Tbl.ID")
For i = 0 To mytable.Rows.Count - 1
ListBox1.Items.Add(mytable.Rows(i)("Dep_Name").ToString())
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
connect("select * from Emp_Tbl,EmpInfo_Tbl,Dep_Tbl where Emp_Tbl.ID=EmpInfo_Tbl.Info_EmpID and EmpInfo_Tbl.Info_Department=Dep_Tbl.ID and Dep_Tbl.Dep_Name='" & ListBox1.Text & "'")
DataGridView1.DataSource = mytable
End Sub
End Class
استفسار عن ليست بوكس مع داتا جريد فيو - محمود اكرم - 17-06-13
ملاحظة بسيطة
طريقة
Oledb ان تضع
Imports System.Data.OleDbوكل Sql تبدل ب OleDb
استفسار عن ليست بوكس مع داتا جريد فيو - حريف برمجة - 17-06-13
hoob computer كتب :أخي الكريم, سؤالي كان واضح جداً. فهل من الضروري إرفاق المشروع الذي لم أكمله الى الان من أجل كود (Query) واحد فقط!!!!!!
أخي الكريم كلامي كان واضح جداً انا ماقلت لك ارفق المشروع فقط قلت ارفق مثال ليتم التعديل عليه ، وهذا لسرعة الاجابة سواء مني او من اي عضو آخر
مو معقول كل سوال يقومون الاعضاء بعمل أمثلة حسب المطلوب وحل المشكلة وإعلام السائل بالخطأ ،،،،
تسهيلاً للأعظاء وكسباً للوقت يقوم طالب المساعدة بإرفاق مثال بسيط يطلب طلبه ويقومون الاعضاء بالحل ....
على العموم الحمدلله حصلت حل لمشكلتك
استفسار عن ليست بوكس مع داتا جريد فيو - hoob computer - 18-06-13
مشكوووووووووووووووور على الاجابات من كل الاعضاء, شاكراً لكم جهودكم
استفسار عن ليست بوكس مع داتا جريد فيو - hoob computer - 18-06-13
أخوية الغالي سجاد,
مشكور على الكود الي نزلته بمشاركتك, لكنه يختلف شوية عن الكود الي جان ابالي و الي لكيته بموقع اجنبي و كان يشتغل بكل نجاح وهو:
PHP كود :
SELECT Emp_Tbl.*
FROM Dep_Tbl INNER JOIN
EmpInfo_Tbl ON Dep_Tbl.ID = EmpInfo_Tbl.Info_Department INNER JOIN
Emp_Tbl ON EmpInfo_Tbl.Info_EmpID = Emp_Tbl.ID
WHERE (Dep_Tbl.ID = @ListBox1.SelectedValue)
تحياتي