منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ما الخطا ؟؟؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما الخطا ؟؟؟؟ (/showthread.php?tid=19994)



ما الخطا ؟؟؟؟ - alma_fandi - 13-04-17

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]



RE: ما الخطا ؟؟؟؟ - thevirus - 13-04-17

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(sqlCon)
 
              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 



RE: ما الخطا ؟؟؟؟ - alma_fandi - 14-04-17

اشكرك 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

؟؟


RE: ما الخطا ؟؟؟؟ - Amir_Alzubidy - 14-04-17

السلام عليكم و رحمة الله و بركاته 
اهلا اخت المى ، 
ما جربت الكود لكن هذا تعديل بسيط على كود الاخ الكريم 
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(sqlCon)
 
              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 



RE: ما الخطا ؟؟؟؟ - alma_fandi - 15-04-17

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


RE: ما الخطا ؟؟؟؟ - عبـدالله - 15-04-17

هذا ليس خطأ، فقط تنبيه بأن الكود الذي في الدالة Function لم يجد فيه قيمة تعود من خلال Return في الحالة الأخرى
والكود عموما سيعمل بشكل صحيح،
ولكي يزول هذا التنبية يمكنك جعل السطر التالي
PHP كود :
If ret 0 Then Return True 
بهذا الشكل
PHP كود :
If ret 0 Then
    Return True
Else
 
   Return False
End 
If 



RE: ما الخطا ؟؟؟؟ - alma_fandi - 15-04-17

عبـدالله

اشكرك