Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ / 5 сообщений из 5, страница 1 из 1
04.09.2004, 11:53:58
    #32680293
Boss1
Boss1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ
Есть база Аксес
обращение к базе
Set dbDatabase = dbWorkspace.OpenDatabase("D:\test\BAZA\BAZA.MDB")
Set dbTable = dbDatabase.OpenRecordset("roz", dbOpenTable)
добавляю запись в таблицу
Private Sub NewRecord()
dbTable.AddNew
dbTable!mec = " "
dbTable!ET = " "
dbTable!EP = " "
dbTable!GT = " "
dbTable!GP = " "
dbTable!ER = " "
dbTable!GR = " "
dbTable.Update
dbTable.MoveLast
End Sub
но поля все остаются пустыми а число записей с каждым добавлением возростает помогите кто может
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2004, 22:48:26
    #32680471
Andres 1
Andres 1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ
Проверь, записи действительно пустые или в них содержатся пробелы, которые ты добавляешь. Лучше всего, сделай так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub NewRecord()
dbTable.AddNew
dbTable!mec = "1"
dbTable!ET = "2"
dbTable!EP = "3"
dbTable!GT = "4"
dbTable!GP = "5"
dbTable!ER = "Не пусто"
dbTable!GR = "НУ НИКАК НЕ ПУСТО!"
dbTable.Update
 'dbTable.MoveLast '- а зачем? Совершенно не требуется при добавлении 
 'записи куда-то гулять по рекордсету 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.09.2004, 12:14:17
    #32681158
Дурак
Дурак
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ
Интересный код...

Человек стремиться к сокращению: знак "!"

И вместе с тем не западло десять раз набирать dbTable

Есть такая конструкция
With .... End With

Удобная вещь, честное слово :-)...

автор
...но поля все остаются пустыми...


Дык, судя по коду, Вы их ничем и незаполняете, кроме, возможно, пробелов :-)...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.09.2004, 12:15:40
    #32681163
Дурак
Дурак
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ
Две оЧепятки :-)...

Вместо "ничем и незаполняете" следует читать "ни чем и не заполняете"...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.09.2004, 13:12:41
    #32681286
Валерий_26RUS
Валерий_26RUS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ
Boss1Есть база Аксес
обращение к базе
Set dbDatabase = dbWorkspace.OpenDatabase("D:\test\BAZA\BAZA.MDB")
Set dbTable = dbDatabase.OpenRecordset("roz", dbOpenTable)
добавляю запись в таблицу
Private Sub NewRecord()
dbTable.AddNew
dbTable!mec = " "
dbTable!ET = " "
dbTable!EP = " "
dbTable!GT = " "
dbTable!GP = " "
dbTable!ER = " "
dbTable!GR = " "
dbTable.Update
dbTable.MoveLast
End Sub
но поля все остаются пустыми а число записей с каждым добавлением возростает помогите кто может

Так они у тебя и будут пустые, ты же туда ничего не кладёшь... есле бы ты делал вот так:
bd.fields("имя поля").value="значение или текст или что хочешь"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 292ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2168921]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 7ms
get forum data:
 1ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 201ms
total:  292ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]