[سعود]

نجحت بعد كم خطوة نفذتها ومادام تعبت بهالخطوات هذي اجل ما الفائدة منها؟
لان قصدي تنفيذ اكبر عدد من الاسطر بالمتغيرات:


الخطوة الاولى: 1

PHP كود :

   Dim mycontrols As New List(Of Control) 


 2 in Form_Load event
 

PHP كود :

       mycontrols.Add(tname)
        mycontrols.Add(bd)
        mycontrols.Add(temail)
        mycontrols.Add(homephone)
        mycontrols.Add(mobile)
        mycontrols.Add(country)
        mycontrols.Add(sex)
        mycontrols.Add(favcar)
        mycontrols.Add(hob) 


الخطوة الاخيرة 3

PHP كود :

Using cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(tname,bd,temail,homephone,mobile,country,sex,favcar,hob) values(@tname,@bd,@temail,@homephone,@mobile,@country,@sex,@favcar,@hob)"
            For Each h As Control In mycontrols
                If TypeOf h Is DateTimePicker Then
                    cm.Parameters.AddWithValue("@" & CType(h, DateTimePicker).Name & "", CType(h, DateTimePicker).Value.ToShortDateString)
                ElseIf TypeOf h Is TextBox Then
                    cm.Parameters.AddWithValue("@" & CType(h, TextBox).Name & "", IIf(IsNumeric(CType(h, TextBox).Text), Val(CType(h, TextBox).Text), CType(h, TextBox).Text))
                ElseIf TypeOf h Is ComboBox Then
                    cm.Parameters.AddWithValue("@" & CType(h, ComboBox).Name & "", CType(h, ComboBox).Text)
                End If
            Next
            Try
                If con.State = ConnectionState.Closed Then con.Open()
                cm.ExecuteNonQuery()
                gd(dg.Rows.Count - IIf(dg.AllowUserToAddRows, 2, 1))
                If con.State = ConnectionState.Open Then con.Close()
            Catch ex As Exception
                MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
            End Try
        End Using 


---

رتبت البارمترات كما تظهر من عناصر البانل::

PHP كود :

Using cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(tname,hob,bd,favcar,temail,sex,homephone,country,mobile) values(@tname,@hob,@bd,@favcar,@temail,@sex,@homephone,@country,@mobile)"
            For Each h As Control In Panel1.Controls
                If TypeOf h Is DateTimePicker Then
                    cm.Parameters.AddWithValue("@" & CType(h, DateTimePicker).Name & "", CType(h, DateTimePicker).Value.ToShortDateString)
                ElseIf TypeOf h Is TextBox Then
                    cm.Parameters.AddWithValue("@" & CType(h, TextBox).Name & "", IIf(IsNumeric(CType(h, TextBox).Text), Val(CType(h, TextBox).Text), CType(h, TextBox).Text))
                ElseIf TypeOf h Is ComboBox Then
                    cm.Parameters.AddWithValue("@" & CType(h, ComboBox).Name & "", CType(h, ComboBox).Text)
                End If
            Next

            Try
                If con.State = ConnectionState.Closed Then con.Open()
                cm.ExecuteNonQuery()
                gd(dg.Rows.Count - IIf(dg.AllowUserToAddRows, 1, 0))
                If con.State = ConnectionState.Open Then con.Close()
            Catch ex As Exception
                MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
            End Try
        End Using 


المطلوب اقصر من كذا!!!
هل تظنون استخدام الـDataRow للاضافة قد توفر امكانية تقصير الاكواد؟!
اذا شاء الله ساجرب.
لم اجد افضل مما وجدت