تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 3 منذ 1 ساعه مضت
آخر رد: khodor1985
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,621 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 144 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 184 15-08-17, 02:11 PM
آخر رد: abozeyd
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 170 19-07-17, 03:24 PM
آخر رد: waelalmsry75
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 172 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 707 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] كيف احفظ صورة الطالب الى قاعدة البيانات عبداللطيف2017 6 327 25-06-17, 01:47 PM
آخر رد: silverlight
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 6,082 28-05-17, 05:30 PM
آخر رد: abiza
  [كود] كنت عايز كود التحديث في قاعدة البيانات لسه مبتدئ 3 247 12-05-17, 01:59 PM
آخر رد: Adrees

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


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