Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отображение столбца таблицы в Combobox(VB 6.0) / 5 сообщений из 5, страница 1 из 1
07.05.2011, 18:46
    #37250882
epifreezz
epifreezz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отображение столбца таблицы в Combobox(VB 6.0)
В общем есть БД на Mysql
Там 2 таблицы films(f_id,name,g_id) и genre(g_id,g_name)

На форме ADO контрол и DataGrid(в нём отображается табл.films)

Как сделать Combobox в котором будет отображется столбец g_name.?
И как добавить порядковый номер(gr_id из таблицы genre), выбранного элемента из Combobox в таблицу films(в столбец g_id)?

Кусок кода

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim sql As String
sql = "select * from films ORDER BY f_id"

With ADO
.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=mydb;User=root; Password=123;Option=3;"
.RecordSource = sql
.Refresh

Set DataGrid1.DataSource = ADO
    DataGrid1.Columns( 0 ).Width =  0 
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.05.2011, 00:58
    #37252078
epifreezz
epifreezz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отображение столбца таблицы в Combobox(VB 6.0)
как отобразить столбец таблицы в combobox я разобрался

если что вот код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public cn As ADODB.connection
Public rs As ADODB.Recordset

Private Sub Command1_Click()
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select g_name from genre"

rs.Open sql, cn, adOpenStatic
Combobox.Clear
Do While Not rs.EOF
     Combobox.AddItem rs("g_name").Value
     rs.MoveNext
Loop
rs.Close
End Sub

осталось только
как добавить порядковый номер(gr_id из таблицы genre), выбранного элемента из Combobox в таблицу films(в столбец g_id)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.05.2011, 01:17
    #37252086
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отображение столбца таблицы в Combobox(VB 6.0)
epifreezzкак добавить порядковый номер(gr_id из таблицы genre), выбранного элемента из Combobox в таблицу films(в столбец g_id)?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
' в предположении, что поле films.f_id - автоинкремент
Dim s$
s = _
  "INSERT INTO films(name,g_id)" & _
  " SELECT '" & переменная/поле_с_названием_фильма & "' As Название,g_id" & _
  " FROM genre" & _
  " WHERE g_name='" & Me.Combo & "'"
cn.Execute s
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2011, 04:26
    #37256170
epifreezz
epifreezz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отображение столбца таблицы в Combobox(VB 6.0)
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2011, 04:36
    #37256171
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отображение столбца таблицы в Combobox(VB 6.0)
а можно часть строки в Комбобоксе выкрасить, например красным цветом? как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отображение столбца таблицы в Combobox(VB 6.0) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 133ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158728]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 31ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 11ms
total:  133ms
x
x
Закрыть


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