ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ
5 сообщений из 5, страница 1 из 1
ПОМОГИТЕ
    #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, 11:53
| Ответить | Цитировать | Написать  
ПОМОГИТЕ
    #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
04.09.2004, 22:48
| Ответить | Цитировать | Написать  
ПОМОГИТЕ
    #32681158
Дурак
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дурак
Участник
Интересный код...

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

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

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

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

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


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

Вместо "ничем и незаполняете" следует читать "ни чем и не заполняете"...
...
Рейтинг: 0 / 0
06.09.2004, 12:15
| Ответить | Цитировать | Написать  
ПОМОГИТЕ
    #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
06.09.2004, 13:12
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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