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

Visual Basic базы данных

 
 

В предыдущем шаге мы подключали Базу автоматом (т.е. без кода), но у этого способа есть 1 недостаток, его нельзя переносить на другие компы. Вот случай был, я сделал программу Халявный инет (шаг 43), только пароль введенный одним ламером, который живет надо мной, записывался не в файл, а в базу. А я в начале даже и не подумал о том, что базу надо подключать не автоматом, а в ручную (автоматом не понятно почему глючит, но т.к. я по базам не спец, я не знаю (если ты знаешь, то пиши)). Ну, у ламера мы пароль узнали, только с помощью OpenPass и дискеты. Что - то я отвлекся, сделай такой же проект (как предыдущий), но ни чего не настраивай, а впиши код:

Private Sub Form_Load() 'При запуске формы:
Data1.DatabaseName = "db1.mdb" 'Ищем базу в той же дирке где и сама программа
Data1.RecordSource = "Таблица1" 'Имя таблицы, для доступа к ней
Text1.DataField = "Поле1" 'В Text1 из Поле1 будет загружаться текст
Text2.DataField = "Поле2" 'В Text2 из Поле2 будет загружаться текст
End Sub

Как ты наверное заметил (Или нет?), что мы у текстового поля не указали свойство DataSource, это единственное свойство которое нельзя указать программно. Ну раз нельзя, так нельзя - тогда поставь его в окне свойств = Data1.

Исходник - Здесь


Есть вопросы? Спроси на нашем форуме!!
алексей [13.12.2011 18:35]

я кажеться знаю чё нельзя автоматом поставить
когда ты ставищь автоматом
Data1.DatabaseName = "путь & db1.mdb"' а на другом компе нету базы данно по такому пути
а если в ручною
Data1.DatabaseName = "db1.mdb"' он же ищет бд возле проги

Николай [17.12.2011 14:32]

Это полезно обмениваться информацией. Я написал программу врачу, к которому хожу выписывать рецепты, а она после установки
на её комп не находит базу xxxx.mbd , спасибо
ребята вы мне помогли найти в чем причина!

алексей [17.12.2011 19:55]

да не за что .
я уже почть всю бд разобрал! :)

geranazavr555 [07.04.2012 15:25]

Для того чтобы база работала на др. компе надо носить её с собой, и в коде написать Data1.DatabaseName = app.path + "\DataBaseName.mdb"

ALLEX88 [29.03.2013 18:42]

geranazavr555 - 'это первое что я сделал, зная эту комбинацию с app.path, но выдается ошибка, типа он не может определить местоположение или что-то вроде того. А вручную все нормально.

alex13sh300 [29.03.2013 20:16]

странно

ALLEX88 [29.03.2013 23:48]

Ага)) Так-то ништяк штука)) В делфи все мудренее делается))



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




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