Страница: 1 |
Ненашел свой вопрос, поэтому пишу снова. Кто-то подсказал что таблицу можно почистить так. If Form1.Adodc1.Recordset.RecordCount <> 0 Then key column information is insufficient or incorect. Too many row were affected by Update. Что делать ? Мне нужно почистить таблицу. Как в adodc можно делать SQL запросы ?
Почистить таблицу можно гораздо проще: У объекта Connection есть метод Execute который выполняет любой запрос к твоей базе. В твоем случае подойдет "Delete * From [Your Table]" или с условием "Delete * From [Your Table] Where [Your Data] = xxxx" Помоему этот метод есть и у Adodc но точно не помню Надеюсь что помог Странно, но я тоже не нашел своего ответа, поэтому отвечу еще раз. Такая ошибка может возникать когда пытаешься удалить запись в главной таблице на которую есть ссылки в подчиненной и стоит контроль целостности. Удалить зиписи с помощью запроса, можно следующим образом: Dim cnnADO As ADODB.Connection Все получилось ! StrSQL = "DELETE * FROM Таблица where login='fugar'" А так к сожелению не работает Может кто знает как выше приведенный пример, переделать под этот запрос. Было бы вообще здорово ! Form1.Adodc1.Recordset.Delete Form1.Adodc1.Recordset.Update 'добав эту строчку Form1.Adodc1.Recordset.MoveNext мне кажется ошибка в строке StrSQL = "DELETE * FROM Таблица where login='fugar'" попробуй исправь на StrSQL = "DELETE FROM Таблица where login='fugar';" (перед from звездочки нет!) Страница: 1 |
Вопрос: Очистка базы
Добавлено: 04.07.03 03:12
Автор вопроса:
admsasha | Web-сайт:
Form1.Adodc1.Recordset.MoveFirst
Do Until Form1.Adodc1.Recordset.EOF
Form1.Adodc1.Recordset.Delete
Form1.Adodc1.Recordset.MoveNext
Loop
End If
Но через раз выдается ошибка:
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа: Romeo
ICQ: 200700724
Вопросов: 7
Ответов: 29
Профиль | | #1
Добавлено: 04.07.03 03:50
Номер ответа: 2
Автор ответа: admsasha
ICQ: 234002454
Вопросов: 56
Ответов: 69
Web-сайт:
Профиль | | #2
Добавлено: 04.07.03 04:32
Что-то в adodc я его ненашел
Номер ответа: 3
Автор ответа: Legik
ICQ: 292375033
Вопросов: 3
Ответов: 72
Профиль | | #3
Добавлено: 04.07.03 09:19
Dim StrSQL As String
Set cnnADO = New ADODB.Connection
cnnADO.Open Adodc1.ConnectionString
StrSQL = "DELETE * FROM ТвояТаблица"
cnnADO.Execute StrSQL, , adCmdText
cnnADO.Close
Adodc1.Refresh
Номер ответа: 4
Автор ответа: admsasha
ICQ: 234002454
Вопросов: 56
Ответов: 69
Web-сайт:
Профиль | | #4
Добавлено: 05.07.03 04:38
Номер ответа: 5
Автор ответа: Piterskoy
ICQ: 173008782
Вопросов: 29
Ответов: 23
Профиль | | #5
Добавлено: 10.07.03 10:26
Номер ответа: 6
Автор ответа: Banzoy
Вопросов: 5
Ответов: 8
Профиль | | #6
Добавлено: 10.07.03 14:25