各位大大好，我是一位剛接觸Delphi的學生，目前有一個作業，我搞不懂 Sql與Delphi的應用，我的作業是用com寫出新增、刪除、修改、更新的功能 然後在另一個程式中連我寫出來的com，請問我該如何著手 我目前只會寫下面這樣子的功能 Com: procedure Ttest.Method1(const ip, database, table: WideString; var dataaray: OleVariant); var ttsql:string; begin ttsql:=' select * from ' table; ADOConnection1.Connected:=true; ADODataSet1.CommandText:=ttsql; ADODataSet1.Open; ADODataSet1.Close; ttsql:='insert into ' table ' values (''' dataaray[0] ''',''' dataaray[1] ''',''' dataaray[2] ''')'; showmessage(ttsql); ADOCommand1.CommandText:=ttsql; ADOCommand1.Execute; end; 連結Com的程式 procedure TForm1.Button1Click(Sender: TObject); var v:variant; begin v:=vararraycreate([0,2],varvariant); v[0]:=edit1.Text; v[1]:=edit2.Text; v[2]:=edit3.Text; SocketConnection1.Connected:=true; SocketConnection1.AppServer.method1('219.81.233.247','abc','a1',v); showmessage('OK'); end; 請各位大哥教我基礎的如何寫，謝謝

最簡單的方式是透過元件來設定,建議你去看delphi的書 例如delphi徹底研究,看Midas,TRemoteDataModule的部分 或者從版上搜尋這類的議題.... 星期一,星期二...星期日..星期一..無窮迴圈@@

------
星期一,二...無窮迴圈＠＠

添加：

 ttsql:='insert into '   table   ' values ('''  dataaray[0]   ''','''   dataaray[1]   ''','''   dataaray[2]   ''')'; 

删除：ttsql:='delete from 表名 where 条件 更改：ttsql:='update 表名 set 需要更改的字段名=需要更改的值 where 条件 ADOCommand1.CommandText:=ttsql; ADOCommand1.Execute;