[Access 2000 *.mdb] Помогиче как можно скорее написать наVBA

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Арчи
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 23.05.2003 (Пт) 16:46

[Access 2000 *.mdb] Помогиче как можно скорее написать наVBA

Сообщение Арчи » 23.05.2003 (Пт) 16:57

Нуно создать форму с кнопкой в ACCESS а не каком либо другом приложеии.
Помогите мне написать форму с кнопкой при нажатии на которую будет выполняться заранее созданный ЗАПРОС и результат этгого запроса нуно записать в текстовой файл потипу:
ИМЯ|ФАМИЛИЯ|Дата рождения
ИМЯ|ФАМИЛИЯ|Дата рождения
ИМЯ|ФАМИЛИЯ|Дата рождения
ИМЯ|ФАМИЛИЯ|Дата рождения

Вот есть примерно готовый скрипт для Access.
Но он не совсем правильно написан.
inc.html
содержит текст:
<include>

inc1.html - куда запишется результат записи.


Код: Выделить всё
Dim a As Recordset
Dim w As Recordset
Dim dbname As String
Dim fsrc As String
Dim fdisk As String
Dim s As String
fsrc = "c:\inc.html"
fdisk = "c:\inc2.html"

Open fsrc For Input As #1
Open fdisk For Output As #2
If stinc = "<include>" Then dbname = "db"
Set w = a.Openrecordset(dbname, dbopendynaset)
Do While Not EOF(1)
Input #1, s
If InStr(1, s, stinc) = 0 Then
Print #2, s
Else
w.MoveFirst

While Not w.EOF
If stinc = "<include>" Then
Print #2, "<br>| "; w.id; " | "; w.Name; " | "; w.price; " |<br>"
w.MoveNext
End If
Wend

End If
Loop
w.Close
a.Close
Close #1
Close #2


Очень прошу. Помогите. Могу даже если все быстро будет готово дать красивый номер iCQ. Пишите мне в ICQ 551189 если что не ясно.
Нуно выполгить до суботнего вечера. Желательно сегоня чтоб все было готово. БД можно создать для примера любую.

mvandrew
Обычный пользователь
Обычный пользователь
 
Сообщения: 96
Зарегистрирован: 21.09.2002 (Сб) 11:29

Сообщение mvandrew » 27.05.2003 (Вт) 18:13

Арчи, я так понимаю, что ты просишь за тебя программу написать. А это уже работа. А спасибо в карман не положишь! :)


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 211

    TopList  
cron