Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / list box / 4 сообщений из 4, страница 1 из 1
12.11.2004, 12:03:44
    #32779251
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
list box
здрасти.
у меня такая проблема... вот код

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, у меня все ра работает, только добавляется в последний рекордсет данные из моей формы, которые только что ввел, что сделать?
...
Рейтинг: 0 / 0
15.11.2004, 08:18:23
    #32781539
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
list box
Поставлю вопрос по другому...
есть 2 таблицы взаимосвязанные... мне нужно чтоб из одной таблицы (первой, главной) взять несколько значений из строки и передать их во вторую таблицу (внутреннюю) при помощи лист бокса хотелось бы чтоб можно выбирать какую именно строку читать и передавать из нее данные
...
Рейтинг: 0 / 0
16.11.2004, 10:58:41
    #32783683
Valerik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
list box
В VB Есть специальные Лист бокс DataList может использование его буте прошел. поскольку он специально придуман для работы с бозой данных для его нормально работы нужно использовать DataEnvironment. Работать прошел и удобней.
...
Рейтинг: 0 / 0
16.11.2004, 14:34:36
    #32784464
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
list box
уже все переделал, зделали вместо лист бокса, лист вью, у него возможностей побольше...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / list box / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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