تقييم الموضوع :
  • 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 
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: عبـدالله , عبـدالله
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد حل لى مشكلة هذا الخطا يظهر لى كثيرااا naderalkeng54 3 162 23-09-18, 12:02 PM
آخر رد: elgokr
  لماذا هذا الخطا فى الصوره خالد كامل1 10 402 06-08-18, 12:03 AM
آخر رد: خالد كامل1
  ما الخطا هنا لو سمحتم خالد كامل1 14 329 07-07-18, 09:32 PM
آخر رد: elgokr
  [سؤال] خطأ table.fill كيف يتم تخطي الخطا واظهار رساله للمستخدم dametucorazon 2 167 16-06-18, 02:54 PM
آخر رد: dametucorazon
  ما هو الخطا في الكود التالي ( نسخ البيانات من داتا قرايد فيو الى قاعدة البيانات ) nooralcown 6 396 23-12-17, 11:17 AM
آخر رد: nooralcown
  المساعدة في تصحيح الخطا في الكود khaled12345 2 174 30-10-17, 07:21 PM
آخر رد: khaled12345
  [سؤال] شباب ليه رسالة الخطا دى بتظهر احمد عبد الحكيم 1 283 24-07-17, 09:05 PM
آخر رد: silverlight
  ما الخطا فى الكود Mohamed20 6 436 26-06-17, 04:36 AM
آخر رد: silverlight
  اين الخطا في هذا الكود rabeh.ram 2 342 16-06-17, 05:22 AM
آخر رد: rabeh.ram
  اين الخطا في هذا الكود rabeh.ram 18 1,053 16-05-17, 10:48 PM
آخر رد: rabeh.ram

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


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