Связь ComboBox и таблицы БД - VB

Узнай цену своей работы

Формулировка задачи:

Мне необходимо сделать следующее:
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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5