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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 38 06-12-16, 12:36 PM
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 43 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 356 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 82 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  تسمية قاعدة البيانات قبل انشائها aiman 3 176 15-09-16, 09:12 PM
آخر رد: Abu Ehab
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 145 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي
  [VB.NET] الفيجوال بيسك لا يحفظ البيانات محمد خلف زكي 1 216 02-08-16, 05:54 AM
آخر رد: سعود
  لماذا لايتم حفظ الثواني مع باقي القيم الى قاعدة البيانات؟ سعود 2 387 01-08-16, 11:15 AM
آخر رد: أبوبكر سويدان
  مساعدة بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 24 756 17-06-16, 03:05 AM
آخر رد: رهف العريفي
Sad مشكلة عدم حفظ البيانات في قاعدة البيانات wrd 10 543 10-06-16, 10:20 PM
آخر رد: ابو ليلى

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


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