Как удалить запись из БД?

[Nikolka]

А если более точно - вот говорят, что в БД мона строки привязать к цифрам и мол, удаляешь строку, а все остальные цифры не смещаются. Т.е.:

(до удаления - записи)
1
2
3
4
5

(после удаления в простом режиме)
1
2
3
4

(после удаления как мне нужно)
1
2
3
5

Или хотябы как вааще удалить запись.

[Cyrax]

вопрос, конечно, не в том форуме... ну да ладно.
лично я не буду давать готовых решений, так как автор вопроса, судя по самому вопросу, в вопросе совершенно не разбирается (извините за... ну вы поняли за что ).
я лучше дам ему пару-тройку ссылок для изучения:
Глава 16. Основы баз данных
Глава 17. Управление данными

[Алексей К.]

Можно удалить через запрос (пример с DAO для access).

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

set db=opendatabase("c:\путь_к_базе\имя_базы.mdb",false)
запрос="delete from имя_таблицы where имя_поля=4;"
set rs=db.openrecordset(запрос)
rs.close
db.close

[alibek]

Зачем DELETE в рекордсет? db.Execute "delete ..."

[Алексей К.]

to Alibek: согласен , твой вариант рациональнее.

[Nikolka]

Я чесна признаюсь, что в БД полный (не не ПЭ) ламер. Основы работы через Data Control знаю и пока мне этого хватало...

[Nikolka]

А как это можно сделать через Data? А то ета, в ссылке - ADO. А мне это сейчас никак не вписывается... Обычная Data, обычная Jet...

если можно.

[VAC]

Все очень просто...

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

dim SQL

sub main()

SQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=твоя_база.mdb;Persist Security Info=False"

Recod_for_delete = 4

if DeleteRecord(Recod_for_delete) then
msgbox "Запрос выполнен успешно. id=" & Recod_for_delete
else
msgbox "Ошибка при выполнении запроса. id=" & Recod_for_delete
end if

end sub

function DeleteRecord(id) as boolean
on error goto err1
Set con = CreateObject("ADODB.Connection")
  con.CommandTimeout = 10
  con.Open SQL


con.execute "delete from твоя_таблица where (поле_счетчик = " & id & ")"


con.Close
Set con = Nothing
DeleteRecord = true
exit function
err1:
DeleteRecord = false

end function