|
DB:MS-SQL2000
포럼 글을 찾아보고 아래와 같이 코딩을 했습니다.
컴파일할때 오류 발생하지 않습니다.
실행하면 오류가 발생하더군요
제가 잘못 코딩 한거 같은데 개념이 없어서 문제 해결이 힘드네요
많은 분들의 조언 부탁드립니다.
감사합니다.
AnsiString sql;
TParam *Param;
TBlobStream *Stream1;
TBlobField * pField;
pField->LoadFromFile(OpenPictureDialog1->FileName);
Stream1 = new TBlobStream(pField, bmRead);
Query1->Close();
Query1->SQL->Clear();
sql="INSERT INTO imagetab(img_name,img_file,writedate) ";
sql+="values(";
sql+="'"+Edit1->Text.Trim()+"',";
sql+=":Pic,";
sql+="getdate())";
Query1->SQL->Add(sql);
Param=Query1->Params->ParamByName("Pic");
Param->LoadFromStream(Stream1, ftBlob);
Query1->ExecSQL();
|