MS SQL + TADOStoredProc

← →
Oleg The First © (2003-07-16 17:48) [0]

Значит так... "MS SQL 2000 Server" у меня ставился только на "Окна 2000 Сервер". И тут я прикупил книжечку, с которой в комплекте идёт компактит в 120 версией супер перерезанной "MS SQL 2000 Server", и как раз эта её версия ставится благополучно и на "Окна 2000 Проф".
У меня Delphi 7.
Вот вчера решил чёто простенькое слабать...

вот таблица

CREATE TABLE [tbFiles] (
[IP] [TIP] NOT NULL ,
[Path] [TPATH] NOT NULL ,
[FileName] [TFileName] NOT NULL ,
[Ext] [TExtension] NOT NULL ,
[Size] [TSize] NOT NULL ,
[CrDate] [datetime] NULL - сначала было smalldatetime
) ON [PRIMARY]
GO

первые поля это грубо говоря текстовые и чилвовые значения последнее - Дата.

терерь код процедуры.. тоже просто до беспредела:

create procedure add_file
@IP TIP,
@PATH TPath,
@Name TFileName,
@Ext TExtension,
@Size TSize,
@CrDate datetime - тут тоже было раньше smalldatetime
AS
INSERT INTO tbFiles values (@IP, @PATH, @Name, @Ext, @Size, @CrDate)

GO

теперь код на Делфи

spAddFile.Parameters.ParamByName("@IP").Value := ExtractFileDrive(FullName);
spAddFile.Parameters.ParamByName("@Path").Value := ExtractFilePath(FullName);
spAddFile.Parameters.ParamByName("@Name").Value := ExtractFileName(FullName);
spAddFile.Parameters.ParamByName("@Ext").Value := ExtractFileExt(FullName);
spAddFile.Parameters.ParamByName("@Size").Value := Size;
spAddFile.Parameters.ParamByName("@CrDate").Value := Date;
spAddFile.ExecProc;

он не работает - матерится на
spAddFile.Parameters.ParamByName("@CrDate").Value := Date;

Матюк: Optional feature not implemented 8)
-----------------

вот код который не матерится:

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add("insert into tbFiles values (:IP,:PATH,:NAME,:EXT,:Size,"""+DateToStr(Date)+""")");
ADOQuery1.Parameters.ParamByName("IP").Value := _IP;
ADOQuery1.Parameters.ParamByName("Path").Value := _PATH;
ADOQuery1.Parameters.ParamByName("Name").Value := _NAME;
ADOQuery1.Parameters.ParamByName("Ext").Value := _EXT;
ADOQuery1.Parameters.ParamByName("Size").Value := Size;
ADOQuery1.ExecSQL;

как видим тут дату вставил в текст запроса

итак.... что же это такое?
1. слишком урезанная версия MS SQL?
2. может ODBC дрова старые?
3. может один из очередных глюков Delphi 7?

Подскажите поскорее как с этим бороться... зарание спасибо

← →
ZrenBy © (2003-07-16 18:02) [1]

http://www.sql.ru/forum/actualthread.aspx?bid=1&tid=8795

2 ZrenBy
сыпасибо... разобрался

MS SQL + TADOStoredProc Найти похожие ветки