Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проблемы ...

Тема: Проблемы с синтаксисом

15.06.2007 21:07:54

Alan

3 сообщения

Тема: Проблемы с синтаксисом

Взял для примера ваши работы, но ниодна у меня неработает, может это быть из-за того что у меня отлицный Access? Я пользуюсь руской версией.

Например:

Public Function funCreateTable(strTable As String) As Boolean
Dim dbs As Database, tdf As TableDef
On Error GoTo 999 'Íàçíà÷àåì ïåðåõîä ïî îøèáêå
funCreateTable = False 'Âîçâðàùàåì ðåçóëüòàò ïðè îøèáêå

If funVerifyTable(strTable) = False Then 'Ïðîâåðÿåì òàáëèöó
Set dbs = appAccess.CurrentDb 'Íàõîäèì áàçó äàííûõ
Set tdf = dbs.CreateTableDef(strTable) 'Ñîçäàåì òàáëèöó
tdf.Fields.Append tdf.CreateField("Ïóíêò", dbLong) 'Ñîçäàåì 1 ïîëå
dbs.TableDefs.Append tdf 'Äîáàâëÿåì òàáëèöó
funCreateFields strTable 'Ñîçäàåì ïîëÿ
funCreateTable = True 'Âîçâðàùàåì ðåçóëüòàò
End If

Exit Function
999:
MsgBox Err.Description, vbCritical, "Ñîçäàíèå òàáëèöû" 'Ñîîáùàåì êðàñèâî îá îøèáêå
Err.Clear 'Î÷èùàåì ïîòîê îò îøèáîê
End Function

Я открываю эту функцию через кнопку

Private Sub Êíîïêà0_Click()
On Error GoTo Err_Êíîïêà0_Click

funCreateTable (True)

Exit_Êíîïêà0_Click:
Exit Sub

Err_Êíîïêà0_Click:
MsgBox Err.Description
Resume Exit_Êíîïêà0_Click

End Sub

После проигрывания возникает ошибка в "Dim dbs As Database, tdf As TableDef" c текстом "User-defined type not difined" Вообщем я непонимаю в чем дело!

Есть еще один вопрос, по выборке данных из таблицы. К примеру есть таблица в которой 2 поля id и text. Надо выбрать текст из записи с id = 4 и результат выборки поместить в переменную "a". Как это сделать ????

P.S. Общие вопросы по модулям
Автор: Alan от 14.01.2004 23:06:33 Источник ...

15.06.2007 21:07:54

All

4316 сообщения

RE: Проблемы с синтаксисом

1. Установите ссылку на DAO (см. Tools-references), Dim dbs As DAO.Database
2. a = DLookup("[text]", "[table]", "[id]=4")

P.S. Общие вопросы по модулям
Автор: Admin от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проблемы ...

Поиск

Список форумов

Начало | Forums