[alma_fandi]

Private Function UpdateData() As Boolean
       Try

           Dim ret As Integer = 0

           Dim sql As String =
               " Update [Table1] SET " & _
               "   [Name]=@Name, [Birthday]=@Birthday, [Age]=@Age, [Sex]=@Sex, [Nationality]=@Nationality, [Nationality_ID]=@Nationality_ID " & _
               " , [Type]=@Type, [State]=@State, [Place]=@Place, [Phone]=@Phone, [Address]=@Address, [D1]=@D1, [D2]=@D2, [D3]=@D3, [D4]=@D4, [D5]=@D5, [D6]=@D6 " & _
               " WHERE [ID]=" & id
           Using cmd As New OleDbCommand(sql, Con)
               With cmd

                   .Parameters.AddWithValue("Name", txtName.Text.Trim)
                   .Parameters.AddWithValue("Birthday", dtBirthday.Value.Date)
                   .Parameters.AddWithValue("Age", Val(txtAge.Text))
                   .Parameters.AddWithValue("Sex", cboSex.Text.Trim)
                   .Parameters.AddWithValue("Nationality", txtNationality.Text.Trim)
                   .Parameters.AddWithValue("Nationality_ID", Val(txtNationalityID.Text))
                   .Parameters.AddWithValue("Type", cboType.Text.Trim)
                   .Parameters.AddWithValue("State", cboState.Text.Trim)
                   .Parameters.AddWithValue("Place", cboPlace.Text.Trim)
                   .Parameters.AddWithValue("Phone", Val(txtPhone.Text))
                   .Parameters.AddWithValue("Address", Address.Text.Trim)
                   .Parameters.AddWithValue("D1", chkD1.Checked)
                   .Parameters.AddWithValue("D2", chkD2.Checked)
                   .Parameters.AddWithValue("D3", chkD3.Checked)
                   .Parameters.AddWithValue("D4", chkD4.Checked)
                   .Parameters.AddWithValue("D5", chkD5.Checked)
                   .Parameters.AddWithValue("D6", chkD6.Checked)

               End With
               If Con.State <> ConnectionState.Open Then Con.Open()
               ret = cmd.ExecuteNonQuery()
               Con.Close()
           End Using

           If ret > 0 Then Return True

       Catch ex As Exception
           MsgBox(ex.Message)
           Return False
       End Try
   End Function

[url=http://www.up-00.com/][/url]

[thevirus]

PHP كود :

Private Function UpdateData() As Boolean
       Try
 Dim x As Boolean = False
           Dim ret As Integer = 0

           Dim sql As String =
               " Update [Table1] SET " & _
               "   [Name]=@Name, [Birthday]=@Birthday, [Age]=@Age, [Sex]=@Sex, [Nationality]=@Nationality, [Nationality_ID]=@Nationality_ID " & _
               " , [Type]=@Type, [State]=@State, [Place]=@Place, [Phone]=@Phone, [Address]=@Address, [D1]=@D1, [D2]=@D2, [D3]=@D3, [D4]=@D4, [D5]=@D5, [D6]=@D6 " & _
               " WHERE [ID]=" & id
           Using cmd As New OleDbCommand(sql, Con)
               With cmd

                   .Parameters.AddWithValue("Name", txtName.Text.Trim)
                   .Parameters.AddWithValue("Birthday", dtBirthday.Value.Date)
                   .Parameters.AddWithValue("Age", Val(txtAge.Text))
                   .Parameters.AddWithValue("Sex", cboSex.Text.Trim)
                   .Parameters.AddWithValue("Nationality", txtNationality.Text.Trim)
                   .Parameters.AddWithValue("Nationality_ID", Val(txtNationalityID.Text))
                   .Parameters.AddWithValue("Type", cboType.Text.Trim)
                   .Parameters.AddWithValue("State", cboState.Text.Trim)
                   .Parameters.AddWithValue("Place", cboPlace.Text.Trim)
                   .Parameters.AddWithValue("Phone", Val(txtPhone.Text))
                   .Parameters.AddWithValue("Address", Address.Text.Trim)
                   .Parameters.AddWithValue("D1", chkD1.Checked)
                   .Parameters.AddWithValue("D2", chkD2.Checked)
                   .Parameters.AddWithValue("D3", chkD3.Checked)
                   .Parameters.AddWithValue("D4", chkD4.Checked)
                   .Parameters.AddWithValue("D5", chkD5.Checked)
                   .Parameters.AddWithValue("D6", chkD6.Checked)

               End With
               If Con.State <> ConnectionState.Open Then Con.Open()
               ret = cmd.ExecuteNonQuery()
               Con.Close()
           End Using

           If ret > 0 Then X = True

       Catch ex As Exception
           MsgBox(ex.Message)
           Return x
       End Try
   End Function 


[alma_fandi]

اشكرك thevirus

بيعطي خطا x مو معرفة ...

Error 1 'x' is not declared. It may be inaccessible due to its protection level.


مع انه Dim x As Boolean = False
Dim ret As Integer = 0

؟؟

[Amir_Alzubidy]

السلام عليكم و رحمة الله و بركاته 
اهلا اخت المى ، 
ما جربت الكود لكن هذا تعديل بسيط على كود الاخ الكريم 

PHP كود :

Private Function UpdateData() As Boolean
       Try
 Dim x As Boolean = False
           Dim ret As Integer = 0

           Dim sql As String =
               " Update [Table1] SET " & _
               "   [Name]=@Name, [Birthday]=@Birthday, [Age]=@Age, [Sex]=@Sex, [Nationality]=@Nationality, [Nationality_ID]=@Nationality_ID " & _
               " , [Type]=@Type, [State]=@State, [Place]=@Place, [Phone]=@Phone, [Address]=@Address, [D1]=@D1, [D2]=@D2, [D3]=@D3, [D4]=@D4, [D5]=@D5, [D6]=@D6 " & _
               " WHERE [ID]=" & id
           Using cmd As New OleDbCommand(sql, Con)
               With cmd

                   .Parameters.AddWithValue("Name", txtName.Text.Trim)
                   .Parameters.AddWithValue("Birthday", dtBirthday.Value.Date)
                   .Parameters.AddWithValue("Age", Val(txtAge.Text))
                   .Parameters.AddWithValue("Sex", cboSex.Text.Trim)
                   .Parameters.AddWithValue("Nationality", txtNationality.Text.Trim)
                   .Parameters.AddWithValue("Nationality_ID", Val(txtNationalityID.Text))
                   .Parameters.AddWithValue("Type", cboType.Text.Trim)
                   .Parameters.AddWithValue("State", cboState.Text.Trim)
                   .Parameters.AddWithValue("Place", cboPlace.Text.Trim)
                   .Parameters.AddWithValue("Phone", Val(txtPhone.Text))
                   .Parameters.AddWithValue("Address", Address.Text.Trim)
                   .Parameters.AddWithValue("D1", chkD1.Checked)
                   .Parameters.AddWithValue("D2", chkD2.Checked)
                   .Parameters.AddWithValue("D3", chkD3.Checked)
                   .Parameters.AddWithValue("D4", chkD4.Checked)
                   .Parameters.AddWithValue("D5", chkD5.Checked)
                   .Parameters.AddWithValue("D6", chkD6.Checked)

               End With
               If Con.State <> ConnectionState.Open Then Con.Open()
               ret = cmd.ExecuteNonQuery()
               Con.Close()
           End Using

           If ret > 0 Then X = True
End If
       Catch ex As Exception
           MsgBox(ex.Message)
           Return x
       End Try
   End Function 


[alma_fandi]

شكرا Amir_alzubidy
نفس الخطا

[عبـدالله]

هذا ليس خطأ، فقط تنبيه بأن الكود الذي في الدالة Function لم يجد فيه قيمة تعود من خلال Return في الحالة الأخرى
والكود عموما سيعمل بشكل صحيح،
ولكي يزول هذا التنبية يمكنك جعل السطر التالي

PHP كود :

If ret > 0 Then Return True 


بهذا الشكل

PHP كود :

If ret > 0 Then
    Return True
Else
    Return False
End If 


[alma_fandi]

عبـدالله

اشكرك