منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار عن امكانية اضافة اكثر من صف ل داتا قريد .. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : استفسار عن امكانية اضافة اكثر من صف ل داتا قريد .. (/showthread.php?tid=20954)

الصفحات: 1 2

استفسار عن امكانية اضافة اكثر من صف ل داتا قريد .. - Marwan9990 - 07-07-17

اسعد الله صباحكم احبائي..

استفسار ببسيط ي اخوان .. ما هو الطريقة لجعل القريد فيه تعرض نتائج اكثر من صف واحد اثناء تكرار الاستعلام ..
يعني لو معنا بتون للبحث وانا كل شوي ادخل اسم موظف جديد عشان ابحث عنه ف خانت تكس بوكس وبعد ادخل اسم الموظف اضغط على بتون البحث يظهر لي نتيجه في قريد فيو ارجع واكتب اسم موظف اخر واضغط بتون يظهر لي سطر تحت سطر السابق الي ظهر في قريد فيو بدون لا يختفي السابق ..اتمنى تكون فكره واضحه.. 

احتاج هذا الكود ضروري للي ممكن يفيدني

مودتي للجميع

RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - 23306 - 07-07-17

كود :
Public Class Form1

    Private con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb")
    Private dt As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = dt

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using da As New OleDb.OleDbDataAdapter("SELECT * FROM [Table1] WHERE [fullName]=@fn", con)
            da.SelectCommand.Parameters.AddWithValue("@fn", TextBox1.Text)
            da.Fill(dt)
        End Using
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        dt.Clear()
    End Sub

End Class


RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - Marwan9990 - 07-07-17

لم ينجح الامر عزيزي ياليت لو فيه مثال حتى لو فيديو من يوتيوب

RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - 23306 - 07-07-17









RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - Marwan9990 - 07-07-17

انته تقوم بالاضافة تقريبا على حسب فهمي..

انا اعمل العكس في مشروعي معي البيانات في قاعدة بيانات ولكني اقوم بسحبها فقط عشان اعرضها على داتا قريد ..
وهيا بالاصح معي كومبو بكس وانا اختار فيه القسم الي ابي اعرض نتائجه طبعا نتائجه تجيني من قاعدة البيانات سبق وادرجتهم وثم اضغط على زر البحث ويسحب لي البيانات كامله من قاعدة البيانات..

كذا يعمل مشروعي

RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - 23306 - 07-07-17

(07-07-17, 10:58 AM)Marwan9990 كتب : اسعد الله صباحكم احبائي..

استفسار ببسيط ي اخوان .. ما هو الطريقة لجعل القريد فيه تعرض نتائج اكثر من صف واحد اثناء تكرار الاستعلام ..
يعني لو معنا بتون للبحث وانا كل شوي ادخل اسم موظف جديد عشان ابحث عنه ف خانت تكس بوكس وبعد ادخل اسم الموظف اضغط على بتون البحث يظهر لي نتيجه في قريد فيو ارجع واكتب اسم موظف اخر واضغط بتون يظهر لي سطر تحت سطر السابق الي ظهر في قريد فيو بدون لا يختفي السابق ..اتمنى تكون فكره واضحه.. 

احتاج هذا الكود ضروري للي ممكن يفيدني

مودتي للجميع


RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - Marwan9990 - 07-07-17

عزيزي هذا صورة مشروعي عشان تكون صوره واضحه ..





بالاضافة الى ارفق المشروع ..

RE: استفساد عن امكانية اضافة اكثر من صف ل داتا قريد .. - محمد العبيدي - 07-07-17

اخي يمكنك ان تعرف متغير من نوع سترنك وتجع في قيم التيكست بالطريقة التالية
كود :
Dim EmpName As String = ""

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    EmpName = EmpName & "'%" & TxtSearch.Text & "%',"
    Dim Comm As New SqlCommand("SELECT Emp_ID,Emp_Name,Country From Emploee Where Emp_Name In(" & TxtSearch.Text.Remove(TxtSearch.Text.Length - 1, 1) & ")")
End Sub


RE: استفسار عن امكانية اضافة اكثر من صف ل داتا قريد .. - Marwan9990 - 07-07-17

اعتذر ولكن الطريقة هذا ايضا لم تنجح مدري اذا فكرت الموضوع الي طرحته مفهومه او لها معنى اخر لني انا بعد بحثت ف يوتيوب كثير ولا وصلت ل نتيجه ><

RE: استفسار عن امكانية اضافة اكثر من صف ل داتا قريد .. - Marwan9990 - 07-07-17

لا تزال المشكله قائمه..