baran_2005
چهارشنبه 09 اردیبهشت 1388, 10:18 صبح
سلام
من مي خوام برنامه اي بنويسم كه زماني كه با وب سايت ارتباط برقرار مي كند اطلاعات بانك را بخواند و در صورت تغيير در بانك خود تغييرات را اعمال كند .
من با استفاده از كد زير بانك را كه به صورت xml است مي خوانم
procedure TForm1.Button1Click(Sender: TObject);
var InternetFile,LocalFile: string;
begin
InternetFile:=edit1.text;
LocalFile:=edit2.text;
if GetInetFile(InternetFile,LocalFile)=True then
ShowMessage('download')
else
ShowMessage('Can not download the updated files');
end;
و براي تبديل xml به بانك از كد زير استفاده مي كنم
ADOTable1.SaveToFile('C:\test.xml', pfXML);
و (به طور خلاصه و كلي) با دستورات زير تغييرات را اعمال مي كنم
adoQuery1.append ;
if Exsists( ADOQuery1.SQL.Add(' select a From Table1 Where a <= 2'))
else
ADOQuery1.SQL.Add('insert into table1 (a) values (2) ');
ADOQuery1.SQL.Add('ALTER TABLE table1 add a1 char(10) ');
adoQuery1.Post ;
Except
Showmessage('') ;
end;
اما نميخواهم اين كار را پس از دريافت بانك انجام بدهم و مي خواهم اين كار را زماني كه به اينترنت وصل هستم با ارتباط مستقيم با بانك اين عمل انجام شود.
لطفا دوستان در اين زمينه به من كمك كنند .:متفکر:
من مي خوام برنامه اي بنويسم كه زماني كه با وب سايت ارتباط برقرار مي كند اطلاعات بانك را بخواند و در صورت تغيير در بانك خود تغييرات را اعمال كند .
من با استفاده از كد زير بانك را كه به صورت xml است مي خوانم
procedure TForm1.Button1Click(Sender: TObject);
var InternetFile,LocalFile: string;
begin
InternetFile:=edit1.text;
LocalFile:=edit2.text;
if GetInetFile(InternetFile,LocalFile)=True then
ShowMessage('download')
else
ShowMessage('Can not download the updated files');
end;
و براي تبديل xml به بانك از كد زير استفاده مي كنم
ADOTable1.SaveToFile('C:\test.xml', pfXML);
و (به طور خلاصه و كلي) با دستورات زير تغييرات را اعمال مي كنم
adoQuery1.append ;
if Exsists( ADOQuery1.SQL.Add(' select a From Table1 Where a <= 2'))
else
ADOQuery1.SQL.Add('insert into table1 (a) values (2) ');
ADOQuery1.SQL.Add('ALTER TABLE table1 add a1 char(10) ');
adoQuery1.Post ;
Except
Showmessage('') ;
end;
اما نميخواهم اين كار را پس از دريافت بانك انجام بدهم و مي خواهم اين كار را زماني كه به اينترنت وصل هستم با ارتباط مستقيم با بانك اين عمل انجام شود.
لطفا دوستان در اين زمينه به من كمك كنند .:متفکر: