「求助」Delphi 與SQL語法 |
尚未結案
|
nickcgh6
一般會員 發表:37 回覆:11 積分:9 註冊:2004-07-23 發送簡訊給我 |
各位大大好,我是一位剛接觸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;
請各位大哥教我基礎的如何寫,謝謝
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |