ما الخطا ؟؟؟؟ - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 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 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 RE: ما الخطا ؟؟؟؟ - alma_fandi - 15-04-17 عبـدالله اشكرك |