Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Очистка базы Добавлено: 04.07.03 03:12  

Автор вопроса:  admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454 

Ненашел свой вопрос, поэтому пишу снова.

Кто-то подсказал что таблицу можно почистить так.

If Form1.Adodc1.Recordset.RecordCount <> 0 Then
      Form1.Adodc1.Recordset.MoveFirst
      Do Until Form1.Adodc1.Recordset.EOF
          Form1.Adodc1.Recordset.Delete
          Form1.Adodc1.Recordset.MoveNext
      Loop
 End If
  
Но через раз выдается ошибка:

key column information is insufficient or incorect. Too many row were affected by Update.

Что делать ?

Мне нужно почистить таблицу.

Как в adodc можно делать SQL запросы ?

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 Romeo



ICQ: 200700724 

Вопросов: 7
Ответов: 29
 Профиль | | #1 Добавлено: 04.07.03 03:50

Почистить таблицу можно гораздо проще:

У объекта Connection есть метод Execute который выполняет любой запрос к твоей базе. В твоем случае подойдет "Delete * From [Your Table]" или с условием "Delete * From [Your Table] Where [Your Data] = xxxx"

Помоему этот метод есть и у Adodc но точно не помню

Надеюсь что помог

Ответить

Номер ответа: 2
Автор ответа:
 admsasha



ICQ: 234002454 

Вопросов: 56
Ответов: 69
 Web-сайт: dansoft.krasnokamensk.ru
 Профиль | | #2
Добавлено: 04.07.03 04:32
Что-то в adodc я его ненашел

Ответить

Номер ответа: 3
Автор ответа:
 Legik



ICQ: 292375033 

Вопросов: 3
Ответов: 72
 Профиль | | #3 Добавлено: 04.07.03 09:19

Странно, но я тоже не нашел своего ответа, поэтому отвечу еще раз.

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

Удалить зиписи с помощью запроса, можно следующим образом:

Dim cnnADO As ADODB.Connection
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-сайт: dansoft.krasnokamensk.ru
 Профиль | | #4
Добавлено: 05.07.03 04:38

Все получилось !

 StrSQL = "DELETE * FROM Таблица where login='fugar'"

А так к сожелению не работает

Может кто знает как выше приведенный пример, переделать под этот запрос. Было бы вообще здорово !

Ответить

Номер ответа: 5
Автор ответа:
 Piterskoy



ICQ: 173008782 

Вопросов: 29
Ответов: 23
 Профиль | | #5 Добавлено: 10.07.03 10:26

Form1.Adodc1.Recordset.Delete

Form1.Adodc1.Recordset.Update 'добав эту строчку

Form1.Adodc1.Recordset.MoveNext

Ответить

Номер ответа: 6
Автор ответа:
 Banzoy



Вопросов: 5
Ответов: 8
 Профиль | | #6 Добавлено: 10.07.03 14:25

мне кажется ошибка в строке 

StrSQL = "DELETE * FROM Таблица where login='fugar'"

попробуй исправь на

 StrSQL = "DELETE FROM Таблица where login='fugar';"

(перед from звездочки нет!)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам