تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل البيانات من الdatagrid الى مجموعة من الtextbox
#1
اريد ان انقل بيانات من الdatagrid لمجموعة من الtextbox تظهر وتختفي على حسب حجم الصفوف في الdatagrid فمثلا



انا عندي 3 اسماء منهم : محمد - ابرهيم - محسن

فانا هكذا اريد 3 textbox فقط



لكن لو كان عدد الاسماء 5

يظهر لي عدد 5 من الtextbox وفيهم جميع الاسماء التي تظهر في datagrid بترتيبهم

وده الكود اللي عندي اللي ممكن يساعدكم لايجاد لي حل
كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
        Dim main As New Mainform
        Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\data1.mdb"
        Dim newconnection As New OleDbConnection(Connectionstring)
        Dim DataSet1 As New DataSet
        Dim SQLstr As String
        Dim m As String
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)
        Public Sub GeneralSearch()
                If RadioButton1.Checked = True Then
                        SQLstr = "SELECT * FROM TableA WHERE الاسم LIKE '%" & TextBox1.Text & "%'"
                End If
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Static m As Integer = 0
                If TextBox1.Text = Trim("") Then
                        Exit Sub
                ElseIf RadioButton7.Checked = True Then
                        ExactSearch()
                ElseIf RadioButton6.Checked = True Then
                        GeneralSearch()
                End If
                newconnection.Open()
                Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)
                DataAdapter1.Fill(DataSet1, "TableA")
                Me.BindingContext(DataSet1, "TableA").Position += 0
                TextBox2.DataBindings.Add("Text", DataSet1, "TableA.الاسم")
                Me.BindingContext(DataSet1, "TableA").Position += 1
                TextBox7.DataBindings.Add("Text", DataSet1, "TableA.الاسم")
                Me.BindingContext(DataSet1, "TableA").Position += 1
                TextBox8.DataBindings.Add("Text", DataSet1, "TableA.الاسم")
                TextBox3.DataBindings.Add("Text", DataSet1, "TableA.العمر")
                TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الجنس")
                TextBox5.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")
                TextBox6.DataBindings.Add("Text", DataSet1, "TableA.العنوان")
                DataGridView1.DataSource = DataSet1
                DataGridView1.DataMember = "TableA"
                DataGridView1.AllowDrop = True
                Button1.Enabled = False
                If Me.BindingContext(DataSet1, "TableA").Count = 0 Then
                        MsgBox("No Result, Please Try Again ")
                        Exit Sub
                End If

        End Sub
        Public Sub ExactSearch()
                If RadioButton1.Checked = True Then
                        SQLstr = "SELECT * FROM TableA WHERE الاسم = '" & TextBox1.Text & "'"
                End If
        End Sub
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
                Me.Close()
                main.Show()
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
                TextBox2.DataBindings.Clear()
                TextBox3.DataBindings.Clear()
                TextBox4.DataBindings.Clear()
                TextBox5.DataBindings.Clear()
                TextBox6.DataBindings.Clear()
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
                Button1.Enabled = True
                SQLstr = ""
                DataSet1.Clear()
                Me.DataGridView1.DataSource = Nothing
        End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                RadioButton1.Checked = True
                RadioButton6.Checked = True
        End Sub
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
                Dim Obj1 As Object
                Obj1 = CreateObject("powerpoint.application")
                Obj1.Visible = True
                Obj1.Presentations.Open(FileName:="H:\تعديل\أ\أبارك الرب في كل حين.ppt")
        End Sub
End Class

شكرا
الرد }}}}
تم الشكر بواسطة:
#2
في الردوووووووووووووووود :confused:
الرد }}}}
تم الشكر بواسطة:
#3
up

انا عندى نفس المشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 85 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  استفسار حول عدم تكرار البيانات المتألق9 3 149 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 183 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 152 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 167 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 158 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli
  الانتقال إلى السجل الثاني في قاعدة البيانات و إظهار الصورة التالية على picturebox ahmed_elwerfalli 6 482 24-12-16, 11:07 PM
آخر رد: ahmed_elwerfalli
  جلب البيانات من قاعدة بيانات XML djelloul 0 211 13-12-16, 07:45 PM
آخر رد: djelloul
  مشكلة في تصميم قاعدة البيانات djelloul 2 287 06-12-16, 12:36 PM
آخر رد: djelloul

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم