(14-06-24, 11:05 PM)moh61 كتب : يوجد لدي كود يقوم بالتحقق من وجود اسم المستخدم بقاعدة البيانات ب sub مستقلة ... اريد عندما اضغط على ذر الحفظ ... والاتصال بال Sub يقوم بالخروج من الذر اذا كان المستخدم موجود

PHP كود :

Private Sub Check()
        Dim conn3 As New OleDbConnection(ConfigurationManager.ConnectionStrings("LAUNDRY_SYSTEM.My.MySettings.Laundry_DatabaseConnectionString").ConnectionString)
        Using Cmd As New OleDbCommand("SELECT * from login Where user_name = @user_name ", conn3)
            Cmd.CommandType = CommandType.Text
            Using sda As New OleDbDataAdapter(Cmd)
                Cmd.Connection = conn3
                sda.SelectCommand = Cmd
                Cmd.Parameters.AddWithValue("@user_name", TextBox2.Text)
                Cmd.Connection.Open()
                Cmd.ExecuteScalar()
                Cmd.Connection.Close()
                Using login As New DataSet()
                    sda.Fill(login, "login")
                    If login.Tables(0).Rows.Count <> 0 Then
                        MsgBox("يجب تغير اسم المستخدم")
                        Exit Sub
                    End If
                End Using
            End Using
        End Using
    End Sub
    '< حفظ المستخدم
    Private Sub saved_Click(sender As Object, e As EventArgs) Handles saved.Click
        Check()
   ' هنا يوجد كود الحفظ
  End Sub