rahro
شنبه 12 بهمن 1392, 18:35 عصر
دوستان عزیز و محترم
بنده از طریق کامپوننت MSTableData مربوط به SDAC اینکارو انجام دادم بدون مشکل انجام میشه تنها اشکال اینجاست که با تاخیر نوع Table Type Name رو شناسایی میکنه
حال اگر دوستان را حل بهتری سراغ دارند ما را بی نصیب نگذارند
دوستان کد ذیل رو جهت بررسی متخصصان قرار میدام تا بنده را جهت راه حلی بهتر یاری نمایند
[ TableData.Open;
VTable.First;
while Not VTable.Eof do
begin
TableData.Insert;
for I := 0 to VTable.FieldCount-1 do
TableData.Fields[I].Value:=VTable.Fields[I].Value;
TableData.Post;
VTable.Next;
end;
//////////////////////////////////////////////
//Prepare;
CreateProcCall('MyDatabase.dbo.InsUptToMyTable');
//CreateProcCall('MyDatabase.dbo.InsUptByCoding;1');
Params.ParamByName('XTblType').AsTable :=TableData.Table;
Params.ParamByName('XYear').AsWord :=EYearList.Value;
بنده از طریق کامپوننت MSTableData مربوط به SDAC اینکارو انجام دادم بدون مشکل انجام میشه تنها اشکال اینجاست که با تاخیر نوع Table Type Name رو شناسایی میکنه
حال اگر دوستان را حل بهتری سراغ دارند ما را بی نصیب نگذارند
دوستان کد ذیل رو جهت بررسی متخصصان قرار میدام تا بنده را جهت راه حلی بهتر یاری نمایند
[ TableData.Open;
VTable.First;
while Not VTable.Eof do
begin
TableData.Insert;
for I := 0 to VTable.FieldCount-1 do
TableData.Fields[I].Value:=VTable.Fields[I].Value;
TableData.Post;
VTable.Next;
end;
//////////////////////////////////////////////
//Prepare;
CreateProcCall('MyDatabase.dbo.InsUptToMyTable');
//CreateProcCall('MyDatabase.dbo.InsUptByCoding;1');
Params.ParamByName('XTblType').AsTable :=TableData.Table;
Params.ParamByName('XYear').AsWord :=EYearList.Value;