|
|
|
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, у меня все ра работает, только добавляется в последний рекордсет данные из моей формы, которые только что ввел, что сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2004, 12:03:44 |
|
||
|
list box
|
|||
|---|---|---|---|
|
#18+
Поставлю вопрос по другому... есть 2 таблицы взаимосвязанные... мне нужно чтоб из одной таблицы (первой, главной) взять несколько значений из строки и передать их во вторую таблицу (внутреннюю) при помощи лист бокса хотелось бы чтоб можно выбирать какую именно строку читать и передавать из нее данные ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.11.2004, 08:18:23 |
|
||
|
list box
|
|||
|---|---|---|---|
|
#18+
В VB Есть специальные Лист бокс DataList может использование его буте прошел. поскольку он специально придуман для работы с бозой данных для его нормально работы нужно использовать DataEnvironment. Работать прошел и удобней. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.11.2004, 10:58:41 |
|
||
|
|

start [/forum/topic.php?desktop=1&fid=60&tid=2168598]: |
0ms |
get settings: |
5ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
42ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 205ms |
| total: | 336ms |

| 0 / 0 |
