تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة لم تتم تهيئة خاصية ExecuteNonQuery
#1
السلام عليكم

يا شباب كيف اهئ خاصية ExecuteNonQuery 
كود :
Protected Sub SinUpU()
       Dim cmd As New SqlCommand
       Try

           Dim conn As New SqlConnection()
         
           conn.ConnectionString = "Data Source=a-pc\sqlexpress;Initial Catalog=DataKaleej;Integrated Security=True"

           conn.Open()


           cmd.CommandText = "update DataStudents$ set Password='" & TPass1.Text & "' where ID='" & " where ID='" + Tuser.Text + "'"
           cmd.ExecuteNonQuery()


           conn.Close()
         
           Lb3.Text = "تم تغيير كلمة المرور بنجاح"

           Lb3.ForeColor = Drawing.Color.Green




       Catch ex As Exception
         
           MsgBox(ex.Message.ToString)

       End Try
   End Sub


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

لم تربط امر cmd بالاتصال conn ضع الكود التالي قبل conn.Open
جرب التالي
كود :
cmd.Connection=conn
الرد }}}
تم الشكر بواسطة:
#3
وعليكم السلام
تفضل

PHP كود :
Protected Sub SinUpU()
 
      Dim cmd As New SqlCommand
       
Try

 
          Dim conn As New SqlConnection()
 
         
           conn
.ConnectionString "Data Source=a-pc\sqlexpress;Initial Catalog=DataKaleej;Integrated Security=True"

 
         

        cmd
.Connection conn
        cmd
.CommandType CommandType.Text
           cmd
.CommandText "update DataStudents$ set Password='" TPass1.Text "' where ID='" Tuser.Text "'"
         
  
            conn
.Open()
 
          cmd.ExecuteNonQuery()
 
          conn.Close()
 
         
           Lb3
.Text "تم تغيير كلمة المرور بنجاح"

 
          Lb3.ForeColor Drawing.Color.Green




       
Catch ex As Exception
          
           MsgBox
(ex.Message.ToString)

 
      End Try
 
  End Sub 
الرد }}}
تم الشكر بواسطة:
#4
جزاكم الله عني كل خير وبارك الله فيكم وفي علمكم
الرد }}}
تم الشكر بواسطة:



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


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