Программирование
Веб программирование

Примеры работы с Access

 
 

Работа с базами данных - это очень широкая и глубокая область программирования.

Я лишь приведу несколько примеров по работе с Access...

Программный доступ к каждой ячейке таблицы через DataSet:

Допустим имеется база данных (Access), с созданной таблицей (Таблица1):

 В которой есть 3 колонки - Код, Поле1, Поле2.

Необходимо вывести данные из нужной ячейки в TextBox, для этого рамещаем на форме объекты:

TextBox, BindingSource, Button. Далее у свойства BindingSource (DataSource) - выбираем Add project Data Source...>>DataBase>>Next>>DataSet>>Next>>New Connection>>Browse...>>Далее выбираете нужную (Заранее созданную) базу данных>>ok>>Next>>Далее выскакивает окно (Если выбрать значение "Да" то выбранная вами база данных будет скопированна в папку с программой и дальнейшая работа будет вестись с ней, если "Нет" то копии небудет, и работа ведётся с выбранной вами базой..., для удобства выбераем значение "Нет")>>Ставим галочку напротив "Tables">>Finish. 

 Теперь у свойства BindingSource (DataMember) - выбираем "Таблица1"

Далее пишем код Button:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = (Приложение_Microsoft_Office_AccessDataSet.Tables("Таблица1").Rows(0)(2))
End Sub

 Где (0) - строка (В Access нумерация строк начинается с нуля 0-1-2 и.т.д) т.е. первая строка = 0

(2) - столбец (Второй столбец - Поле1)

Иначе можно написать (0)("Поле1") 

Запись значения из TextBox в нужную ячейку Access:

 На форме TextBox, Button.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim z As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:1Приложение Microsoft Office Access.mdb") 'Устанавливаем соединение с базой данных.
        z.Open() 'Открываем соединение.
        Dim t As New OleDb.OleDbCommand("UPDATE [Таблица1] SET [Поле1] = ' " & " " & TextBox1.Text & " '  WHERE [Код] = 1", z) 'Иначе можно было записать так  Dim t As New OleDb.OleDbCommand("UPDATE [Таблица1] SET [Поле1] = 'Нужное значение'  WHERE [Код] = 1", z) 
        t.ExecuteNonQuery()
        z.Close() 'Закрываем соединение
    End Sub

Удаление нужной строки:

Dim t As New OleDb.OleDbCommand("DELETE FROM [Таблица1] WHERE [Код] = 1", z) 

Вот несколько примеров по работе с Access, успехов!!! 


Есть вопросы? Спроси на нашем форуме!!
Владимир [29.09.2012 13:50]

Подскажите пожалуйста, как загрузить в поле textbox данные из таблицы acces?

Razor64 [29.09.2012 15:20]
  • Владимир читайте внимательнее... Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = (Приложение
    MicrosoftOfficeAccessDataSet.Tables("Таблица1").Rows(0)(2))
    End Sub
Владимир [29.09.2012 16:07]

Razor64, спасибо за ответ!
Но,при вводе данного кода система выдает ошибку "Имя "ПриложениеMicrosoftOffice_AccessDataSet" не объявлено." Подскажите пожалуйста, как с этим быть? Если бы кто нибудь выложил исходник, было бы вообще замечательно.

Razor64 [29.09.2012 16:48]

Владимир, вы точно подключили объекты DataSource, DataSet, TableAdapter? Причина в этом. т.е. ошибка из за того что самого объекта "ПриложениеMicrosoftOffice_AccessDataSet" нет.

Razor64 [29.09.2012 18:43]

Ещё можете попробовать выбрать значение "Да" во время выбора базы данных...

Eurotriton [08.10.2012 17:25]

Спасибо! Очень помогли....

Петр [08.10.2012 20:41]

Razor64, Вы привели код для удаления строки, не подскажите код для ее добавления? Видимо вместо "delete" нужно писать другую команду?

Razor64 [08.10.2012 21:17]

Пётр, вот пример для записи новой строки:
Dim t As New OleDb.OleDbCommand(("INSERT INTO Таблица1(Поле1,Поле2,Поле3) VALUES ('А','Б','В' )", z) - Здесь создаётся новая строка и "Поле1" будет равно = "А", "Поле2" = "Б", "Поле3" = "В".

Галина [30.10.2012 14:40]

Подскажите, пожалуйста, почему не устанавливаться и соответственно не открываться соединение с базой данных (z.open()) в примере записи из текстового поля в поле Access

Razor64 [30.10.2012 16:46]

Галина, какая ошибка?
1)Проверьте правильность подключения базы данных(ACCESS).
2)Проверьте правильность написания пути к базе...

Галина [31.10.2012 11:05]

Ошибка: невозможно найти устанавливаемый ISAM
Команда подключения к базе записана так:
Dim z As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:dbman1.mdb")
Файл базы данных dbman1.mdb находится на диске
C:
Синтаксических ошибок нет

Галина [31.10.2012 11:07]

Перед dbman1 стоит слеш

Галина [31.10.2012 13:11]

Нашла ошибку: Data Sourse= написала (s вместо c)

Razor64 [03.11.2012 09:06]

Рад что разобрались, если возникнут вопросы обрщайтесь, мой skype - avalon199025

Галина [12.11.2012 16:47]

Спасибо

Eurotriton [13.11.2012 09:13]

Подскажите пожалуйста, мы добавляем новую строку в бд, по полям записали значение. А теперь надо узнать какой счетчик у этой строки?
Заранее спасибо.

Razor64 [13.11.2012 19:33]

А вы самостоятельно пробовали задачу решать? Покажите ваши наработки?

Гость [29.11.2012 14:23]

подскажите как сделать отбор по первой букве фамилии и по вкладам которые нельзя пополнить?

FireDay [29.11.2012 19:24]

http://vbbook.ru/forum/viewforum.php?id=3

God-ss [30.01.2013 16:00]

Razor64 подскажи как записать и считать файлы в акссес в поле вложение??

Razor64 [19.06.2013 21:43]

Добрый день, просьба администрации удалить все мои темы, и контактную информацию.

p.s.

Любые обращения адресованные на мой email - avalon199025@yandex.com или skype - avalon199025 - БУДУТ ИГНОРИРОВАТЬСЯ!

EverybodyLies280 [20.06.2013 10:41]

Razor64, давать в этом сообщении собственную контактную информацию - идиотизм)

EverybodyLies280 [20.06.2013 11:57]

да и контактировать с администрацией нужно по-человечески)

EverybodyLies280 [20.06.2013 13:42]

и, да, Razor, не думай о слонах!)

Razor64 [20.06.2013 16:02]

EverybodyLies - во первых НЕ ТЕБЕ МЕНЯ УЧИТЬ, тебя здесь в помине не было когда я начинал, и писал эти статьи!

Во вторых я тебя не спрашивал где И ЧТО мне размещать, или нет... Так что будь добр не совать нос не в своё дело!)

Что каксается админа так я уже контактировал с ним как ТЫ ВЫРАЗИЛСЯ "ПО ЧЕЛОВЕЧЕСКИ"

Release130 [21.06.2013 07:00]

Razor64, если ты этого хочешь, я могу поговорить с Padre на счет удаление всех размещенных тобой статей и твоего профиля.

Kostrorod30 [02.07.2013 11:37]

Подскажите пожалуйста, как программно создать базу и таблицу в ней на 100 строк и 100 столбцов? Имеются ли ограничения по строкам и столбцам, если я хочу 10000 на 10000? Благодарю.

pjp07190 [03.02.2015 08:54]

Я бы мог более широко рассмотреть тему работа с БД Access в VB.Net. Но нужно, чтобы администраторы размещали статьи.

AMG38 [11.02.2017 21:24]

Подскажите, а как сделать так, чтобы пользователь мог выбирать данные из базы данных через combobox?
Например, нужно выбрать материал (их много) а у каждого материала в базе данных свое значение, например масса.
По задумке в идеале пользователь из выпадающего списка выбирает необходимый материал и производит с данными по этому материалу дальнейшие расчеты.
Подскажите пожалуйста как это реализовать?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.