27-02-13, 11:29 PM
اريد ان انقل بيانات من الdatagrid لمجموعة من الtextbox تظهر وتختفي على حسب حجم الصفوف في الdatagrid فمثلا
انا عندي 3 اسماء منهم : محمد - ابرهيم - محسن
فانا هكذا اريد 3 textbox فقط
لكن لو كان عدد الاسماء 5
يظهر لي عدد 5 من ال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شكرا
