БД

[nikemike]

Вот есть комбо в нее заносятся данные при загрузки формы из БД таким кодом

Код: Выделить всё

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("Путь к БД")
Set rs = db.OpenRecordset("Таблица")

Do While Not rs.EOF
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Loop


и есть две кнопочки +(Добавить) -(удалить) Так вот для + я код написал

Код: Выделить всё

txt1 = Combo1.Text
Combo1.AddItem txt1
Data2.DatabaseName = "Путь"
Data2.RecordSource = "Таблица"
Data2.Refresh
Data2.Recordset.AddNew
Data2.Recordset.Fields(0) = Combo1.Text
Data2.Recordset.Update

Теперь вопрос, а как быть с - Я идиот! Убейте меня, кто-нибудь!

[Prickly]

А как же

Код: Выделить всё

Data2.Recordset.Delete

[nikemike]

а как найти строку если в комбо их много и дернуть из базы ту которую надо

[nikemike]

а как найти строку если в комбо их много и дернуть из базы ту которую надо

[Al Khamid]

<Пропаганда здорового образа жизни>

[CORBA]

а как найти строку если в комбо их много и дернуть из базы ту которую надо

SQL запросом наверное

[nikemike]

Д нет я сам ответ нашол если кому надо? :

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("Путь к БД")
Set rs = db.OpenRecordset("Таблица")
Do While Not rs1.EOF
If Combo1.ListIndex = rs.Fields(0) Then
rs.Delete
Exit Do
End If
rs.MoveNext
rs.Update
Loop

[gjghjc]

2 nikemike Послушай совета..... используй ItemData, потому как если ты в комбо или листбоксе отсортируешь данные то твоя прога будет удалять не то что нужно. Я на эти грабли наступал и пока понял в чем была проблема чуть мозгой не подвинулся.... Просто в самом начале я поставил у Листбокса Sorted в TRUE. Так что будет твой код работать до тех пор пока ты не применишь сортировку.....