Связь ComboBox и таблицы БД - VB
Формулировка задачи:
Мне необходимо сделать следующее:
1.Добавить в таблицу данные спомощью ComboBox
2.Проверить если ли такие записи в таблице(если есть то не добавлять новую записи в таблицу)
1.Добавить в таблицу данные спомощью ComboBox
2.Проверить если ли такие записи в таблице(если есть то не добавлять новую записи в таблицу)
Решение задачи: «Связь ComboBox и таблицы БД»
textual
Листинг программы
SendMessage Cmbx_Lpu.hWnd, CB_SHOWDROPDOWN, <font color="darkblue"><b>1</b></font>, <font color="blue">ByVal</font> <font color="darkblue"><b>0</b></font>& Cmbx_Lpu.MousePointer = vbDefault <font color="#00AA00">'Clipboard.Clear </font> <font color="blue">Static</font> InCombo <font color="blue">As</font> <font color="blue">Boolean</font> <font color="blue">Dim</font> sql <font color="blue">As</font> <font color="blue">String</font>, CmbText <font color="blue">As</font> <font color="blue">String</font>, SelSrt <font color="blue">As</font> <font color="blue">Integer</font> <font color="blue">Set</font> rs = <font color="blue">New</font> ADODB.Recordset sql = <font color="teal">"select slpu from spr_lpu where sLPU LIKE '"</font> & Cmbx_Lpu.Text & <font color="teal">"%'"</font> SelSrt = Cmbx_Lpu.SelStart <font color="blue">If</font> InCombo <font color="blue">Then</font> <font color="blue">Exit</font> <font color="blue">Sub</font> InCombo = True CmbText = Cmbx_Lpu.Text Cmbx_Lpu.Clear Cmbx_Lpu.Text = CmbText InCombo = False Cmbx_Lpu.SelStart = SelSrt <font color="blue">If</font> Cmbx_Lpu.Text <> <font color="teal">""</font> <font color="blue">Then</font> rs.<font color="blue">Open</font> sql, Frm_connect.conn, adOpenStatic, adLockReadOnly <font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> rs.EOF Cmbx_Lpu.AddItem rs(<font color="teal">"sLPU"</font>).Value rs.MoveNext <font color="blue">Loop</font> rs.<font color="blue">Close</font> <font color="blue">End</font> <font color="blue">If</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д