Запрос на изменение

[KPEATOP]

Путаюсь занести данные в таблицу базы данных, при выполнении Execute программа пишет Run-Time Error 3073(В операции должен использоваться обновляемый запрос). Как мне это сделать. Если кто подскажет, заранее спасибо

Set qdfTemp = db.CreateQueryDef("")
qdfTemp.SQL = "UPDATE arx_kwd_tnp SET Koprod=" & OP & _
",Ckin_eff=" & SKIN & " WHERE Id=" & TnpID
qdfTemp.Execute

[VVitafresh]

Попробуй так:

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


Dim sCn as String, sSQL as String
Dim Cn As ADODB.Connection

sCn = "Driver={Microsoft Access Driver (*.mdb)};" & _
        "Dbq=C:\db.mdb;Uid=Admin;Pwd=;"   'Строка подключения к БД
Set Cn = New ADODB.Connection       'Создаем новый экземпляр

Cn.CursorLocation = adUseClient     'Cursor Location (Client/Server)
Cn.Open sCn

sSQL="UPDATE ... "   'Твой запрос
Cn.Execute sSQL



[KPEATOP]

Не получилось у меня так. В самой первой строке ошибку выдает
Dim Cn As ADODB.Connection

пишет "User-defined type not defined"

[KPEATOP]

Кстати, база данных, в которую я хочу сохранить данные, не Access а ODBC

[Al Khamid]

22

[KPEATOP]

"arx_kwd_tnp" это таблица

[KPEATOP]

У меня ошибку выдает когда пишу
Dim Cn As ADODB.Connection
Как мне добавить ADO ?

[Алексей К.]

Меню проект ->Информация->ставишь галку на микрософт activeX Data...

[Sebas]

Меню проект ->Информация->ставишь галку на микрософт activeX Data...

у как, народ 6 рашен юзает....

[KPEATOP]

может кто-нибудь напишет код, как мне запрос сделать на сохранение.
Я пишу:

Set qdfTemp = db.CreateQueryDef("")
qdfTemp.SQL = "UPDATE arx_kwd_tnp SET Koprod=" & OP & _
",Ckin_eff=" & SKIN & " WHERE Id=" & TnpID
qdfTemp.Execute

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

[Konst_One]

Дорогой КРЕАТОР, какого типа у тебя поля: Koprod и Ckin_eff?
надеюсь, что сам найдешь свою ошибку

[KPEATOP]

У полей Koprod и Ckin_eff тип Long
А где ошибка то? Не вижу

[Konst_One]

почитай про CreateQueryDef, узнаешь , что запросы в базе данных Access бывают разных типов

[Konst_One]

и не забывай:

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

...
db.QueryDefs.Append qdfTemp
db.QueryDefs.Refresh
...
qdfTemp.Execute

[KPEATOP]

у меня база данных не Access а Oracle

[Sedge]

...а подробностей становилось все больше и больше...

[tarrac]

А я вот эти кодом в принципе всю работу с базами данных делаю:

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


Option Explicit

Public cn As ADODB.Connection
Public rs As New ADODB.Recordset
Public strConnect As String


Function ADODB_ConnectedJet() As Boolean
'Подключение к базе даззых
On Error GoTo er_error
'Сборка пути к базе данных
Dim strcon As String: strcon = App.Path & "\Data\Date.mdb"
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strcon & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    cn.Open
    cn.CursorLocation = adUseClient
'связывание RecordSet'а с соединением
    Set rs.ActiveConnection = cn
    ADODB_ConnectedJet = True
        Exit Function
er_error:
    ADODB_ConnectedJet = False
End Function

Function connect(strConnect As String, i As Boolean) As Boolean
On Error GoTo er_error
'занесение запроса в recordset
rs.Source = strConnect
'открытие запроса
rs.Open
'если надо вставать на 1-ю запись (для select, например) i = true
If i = True Then rs.MoveFirst
    connect = True
    Exit Function
er_error:
Dim a As Double: a = Err.Number
Select Case a
    Case 3705
        'если recordset уже открыт - закрываем его
        rs.Close
        Resume
    Case 3021
        'при rs.EOF=true - и при попытки встать на первую запись (при втором параметре функции true)
        MsgBox "Отсутствуют записи в таблице"
        connect = False
    Case Else
        'во всех остальных случаях выдать сообщение об ошибке и наш
        'SQL запрос для анализа
        MsgBox Err.Description & " " & strConnect
        connect = False
End Select
End Function

Функция connect принимает собственно SQL запрос. Вторая переменная показывает надо ли вставать на первую запись (true надо только при Select)
Может поможет...

[Konst_One]

может у тебя в настройках DSN ODBC для оракла стоит галка Только для чтения? или возможно, что у тебя нет прав на изменение данных в указанной тобой таблице на стороне оракла.

[Konst_One]

а у тебя таблица arx_kwd_tnp - это имя прилинковой таблицы оракла в Access-е ? если это имя таблицы в самом оракле, то тогда тебе надо сначала прилинковать саму таблицу или passthru запрос к ней в твою базу, а уже потом update выполнять, иначе только через прямое соединение ADO через провайдер к ораклу
и не забывай указывать схему данных для оракла иначе будет схема по-умолчанию, т.е под тем юзером, что ты входишь в оракл по данному соединению

[KPEATOP]

Счтывание данных из базы у меня идет нормально. Соединяюсь я вот так :
"ODBC;DSN=bdskw 10.1.6.5;uid=;pwd=;DATABASE=bd_skw;
А вот запись данных в базу не идет.
arx_kwd_tnp - это имя таблицы в самом оракле.
А кам это "через прямое соединение ADO через провайдер к ораклу" ?

[Konst_One]

А это так:

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

Dim cn as ADODB.Connection
Dim ConnectString as String
Dim SQL as String

ConnectString="Provider=Microsoft OLE DB Provider for Oracle;Data Source=oracleTNS;User ID=scott;Password=tiger;"

Set cn=New ADODB.Connection
cn.Open ConnectString

SQL="UPDATE MyTable SET Field1=123 WHERE ID=1"
cn.Execute SQL

[Sedge]

"В операции должен использоваться обновляемый запрос" в том числе может означать ошибка в синтаксисе запроса. Что возвращает debug.print qdfTemp.SQL?

[Konst_One]

Sedge
он пытается через акцессовский QueryDef обновить таблицу, котрая находится в оракле (в акцессе ее нет и она не прилинкована)

конечно можно сделать passthru-запрос, но тогда надо обязательно перед свойством SQL указать Connect:

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

Set qdfTemp = db.CreateQueryDef("Upd_myquery")
qdfTemp.Connect="ODBC;DSN=bdskw 10.1.6.5;uid=;pwd=;DATABASE=bd_skw;"
qdfTemp.SQL = "UPDATE arx_kwd_tnp SET Koprod=" & OP & _
",Ckin_eff=" & SKIN & " WHERE Id=" & TnpID
db.QueryDefs.Append qdfTemp
db.QueryDefs.Refresh

qdfTemp.Execute

[Konst_One]

и все равно нужно схему данных указывать:

SCOTT.arx_kwd_tnp

SCOTT - это схема данных, а у тебя вообще UID пустой, а должен быть юзер, через которого ты в оракл заходишь (это и есть схема данных для тебя)

[KPEATOP]

UID пустой, но когда я считываю данные у меня все нормально идет с таким соединением......только запись не получается

[KPEATOP]

debug.print qdfTemp.SQL возвращает
UPDATE arx_kwd_tnp SET Koprod= 2.52,Ckin_eff=-1.26,Gidr= 136.09,Kprod= 88.89,Pplast= 12.96,Pzab= 12.87,Pplast_vnk= 13.25,Pron_w= .0337,Pron_n= .0012,Kol_zam= 7,K_kor= .986 WHERE Id=1395

здесь ошибки нет, потому что на стороне Оракла проверяли этот запрос, работает

[Konst_One]

прочитай мои предыдущие посты, там я тебе предложил 2 варианта решения твоей проблемы: 1 - использовать ADO, 2 - используя Passthru Query в Access

[KPEATOP]

Через ADO я не понял как мне подключаться к базе.

ConnectString="Provider=Microsoft OLE DB Provider for Oracle;Data Source=oracleTNS;User ID=scott;Password=tiger;"

у меня подключение для чтения данных

ODBC;DSN=bdskw & _ 10.1.6.5;uid=guest_armits;pwd=armits;DATABASE=bd_skw;



так тоже не получается:

Set qdfTemp = db.CreateQueryDef("Upd_myquery")
qdfTemp.Connect="ODBC;DSN=bdskw 10.1.6.5;uid=;pwd=;DATABASE=bd_skw;"
qdfTemp.SQL = "UPDATE arx_kwd_tnp SET Koprod=" & OP & _
",Ckin_eff=" & SKIN & " WHERE Id=" & TnpID
db.QueryDefs.Append qdfTemp
db.QueryDefs.Refresh

Когда выполняется db.QueryDefs.Append qdfTemp , пишет "Invalid Operation"

[Konst_One]

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

ConnectString="Provider=Microsoft OLE DB Provider for Oracle;Data Source=bd_skw;User ID=guest_armits;Password=armits;"

только проверь свой TNS на своей машине в файле tnsnames.ora
я подставил тебе bd_skw (он может отличаться)

[KPEATOP]

с какими параметрами нужно сделать
Set gwsMainWS = CreateWorkspace("", "admin", "", dbUseODBC)
Set db = gwsMainWS.OpenDatabase("", False, False, sConnect)

чтоб база была открыта для записи ?
А то у меня постоянно пишет "База данных открыта только для чтения"