добавление в таблицу данных.код внутри / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / добавление в таблицу данных.код внутри

20 сообщений из 20, страница 1 из 1

добавление в таблицу данных.код внутри

#37928535

ola_ya_22

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub Добавить_Click()
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set c = Me.[ПолеСоСписком41]
Set s = Me.[ПолеСоСписком39]
rs.Open "SELECT * FROM [европа_масла]", cnn, adOpenKeyset, adLockOptimistic

Do While s <> c
s = DateAdd(dateinterval.Month, 1, s)
rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Спот] = Me.[ПолеСоСписком32]
rs![Период_поставки] = s
Loop
If rs![Период_поставки] <> "" Then rs.Update
 
End Sub

нужно при вводе данных в форму 2-х дат к примеру 01.02.2005 и 01.04.2005
чтобы в таблицу добавлялись 3 строчки:
товартекущая датастрана-производительбазис поставкистоимостьспотпериод поставкимасло23.08.2012китайfob457.3спотфевраль 2005масло23.08.2012китайfob457.3март 2005масло23.08.2012китайfob457.3апрель 2005

Модератор: Учимся использовать тэги оформления кода и таблиц - FAQ

...

Рейтинг:

0 / 0

23.08.2012, 18:05

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37928551

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

ola_ya_22,

И? и? Вопрос-то где?

...

Рейтинг:

0 / 0

23.08.2012, 18:14

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37928567

qwerty112

Гость

Модератор: Учимся использовать тэги оформления кода и таблиц - FAQ

эту, извините, "клаву", уже пора банить за теги
http://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=962111&msg=13003125
http://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=962111&msg=13037673
http://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=959658&msg=12966902
это только в последних 2-х темах ...

имхо

...

Рейтинг:

0 / 0

23.08.2012, 18:22

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929081

ola_ya_22

Гость

AndreTM,
подскажите, пожалуйста, в чем ошибка?
не работает, пишет про несовместность типов.

...

Рейтинг:

0 / 0

24.08.2012, 11:35

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929089

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ola_ya_22не работает, пишет про несовместность типов.нам предстоит догадаться, на какой строке возникает ошибка????

Например тут

Код: vbnet

1.
2.
3.

Set s = Me.[ПолеСоСписком39]
...
DateAdd(dateinterval.Month, 1, s)

переменной s присваивается объект, а потом она используется вместо даты DateAdd

...

Рейтинг:

0 / 0

24.08.2012, 11:42

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929096

ola_ya_22

Гость

Shocker.Pro,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Private Sub Добавить_Click()
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set c = Me.[ПолеСоСписком41]
Set s = Me.[ПолеСоСписком39]
rs.Open "SELECT * FROM [европа_масла]", cnn, adOpenKeyset, adLockOptimistic

Do While s <> c
[color=red]s = DateAdd(dateinterval.Month, 1, s)[/color]rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Спот] = Me.[ПолеСоСписком32]
rs![Период_поставки] = s
Loop
If rs![Период_поставки] <> "" Then rs.Update
 
End Sub

ошибка красным выделена

...

Рейтинг:

0 / 0

24.08.2012, 11:46

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929098

ola_ya_22

Гость

Shocker.Pro,

s = DateAdd(dateinterval.Month, 1, s) - вот на эту строчку ругается

...

Рейтинг:

0 / 0

24.08.2012, 11:48

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929100

ola_ya_22

Гость

говорит:необходим объект.....

...

Рейтинг:

0 / 0

24.08.2012, 11:48

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929105

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ola_ya_22ошибка красным выделена

FAQ по оформлению кода - почитайте уже в конце-концов.

ola_ya_22s = DateAdd(dateinterval.Month, 1, s) - вот на эту строчку ругается
А что такое dateinterval?

Начните-ка опять же с FAQ

...

Рейтинг:

0 / 0

24.08.2012, 11:52

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929152

ola_ya_22

Гость

Shocker.Pro,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub Добавить_Click()
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set c = Me.[ПолеСоСписком41]
Set s = Me.[ПолеСоСписком39]
rs.Open "SELECT * FROM [европа_масла]", cnn, adOpenKeyset, adLockOptimistic

Do While s <> c
[color=red]s = DateAdd("m", 1, s)[/color]
rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Спот] = Me.[ПолеСоСписком32]
rs![Период_поставки] = s
Loop
If rs![Период_поставки] <> "" Then rs.Update
 
End Sub

исправила.теперь ошибки нет.access зависает после запуска процедуры(((((

...

Рейтинг:

0 / 0

24.08.2012, 12:14

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929197

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

значит никогда не срабатывает условие s = c

...

Рейтинг:

0 / 0

24.08.2012, 12:39

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929280

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.

rs![Период_поставки] = s

rs.Update

Loop
'If rs![Период_поставки] <> "" Then rs.Update

...

Рейтинг:

0 / 0

24.08.2012, 13:18

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929320

ola_ya_22

Гость

Konst_One,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Private Sub Добавить_Click()
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set c = Me.[ПолеСоСписком41]
Set s = Me.[ПолеСоСписком39]
rs.Open "SELECT * FROM [европа_масла]", cnn, adOpenKeyset, adLockOptimistic

Do While s <> c
s = DateAdd("m", 1, s)
rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Спот] = Me.[ПолеСоСписком32]
rs![Период_поставки] = s
rs.Update
Loop
End Sub

такая же история(((access виснет((((

...

Рейтинг:

0 / 0

24.08.2012, 13:39

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929344

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

так разберитесь со своим циклом, если не понятно что происходит добавьте отладку

Код: vbnet

1.
2.
3.
4.
5.

...
Do While s <> c
s = DateAdd("m", 1, s)
Debug.Print s
...

...

Рейтинг:

0 / 0

24.08.2012, 13:53

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929357

qwerty112

Гость

ola_ya_22Konst_One,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Private Sub Добавить_Click()
dim s as date, c as date
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
'Set c = Me.[ПолеСоСписком41] ' << нужен НЕ объект, а значение
c = Me.[ПолеСоСписком41]
'Set s = Me.[ПолеСоСписком39] ' << нужен НЕ объект, а значение
s = Me.[ПолеСоСписком39]
rs.Open "SELECT * FROM [европа_масла]", cnn, adOpenKeyset, adLockOptimistic

'Do While s <> c ' << так не будет последнего периода
Do While s <= c
s = DateAdd("m", 1, s)
rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Спот] = Me.[ПолеСоСписком32]
rs![Период_поставки] = format(s, "mmmm yyyy")
rs.Update
Loop
End Sub

такая же история(((access виснет((((

...

Рейтинг:

0 / 0

24.08.2012, 14:00

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929398

ola_ya_22

Гость

была проблема с форматами дат.
разобралась, большое всем спасибо.

...

Рейтинг:

0 / 0

24.08.2012, 14:23

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37929888

stwom

Участник

Сообщения: 610

Рейтинг: 0 / 0

ola_ya_22была проблема с форматами дат.
разобралась, большое всем спасибо.имхо-имхохо
лучше вернуться на ветку Акса

...

Рейтинг:

0 / 0

24.08.2012, 21:23

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37931690

ola_ya_22

Гость

а как можно сделать
чтобы в таблице
товар текущая дата страна-производитель базис поставки стоимость спот период поставки масло 23.08.2012 китай fob 457.3 спот февраль 2005 масло 23.08.2012 китай fob 457.3 март 2005 масло 23.08.2012 китай fob 457.3 апрель 2005

спот ставился автоматом у самого "раннего" месяца.

...

Рейтинг:

0 / 0

27.08.2012, 13:33

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37931846

ola_ya_22

Гость

ola_ya_22,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.

Option Compare Database

Private Sub Добавить_Click()
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set c = Me.[ПолеСоСписком41]
Set s = Me.[ПолеСоСписком39]
x = 0
rs.Open "SELECT * FROM [европа_масла_1]", cnn, adOpenKeyset, adLockOptimistic

If Format(s, "yyyymmdd") <= Format(c, "yyyymmdd") And Me.[Поле25] <> Empty Then
z = s
Do While Format(s, "yyyymmdd") <= Format(c, "yyyymmdd")
rs.AddNew
rs![Название_товара] = Me.[Поле37]
rs![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs![Страна_производитель] = Me.[ПолеСоСписком5]
rs![Базис_поставки] = Me.[ПолеСоСписком7]
rs![Стоимость_EUR] = Me.[Поле25]
rs![Период_поставки] = Format(s, "mmm. yyyy")
If rs![Период_поставки] = Format(z, "mmm. yyyy") Then rs![Спот] = "Спот"
s = DateAdd("m", 1, s)
rs.Update
Loop
Else: MsgBox "Проверьте корректность введения периода поставки и цены EUR"
End If

Set rs1 = New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set c = Me.[ПолеСоСписком45]
Set s = Me.[ПолеСоСписком43]

rs1.Open "SELECT * FROM [европа_масла_1]", cnn1, adOpenKeyset, adLockOptimistic

If Format(s, "yyyymmdd") <= Format(c, "yyyymmdd") And Me.[Поле49] <> Empty Then
Do While Format(s, "yyyymmdd") <= Format(c, "yyyymmdd")
rs1.AddNew
rs1![Название_товара] = Me.[Поле37]
rs1![Дата] = Format(Me.[Поле3], "yyyymmdd")
rs1![Страна_производитель] = Me.[ПолеСоСписком5]
rs1![Базис_поставки] = Me.[ПолеСоСписком7]
rs1![Стоимость_EUR] = Me.[Поле49]
rs1![Период_поставки] = Format(s, "mmm. yyyy")
s = DateAdd("m", 1, s)
If rs1![Период_поставки] < Format(z, "mmm. yyyy") Then rs1![Спот] = "Спот"
rs![Спот]=empty
end if
rs1.Update
Loop
Else: MsgBox "Проверьте корректность введения периода поставки и цены EUR"
End If

End Sub

При добавлении спот почему-то не затирается, если начало второго периода меньше((((
подскажите пожалуйста как исправить

...

Рейтинг:

0 / 0

27.08.2012, 14:29

| Ответить | Цитировать | Написать

добавление в таблицу данных.код внутри

#37932021

ola_ya_22

Гость

на форме есть несколько полей, которые должны попасть в таблицу.
к примеру есть 3 поля со значениями
мама мыла раму
папа читал газету

и есть таблица с полями:
кто что действие

нужно чтобы получилось
кто что действиемама мыла рамупапа читал газету

как такой вот переход организовать?
(попыталась объяснить что не знаю как сделать)

...

Рейтинг:

0 / 0

27.08.2012, 15:48

| Ответить | Цитировать | Написать

20 сообщений из 20, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / добавление в таблицу данных.код внутри

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37929398&tid=2157481]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	45ms
get topic data:	9ms
get forum data:	2ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	292ms

total:	434ms