DAVID DUSHIMIMANA Ответов: 1

Как создать отчет в Vbnet с базой данных Access

Привет разработчикам ребят
Я хотел бы получить от вас любую помощь, я хочу знать, как я могу делать отчеты для моей системы, которую я разрабатываю в vbnet 2010 (visual studio 2010express) с базой данных access 2007.
Я хотел бы знать, справедливо ли это, если я делаю это из базы данных access или из vbnet.


Второй вопрос заключается в том, как я могу подключить таблицу, которая будет содержать сведения о пользователе,к таблице персонала(logintable) и таблице ролей, теперь я использую таблицу персонала, которая подключается к интерфейсу входа, у нее есть имя пользователя, пароль, RoleId, а идентификатор роли имеет Roleid и роль.
в таблице сведений о пользователе у меня есть имя,фамилия,фамилия, идентификатор роли и адрес,но я не знаю, как я могу их соединить, чтобы через таблицу сведений о пользователе можно было хранить информацию, которую будет использовать таблица персонала, в основном для того, чтобы помочь пользователю зарегистрироваться в системе для использования.

Пожалуйста, помогите мне.

Спасибо тебе

1 Ответов

Рейтинг:
2

Michael_Davies

создание отчетов проще всего в самом access, поскольку он предоставляет шаблоны, но вот простой пример использования OLEDB в VB .Net 2010 для открытия и чтения базы данных access, соединяющей две таблицы вместе.

пример-база данных для французского клиента, поэтому имена на французском языке, я только что создал форму с тетбоксом на ней с полосами прокрутки и многострочным набором true, но вы можете обрабатывать данные так, как вам нравится.





вы можете получить доступ к полям либо по имени, либо по индексу столбца (на основе нуля). 


поставьте импорт System.Data.Oledb Для в верхней части класса


        Использование conn в качестве нового OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\DOWNLOAD\GESTION.mdb")


            Использование cmd в качестве новой OleDbCommand("SELECT Produits.*,Fournisseurs.Вилль из Produits слева присоединяется к Fournisseurs на Fournisseurs.NomFournisseur=produits.Fournisseur", соед)


                Dim rd как OleDbDataReader


                Попробуй

                    Коннектикут.Открыть()


                    rd = cmd.Метода executereader


                    Делайте, пока РД.читать

                        TextBox1.Text += rd(1) + " : "+ rd("Ville") + vbCrLf


                        Приложение.Функция doevents()

                    Петля


                    РД.Рядом()


                Поймать ex как исключение

                    MsgBox("не удается получить доступ к БД." + vbCrLf + vbCrLf + ex.сообщение)

                Конец Попытки


                Коннектикут.Закрывать()

            Конец Использования

        Конец Использования