Очистка таблицы

[CORBA]

Никак не получается очистить таблицу. Я уже не знаю чё компилятору то надо. Пробывал так :
1)

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

Do While Adodc1.Recordset.EOF = False
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Loop

Выдаёт ошибку мол это обновление влияет на много записей.
и так

2)

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

Adodc1.RecordSource = "delete * from Table"

так не ругается, но толком и ничего не делает, иногда текущую запись может удалить.

3) удалить и создать заново таблицу не думаю пока, что это рационально

Скажите, что вы думаете по этому поводу.

ЗЫ
таблица Access

[Konst_One]

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

Dim cn as ADODB.Connection

...
cn.Execute "DELETE FROM Table1"
...

[CORBA]

опять ругается 91 ошибкой:
Object variable or With Block variable not set

Моё знание английского не располагает это перевести

[Ennor]

опять ругается 91 ошибкой:
Object variable or With Block variable not set

Моё знание английского не располагает это перевести

В таком случае лучше начать самообразование именно с последнего пункта. Ну или книжки по басику почитать, в которых, может, написано, что иногда переменные мало задекларировать, их еще и правильно инициализировать нужно..

[Info_m.be_free]

И не забывать апдейтить базы, а то некоторые и с образованием забывают...

[CORBA]

делаю попытки самообразоваться, но когда создаёшь лёгкую лабуду, там таких подводных камней не встречаешь. Ладно вот мой код может кому пригодится, топорный, но работает.

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

Dim cn As New ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\test.mdb;Persist Security Info=False"
cn.Execute "DELETE FROM Tabl1"
cn.Close
Adodc2.Refresh

[Konst_One]

уже лучше, но нет пределов совершенству