Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / добавление в таблицу данных.код внутри / 20 сообщений из 20, страница 1 из 1
23.08.2012, 18:05
    #37928535
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.
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:14
    #37928551
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
ola_ya_22,

И? и? Вопрос-то где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2012, 18:22
    #37928567
qwerty112
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
| Ответить | Цитировать | Написать  
24.08.2012, 11:35
    #37929081
ola_ya_22
ola_ya_22
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
AndreTM,
подскажите, пожалуйста, в чем ошибка?
не работает, пишет про несовместность типов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 11:42
    #37929089
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
ola_ya_22не работает, пишет про несовместность типов.нам предстоит догадаться, на какой строке возникает ошибка????

Например тут
Код: vbnet
1.
2.
3.
Set s = Me.[ПолеСоСписком39]
...
DateAdd(dateinterval.Month, 1, s)


переменной s присваивается объект, а потом она используется вместо даты DateAdd
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 11:46
    #37929096
ola_ya_22
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:48
    #37929098
ola_ya_22
ola_ya_22
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
Shocker.Pro,

s = DateAdd(dateinterval.Month, 1, s) - вот на эту строчку ругается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 11:48
    #37929100
ola_ya_22
ola_ya_22
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
говорит:необходим объект.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 11:52
    #37929105
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
 
ola_ya_22ошибка красным выделена

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


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

Начните-ка опять же с FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 12:14
    #37929152
ola_ya_22
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:39
    #37929197
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
значит никогда не срабатывает условие s = c
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 13:18
    #37929280
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
Код: vbnet
1.
2.
3.
4.
5.
6.
rs![Период_поставки] = s

rs.Update

Loop
'If rs![Период_поставки] <> "" Then rs.Update
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 13:39
    #37929320
ola_ya_22
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:53
    #37929344
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
так разберитесь со своим циклом, если не понятно что происходит добавьте отладку

Код: vbnet
1.
2.
3.
4.
5.
...
Do While s <> c
s = DateAdd("m", 1, s)
Debug.Print s
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 14:00
    #37929357
qwerty112
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:23
    #37929398
ola_ya_22
ola_ya_22
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
была проблема с форматами дат.
разобралась, большое всем спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2012, 21:23
    #37929888
stwom
stwom
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
ola_ya_22была проблема с форматами дат.
разобралась, большое всем спасибо.имхо-имхохо
лучше вернуться на ветку Акса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2012, 13:33
    #37931690
ola_ya_22
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, 14:29
    #37931846
ola_ya_22
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, 15:48
    #37932021
ola_ya_22
ola_ya_22
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
добавление в таблицу данных.код внутри
на форме есть несколько полей, которые должны попасть в таблицу.
к примеру есть 3 поля со значениями
мама мыла раму
папа читал газету

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

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

как такой вот переход организовать?
(попыталась объяснить что не знаю как сделать)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / добавление в таблицу данных.код внутри / 20 сообщений из 20, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 442ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157481]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 309ms
total:  442ms
x
x
Закрыть


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