Добавление записей в базу данных через код в VB6

[dima81]

Пытаюсь добавить в базу данных новую запись через такой код:

SQL_String = "Insert Into Ремонты " & _
" (ДатаВРемонт, ДатаИзРемонта " & _
" Values (" '" & CDate(CombDate1.Text) & "' , ' ' )"

cn1.Execute SQL_String

Все хорошо, но только выводится ошибка
"Несоответствие типов данных в условии отбора"

Она выводится потому, что не может добавить пустую запись (в столбец ДатаИзРемонта) в базу данных, так как у меня в базе данных ДатаВРемонт, ДатаИзРемонта - тип Дата/Время. С CombDate1 (для столбца ДатаВРемонт) я приминил функцию CDate, так как этот столбец предусматривает запись. А как же сделать так, чтобы в стобец ДатаИзРемонта была введена пустая запись.? Как видите вариант с двумя апострафами вызывает ошибку.

[VVitafresh]

Это зависит от структуры БД.

Если разрешить для этого поля значение NULL, то можно поле в INSERT'е вообще не указывать. Можно еще сделать для этого поля значение по умолчанию, например: '1900-01-01' и тоже не указывать поле в INSERT'е, значение автоматически появится в новой записи.

Если структуру таблицы менять нельзя, можно просто присваивать условное значение '1900-01-01', которое будет означать "реальное значение неизвестно"

[HandKot]

Она выводится потому, что не может добавить пустую запись (в столбец ДатаИзРемонта) в базу данных

так укажите этот параметр не как пустую строку а как Null, если конечно, как сказали выше VVitafresh, в поле можно хранить Null

SQL_String = "Insert Into Ремонты " & _
" (ДатаВРемонт, ДатаИзРемонта) " & _
" Values (" '" & CDate(CombDate1.Text) & "' , Null )"

[tarrac]

Сталкивался.

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

SQL_String = "Insert Into Ремонты " & _
" (ДатаВРемонт, ДатаИзРемонта) " & _
" Values (" #" & Replace(CDate(CombDate1.Text),".","/") & "# , Null )"

Просто в акцессе в качестве разделителя стоит "/", и в запросе дату надо заключать в "#"

[dima81]

HandKot, этот код работает

SQL_String = "Insert Into Ремонты " & _
" (ДатаВРемонт, ДатаИзРемонта) " & _
" Values (" '" & CDate(CombDate1.Text) & "' , Null )"

Самое интересное, что вариант, предложенный tarrac, тоже работает:

SQL_String = "Insert Into Ремонты " & _
" (ДатаВРемонт, ДатаИзРемонта) " & _
" Values (" #" & Replace(CDate(CombDate1.Text),".","/") & "# , Null )"

VVitafresh,

Если разрешить для этого поля значение NULL, то можно поле в INSERT'е вообще не указывать.

Проверил, и этот способ тоже работает. Буду выбирать тот, который больше понравиться

Спасибо всем!

[Andrey Fedorov]

Проверил, и этот способ тоже работает. Буду выбирать тот, который больше понравиться

Посмотри в Help-e про CreateParameter Method.
Пример там есть.