Доступ к Access mdb из програмы для копирования данных

[Mckoy]

Доброго,

С базами данных кроме как через ADODC не работал, так что сильно не пинайте .

Есть задача: в прогарамме вводится значение, которое соответстует номеру карточной игры. Этот номер хранится в базе данных. Этому номеру соответствует также еще текстовое поле в БД с раскладом игры. Как соединиться с БД, чтобы она по этому номеру скопировала всю эту текстовую информацию. Вот собственно и задача. Как ее проще реализовать?

Все мнения и коментарии приветствуются

[Костя]

А какая база?

[Mckoy]

База Аксес 2000 *.mdb.

[Костя]

dim rs as new adodb.recordset
rs.open "select * from имя базы where условия", ну и т.д. А потом работаешь со свойствами объекта rs. Поищи по форуму, здесь подобных премерв море.

[Mckoy]

Хорошо, полазил по сайту нашел простой пример - с него решил и начать. На форме у меня текс_бокс и кнопка. В бокс ввожу номер раздачи, далее обработка кнопки

Код: Выделить всё

Private Sub CmdBase_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim GN As Double

GN = CDbl(HHText.Text)
db.Open "Microsoft Access Driver (*.mdb);DBQ=C:\Temp\hhdb.mdb"
Set rs = db.Execute("Select * from hand_histories WHere game_number=GN")
End Sub


Запускаю, ввожу номер раздачи, жму кнопку - выходит ошибка
(Бл...... - че за байда такая елементарный рисунок в сообщение негде вставить/загрузить ) "Источник данных не найден и не указан драйвер, используемый по умолчанию".

В чем подвох...

[snov]

Хорошо, полазил по сайту нашел простой пример - с него решил и начать. На форме у меня текс_бокс и кнопка. В бокс ввожу номер раздачи, далее обработка кнопки

Код: Выделить всё

Private Sub CmdBase_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim GN As Double

GN = CDbl(HHText.Text)
db.Open "Microsoft Access Driver (*.mdb);DBQ=C:\Temp\hhdb.mdb"
Set rs = db.Execute("Select * from hand_histories WHere game_number=GN")
End Sub


Запускаю, ввожу номер раздачи, жму кнопку - выходит ошибка
(Бл...... - че за байда такая елементарный рисунок в сообщение негде вставить/загрузить ) "Источник данных не найден и не указан драйвер, используемый по умолчанию".

В чем подвох...

У тебя синтаксическая ошибка. Пиши так

Код: Выделить всё

Set rs=db.Execute("Select * From hand_histories Where game_number=" & GN)

[Mckoy]

Исправил, все равно эта же ошибка. В дебаге указывает строку db.Open ...

[Sedge]

Строка подключения:

Код: Выделить всё

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<путь к базе>;Persist Security Info=False


[Mckoy]

Звиняюсь за банальность, Sedge, но в каком месте кода я это должен вписать? Строка в прямом виде выдает ошибку. Провайдер - это что переменная получается?
Может чего не понимаю, но АДОДБ Эктив Иксов я еще не втыкал на форму.

[Konst_One]

Код: Выделить всё

Dim sConnectionString as String

sConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\hhdb.mdb;Persist Security Info=False;User ID=Admin;"

db.Open sConnectionString

....



[Mckoy]

Спасибо, теперь ошибка изчезла . Дальше я, правильно или нет решил под корректировать запрос

Код: Выделить всё

Set rs = db.Execute("Select hand_histories.hand_history * From hand_histories Where game_number=" & GN)


Выдал ошибку "Ошибка синтаксиса (пропущен оператор в выражении запроса) "Select hand_histories.hand_history *" "
Наверно опять не так что-то сделал... Я так понял что записи с нужной раздачей я вытащил. Как забрать данные из него с самой раздачей (колонка в таблице называется hand_history)?

[Rainbow]

Почитал бы книжечку что ль сначала какую...

"Select * ..." в запросе означает, что хочешь выбрать все столбцы в таблице
Если ты хочешь выбрать только столбец hand_history, так так и пиши:
"Select hand_history From hand_histories Where game_number=" & GN

[Mckoy]

Не серчайте на меня. Да, ленив, жаден, местами туп. Характер скрытный/общительный. Вы мне очень помогли. Спасибо.
Не откажите в еще одном вопросе - как мне данные этого поля присвоить обычной текстовой переменной? Вроде все свойства/методы перебрал объекта рекордсет - не могу понять. Ну не доходит до меня. А в статьях только и пишут как использовать компонент дата и через него все красиво получается.

Респект

[Mckoy]

Спасибо братцы, всем респект - чего хотел то сделал, конечно же с вашей помощью.
Удачи