Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

in Visual Basic [Access]

Vladimir ;) © (2002-03-26 14:48:00)
Кто мне может конкретно объяснить что значит начертание типа:

Microsoft OLE DB Provider for ODBC Drivers error "80004005"

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

И как с этим бороться ???

aus (2002-03-26 22:26:00) [1]
Для подключения к базе:
<% set Connection = Server.CreateObject("ADODB.COnnection") Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DATA\db1.mdb;" Connection.Open %>

Думаю, можно разобраться, хотя могут удалить ветку, не Делфи вроде... )))
Но зато БД!

Vladimir ;) (2002-03-26 21:52:00) [2]
А на что ее исправить ??? (Сорри, я в этом не очень рублю ...)

aus (2002-03-26 21:28:00) [3]
а остальное проверил, что я написал?
Работа через ODBCb и Jet имеет различия, как раз здесь и может быть ошибка. Исправь все таки строку подключения, наверняка поможет.

Vladimir ;) (2002-03-26 17:47:00) [4]
НЕ, не ... Он имеено делает Break на строке "cn.Execute(sSQL)"

aus (2002-03-26 15:30:00) [5]
Насколько я понял, ошибка как раз там и появляется

в твоем файле, а где он?
INSERT INTO replies- может быть ты пытаешься в запрос данные вставить?
Если база Access, попробуй подключаться через Jet.

Vladimir ;) (2002-03-26 15:16:00) [6]
Может кто-нить поможет ?

Vladimir ;) (2002-03-26 14:58:00) [7]
И еще: когда это выполняется в Персонале Веб Сервере, то работает отлично, а ошибку выдает уже с сайта ....

Vladimir ;) (2002-03-26 14:56:00) [8]
Дело такое:

4096 Then content = Left(content, 4096)

If type_db = "Access" Then
sSQL = "INSERT INTO messages (nuser, email, subject, content, msgdate) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & "","" & Now() & "")"
End If

If type_db = "SQLServer" Then
sSQL = "INSERT INTO messages (nuser, email, subject, content) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & "")"
End If

cn.Execute(sSQL)

%>

Сообщение успешно добавлено !

К сообщениям

4096 Then content = Left(content, 4096)
If type_db = "Access" Then
sSQL = "INSERT INTO replies (nuser, email, subject, content, msgdate, parent_id) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & "","" & Now() & ""," & _
pid & ")"
End If
If type_db = "SQLServer" Then
sSQL = "INSERT INTO replies (nuser, email, subject, content, parent_id) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & ""," & _
pid & ")"
End If

cn.Execute(sSQL)
%>

Ответ успешно добавлен !

Назад

Nikolay M. (2002-03-26 14:53:00) [9]
Хоть бы написал, что делаешь, текст выполняемого запроса, если есть и вообще...
Но по присутствию слов "updateable query" рискну высказать мнение, что пытаешься редактировать результат, возвращаемый read only запросом.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »