تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الخطا ؟؟؟؟
#1
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]
الرد }}}}
تم الشكر بواسطة:
#2
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 
الرد }}}}
تم الشكر بواسطة: عبـدالله
#3
اشكرك 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

؟؟
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم و رحمة الله و بركاته 
اهلا اخت المى ، 
ما جربت الكود لكن هذا تعديل بسيط على كود الاخ الكريم 
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 
الرد }}}}
تم الشكر بواسطة: عبـدالله , عبـدالله
#5
شكرا Amir_alzubidy
نفس الخطا
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#6
هذا ليس خطأ، فقط تنبيه بأن الكود الذي في الدالة Function لم يجد فيه قيمة تعود من خلال Return في الحالة الأخرى
والكود عموما سيعمل بشكل صحيح،
ولكي يزول هذا التنبية يمكنك جعل السطر التالي
PHP كود :
If ret 0 Then Return True 
بهذا الشكل
PHP كود :
If ret 0 Then
    Return True
Else
 
   Return False
End 
If 
الرد }}}}
تم الشكر بواسطة: alma_fandi , Amir_alzubidy , Amir_alzubidy
#7
عبـدالله

اشكرك
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو الخطا في الكود التالي ( نسخ البيانات من داتا قرايد فيو الى قاعدة البيانات ) nooralcown 6 158 23-12-17, 11:17 AM
آخر رد: nooralcown
  المساعدة في تصحيح الخطا في الكود khaled12345 2 108 30-10-17, 07:21 PM
آخر رد: khaled12345
  [سؤال] شباب ليه رسالة الخطا دى بتظهر احمد عبد الحكيم 1 137 24-07-17, 09:05 PM
آخر رد: silverlight
  ما الخطا فى الكود Mohamed20 6 306 26-06-17, 04:36 AM
آخر رد: silverlight
  اين الخطا في هذا الكود rabeh.ram 2 212 16-06-17, 05:22 AM
آخر رد: rabeh.ram
  اين الخطا في هذا الكود rabeh.ram 18 711 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 241 13-05-17, 01:11 AM
آخر رد: rabeh.ram
  [سؤال] ما الخطا ؟؟؟؟ alma_fandi 21 780 30-04-17, 08:59 PM
آخر رد: alma_fandi
  اين الخطا ؟؟ alma_fandi 9 343 27-04-17, 07:32 PM
آخر رد: alma_fandi
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 335 20-04-17, 01:41 PM
آخر رد: أسامة السالمي

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


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