تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود الدبل كلك
#1
عند البجث في جدولين في قاعدة البيانات من خلال الدتا قريد فيو وظهور النتيجه اريدكود الدبل كلك على السجل ثم يظهر لي في فورم اخر على شكل تيكس بوكس لكل عمود من السجل بحيث يمكنني التعديل على هذا السجل 


وارجو المساعدة وشكراً Smile Smile Smile
Smile
الرد }}}}
تم الشكر بواسطة:
#2
أخى علي كعبي
ضع برنامجك لنعدل لك عليه بالكود المطلوب
الرد }}}}
تم الشكر بواسطة: derham
#3
استخدم الحدث CellDoubleClick وهذا مثال
PHP كود :
Private Sub DataGridView1_CellDoubleClick(ByVal sender As ObjectByVal e As System.Windows.Forms.DataGridViewCellEventArgsHandles DataGridView1.CellDoubleClick
    Form2
.TextBox1.Text Me.DataGridView1.Item(0e.RowIndex).Value
    Form2
.TextBox2.Text Me.DataGridView1.Item(1e.RowIndex).Value
    Form2
.TextBox3.Text Me.DataGridView1.Item(2e.RowIndex).Value
    Form2
.ShowDialog()
End Sub 
الرد }}}}
تم الشكر بواسطة: العزابي , العزابي
#4
هذا المثال للتعديل علية


الملفات المرفقة
.rar   مجلد جديد ‫(7)‬.rar (الحجم : 81.7 ك ب / التحميلات : 10)
الرد }}}}
تم الشكر بواسطة:
#5
كان من الأول انك تضع مثال للتعديل، ولا مش شايف مشاركتي.
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم التعديل على مشروعكم بناء لطلبكم
ملاحظات التعديل :
- لقد قمنا بتصحيح أسماء الجداول في جملة الإستعلام الموجودة في النموذج frm_ser فهي غير متطابقة مع أسماء الجداول في قاعدة البيانات.
تسمية الجدول الخاطئة :tabl1  و tabl2
التسمية الصحيحة والمتطابقة مع أسماء الجداول في قاعدة البيانات : tbl1 وtbl2.

- لقد قمنا بدمج الجدولين في جملة إستعلام واحدة في قاعدة البيانات وإسمها Qry_tbl1_tbl2.

كود عند الضغط مرتين على الصف يتم إظهار معلومات الصف في مربعات النصوص في النموذج Form1:
PHP كود :
Form1.Show()
 
       Form1.txtcod.Text DataGridView1.CurrentRow.Cells(0).Value
        Form1
.txtnem.Text DataGridView1.CurrentRow.Cells(1).Value
        Form1
.txtmel.Text DataGridView1.CurrentRow.Cells(2).Value
        Form1
.txttelfon.Text DataGridView1.CurrentRow.Cells(3).Value
        Form1
.txtbirth.Text DataGridView1.CurrentRow.Cells(4).Value
        Form1
.txtt_date.Text DataGridView1.CurrentRow.Cells(5).Value 

كود التعديل على المعلومات من النموذج Form1 :
PHP كود :
'Save Data
    Private Sub SaveData()
        Try
            con.Open()
            sqlstr = "UPDATE Qry_tbl1_tbl2 SET nem=@nem,mel=@mel,telfon=@telfon,birth=@birth,t_date=@t_date " & _
                     "Where cod=@Cod"
            cmd = New OleDbCommand(sqlstr, con)
            With cmd.Parameters
                .Add("@nem", OleDbType.VarWChar).Value = txtnem.Text
                .Add("@mel", OleDbType.VarWChar).Value = txtmel.Text
                .Add("@telfon", OleDbType.VarWChar).Value = txttelfon.Text
                .Add("@birth", OleDbType.Date).Value = txtbirth.Text
                .Add("@t_date", OleDbType.Date).Value = txtt_date.Text
                .Add("@cod", OleDbType.Integer).Value = txtcod.Text
            End With
            cmd.ExecuteNonQuery()
            MsgBox("تم التعديل بنجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "إنتباه")
            con.Close()

        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        SaveData()
    End Sub 

النتيجة :
صورة عند الضغط على الصف مرتين تظهر المعلومات في مربعات النصوص في النموذج Form1 :
   

صورة قبل التعديل على المعلومات :
سنقوم بالتعديل على الإسم مثلا :
   

بعد التعديل :
   

المشروع بعد التعديل :

.rar   khosor1985 -Modified.rar (الحجم : 351.42 ك ب / التحميلات : 10)

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: العزابي , zinom


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


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