[مشروع] لا جديد الا في كود البحث(محاولة ايجاد اقصر كود للحفظ)

PHP كود :

Using cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(tname,bd,temail,homephone,mobile,country,sex,fav

car,hob) values(@tname,@bd,@temail,@homephone,@mobile,@country,@sex,@favcar,@hob)"
            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)
                ElseIf TypeOf h Is TextBox Then
                    cm.Parameters.AddWithValue("@" & CType(h, TextBox).Name & "", 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 كود :

   Dim mycontrols As New List(Of Control)

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)

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