
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
12.11.2004, 12:03:44
|
|||
|---|---|---|---|
list box |
|||
|
#18+
здрасти. у меня такая проблема... вот код Private Sub Cmd_add_Click() If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And Text5.Text <> "" And Text6.Text <> "" And Text7.Text <> "" And Text8.Text <> "" And Text9.Text <> "" And Text10.Text <> "" Then rs_st_uch.AddNew rs_st_uch("tip") = "ÑÒ" rs_st_uch("n_t-ki") = Text1.Text rs_st_uch("xar") = Text2.Text rs_st_uch("X") = Text3.Text rs_st_uch("Y") = Text4.Text rs_st_uch("KL_gr") = Text5.Text rs_st_uch("KL_min") = Text6.Text rs_st_uch("KL_sek") = Text7.Text rs_st_uch("KP_gr") = Text8.Text rs_st_uch("KP_min") = Text9.Text rs_st_uch("KP_sek") = Text10.Text rs_st_uch("vizir") = List1.Text rs_st_uch("id_y") = rs_uch("id_y") rs_st_uch.Update '*************** подключение внутреннего рекордсета Set rs_spis_toch = New ADODB.Recordset Call conect Dim sql As String sql = "select * from spisok_tochek where id_s = " & rs_st_uch("id_s").Value rs_spis_toch.Open sql, cnn, adOpenDynamic, adLockOptimistic '****************** добавление записи во внутренний рекордсет" rs_spis_toch.AddNew rs_spis_toch("tip_i") = rs_st_uch("vizir") rs_spis_toch("xar_t-ki") = rs_st_uch("xar") rs_spis_toch("tip_i") = rs_st_uch("vizir") rs_spis_toch("KL_grad") = rs_st_uch("KL_gr") rs_spis_toch("KL_min") = rs_st_uch("KL_min") rs_spis_toch("KL_sek") = rs_st_uch("KL_sek") rs_spis_toch("KP_grad") = rs_st_uch("KP_gr") rs_spis_toch("KP_min") = rs_st_uch("KP_min") rs_spis_toch("KP_sek") = rs_st_uch("KP_sek") rs_spis_toch("id_s") = rs_st_uch("id_s") rs_spis_toch.Update End If Unload Me End Sub при помощи этой формы я добавляю запись в базу данных, в которой есть несколько таблиц связанных между собой по id есть листбокс, в котором присутствуют n-ное количество записей. эти записи берутся из уже открытой таблицы с данными и открытого рекордсета... при выборе одной из записей, нужно добавить данные из этого рекордсета rs_st_uch в этот rs_spis_toch, у меня все ра работает, только добавляется в последний рекордсет данные из моей формы, которые только что ввел, что сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.11.2004, 08:18:23
|
|||
|---|---|---|---|
list box |
|||
|
#18+
Поставлю вопрос по другому... есть 2 таблицы взаимосвязанные... мне нужно чтоб из одной таблицы (первой, главной) взять несколько значений из строки и передать их во вторую таблицу (внутреннюю) при помощи лист бокса хотелось бы чтоб можно выбирать какую именно строку читать и передавать из нее данные ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
16.11.2004, 10:58:41
|
|||
|---|---|---|---|
list box |
|||
|
#18+
В VB Есть специальные Лист бокс DataList может использование его буте прошел. поскольку он специально придуман для работы с бозой данных для его нормально работы нужно использовать DataEnvironment. Работать прошел и удобней. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&tablet=1&tid=2168598]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
44ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 211ms |
| total: | 330ms |

| 0 / 0 |
