Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Connect 2 Acess Добавлено: 28.01.09 20:31  

Автор вопроса:  Ученик
Знаю щас мой вопрос прозвучит глупо и смешно, раньше я бы и сам посмеялся над таким сообщением, но вот забыл всё и давно не пользовался а тут вот захотелось вспомнить и не как.... раньше вроде както делал !
Вобщем вот ссуть:
Хочу соединиться с БД в Acess 2003 при помощи тока кода в ВБ 6.0 без использования всяких там Adodc Data1 на форме простые textbox и кнопки
Простая программка для просмотра данных из файла ,мдб и кнопки навигации типа "вперед назад первая последняя"
Напишите пожайлуста код для соединения с бд и навигацией по кнопкам command(1-4) и в textbox отображались бы данные занесённые в таблицу Ацесс

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Ученик



Вопросов: 6
Ответов: 22
  Профиль | | #1 Добавлено: 01.02.09 03:20
блин пока сам не додумаешься никто не подскажет ... а я всего лишь просил такой кодик:

  1.  
  2. Dim db1 As DAO.Database 'Объявляем базу данных
  3. Dim rs1 As DAO.Recordset 'Объявляем рекордсет
  4. Dim sSQL1 As String 'Переменная, где будет размещён SQL запрос
  5.  
  6. Private Sub MovingR() 'процедура обновления текст полей
  7. On Error Resume Next
  8. txt1.Text = rs1.Fields("Поле1")
  9. txt2.Text = rs1.Fields("Поле2")
  10. End Sub
  11.  
  12.  
  13. Private Sub Form_Load()
  14. Dim bd_source1 As String
  15. bd_source1 = App.Path & "\Base\Base.mdb"
  16. Set db1 = DAO.OpenDatabase(bd_source1) 'открываем бд
  17. sSQL1 = "SELECT * FROM tblZagadka;" 'Запрос
  18. Set rs1 = db1.OpenRecordset(sSQL1) ' Открываем Рекордсет
  19. rs1.MoveNext     ' необходимость чтоб фрейм правильно показал
  20. rs1.MovePrevious ' количество записей а не 0 из 1
  21.  
  22. MovingR
  23. End Sub
  24.  
  25. rs1.movnext
  26. rs1.movelast

Ответить

Номер ответа: 2
Автор ответа:
 Ученик



Вопросов: 6
Ответов: 22
  Профиль | | #2 Добавлено: 01.02.09 03:24
а все блин такие умный ужас... а некто не помог...

Ответить

Номер ответа: 3
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #3 		Добавлено: 01.02.09 10:35
На сайте есть раздел "Статьи". Там куча статей про базы данных, в т.ч. и моя статья про DAO, с примерами.
Прежде чем спрашивать - имеет смысл сначала поискать ответ самому.

Ответить

Номер ответа: 4
Автор ответа:
 Ученик



Вопросов: 6
Ответов: 22
  Профиль | | #4 Добавлено: 01.02.09 20:08
Павел
понимаете Павелш, мне не важно было будет это ДАО или АДО либо иной какой способ мне нужно просто было отвязаться от некоторых элементов управления ... в частности АДОДЦ вот... в статьях лазил но ничего не нашёл.. и если бы была статья например "Соединение и навигация по БД в Ацесс" то было бы все окейно.. а так я долго лазил по сайтам ... нашел один там всё подробно написанно было вот ссылка на него: просто и понятно.. конечно бес примера зато то что надо http://hiprog.com/index.php?option=com_content&task=view&id=288&Itemid=38

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам