как через ADO вызвать хрпроцедуру, которая пишет в BLOB (oracle) [D6]
Rust1970 © (2002-12-17 15:26:00)
Привет.
Есть хранимая процедура...
PROCEDURE BB
( p_bl IN blob )
IS
BEGIN
insert into aa (bl1) values (p_bl);
commit;
END;
как из Delphi вызвать правильно вызвать эту процедуру через
ADO.
Вот код на Васике:
Dim c As ADODB.Connection
Private Sub Command1_Click()
Dim r As New Recordset
Dim ar() As Byte
Dim v As Variant
ar = StrConv("ABCDEFG", vbFromUnicode)
v = ar
r.Open "aa", c, adOpenStatic, adLockOptimistic, adCmdTable
r.AddNew
r.Fields("bl1") = v
r.Update
End Sub
Private Sub Form_Load()
Set c = New Connection
c.Provider = "OraOLEDB.Oracle.1"
c.Open "data source=alex", "realt", "realt"
End Sub
Как это же сделать на Delphi?
rust2002 (2002-12-17 15:37:00) [1]
Извините, господа!!!
Отманул меня программер злобный....ни тот бейсиковый код
подсунул...:Ж)))
исходный текст следует читать так:
!!!!
Привет.
Есть хранимая процедура...
PROCEDURE BB
( p_bl IN blob )
IS
BEGIN
insert into aa (bl1) values (p_bl);
commit;
END;
как из Delphi вызвать правильно вызвать эту процедуру через
ADO.
Наверх 
ЧАТ |
Орешник |
|
