ثبت استرم در sql2012

[khoshblagh]

با سلام خدمت دوستان
من با کد زیر سعی در ثبت یک استرم در جدول مینمایم. ولی مشکل نوع رشته با نوع استرم دارد . در صورت امکان راهنمایی بفرمائید.متشکرم

 BlobStream := TMemoryStream.Create;

 BlobStream.Position := 0;

cmdUpdateData.CommandText:='INSERT INTO tblPerson('+

    ',SalMah,Aks)values('+

    QuotedStr(strSalMah)+','+

    (BlobStream)+')';

 cmdUpdateData.CommandType :=cmdText;

 cmdUpdateData.Execute ;

[یوسف زالی]

سلام.
معمولا برای ثبت استریم در جدول یا از Bulk استفاده می شه (در صورتی که استریم یک فایل باشه و مسیرش در دسترس اس کیو ال باشه) یا این که باید به فرم یک پارامتر این کار رو کنید، می تونید یک ADOQuery روی فرم بگذارید و در کوئری مربوطه پارامتر ست کنید و در دلفی از این پارامتر استفاده کنید.

  ADOQuery1.Parameters.ParamByName('@YourParam').Loa  dFromStream(aStream, ftBlob);

[khoshblagh]

با سلام خدمت استاد ارجمند
از Bulk به علت در مسیر اس کیو ال نبودن استفاده نمی کنم و در عوض از روش دوم از برنامه استفادم میکنم. ولی به عللی میخواهم از adoCommand به روشی که در پست 1 ارائه شد استفاده نمایم. آیا اینکار شدنی است؟ متشکرم

[یوسف زالی]

برای اینسرت مستقیم باید چیزی شبیه به این داشته باشید:

INSERT INTO Tbl

VALUES ( 0xFFD8FFE000104A46494600010101006000600000FFFE003C  43524541544F523A2067 )

یعنی دیتای خودتون رو به فرم هگز در بیارید، بعد اون رو به عنوان دیتای ورودی ذخیره کنید.
البته مشخصه که با این روش به ازای هر بایت، شما باید دو بایت برای نوشتن استریم در کوئری مصرف کنید.

[hp1361]

با سلام خدمت دوستان
من با کد زیر سعی در ثبت یک استرم در جدول مینمایم. ولی مشکل نوع رشته با نوع استرم دارد . در صورت امکان راهنمایی بفرمائید.متشکرم

 BlobStream := TMemoryStream.Create;

 BlobStream.Position := 0;

cmdUpdateData.CommandText:='INSERT INTO tblPerson('+

    ',SalMah,Aks)values('+

    QuotedStr(strSalMah)+','+

    (BlobStream)+')';

 cmdUpdateData.CommandType :=cmdText;

 cmdUpdateData.Execute ;

سلام

با استفاده از FireDAC به این شکل میتونید ذخیره کرده و دوباره بخونید:

procedure TForm1.btn_1Click(Sender: TObject);

var

  StrStream: TStringStream;

begin

  FDConnection1.Open();

  try

    StrStream := TStringStream.Create('weqweqweqweqweqwe');

    with FDQry_1 do

    begin

      Close;

      SQL.Clear;;

      SQL.Add('INSERT INTO Table_2(Blb) Values(:Blb)');

      Params.ParamByName('Blb').AsStream := StrStream;

      Execute();

    end;

  finally

    StrStream.Free;

  end;

end;

procedure TForm1.btn_2Click(Sender: TObject);

begin

  FDConnection1.Open();

  with FDQry_1 do

  begin

    Close;

    SQL.Clear;;

    SQL.Add('SELECT * FROM Table_2');

    Open();

    ShowMessage(FieldByName('Blb').AsString);

  end;

end;

موفق باشیم

[یوسف زالی]

البته امیدوارم مطالب بالا رو خونده باشید و پست داده باشید!