[Adrees]

وعليكم السلام
تفضل

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