ADOQuery + Memo |
尚未結案
|
TheBloodKing
一般會員 發表:8 回覆:17 積分:10 註冊:2004-07-10 發送簡訊給我 |
|
meta
中階會員 發表:3 回覆:60 積分:57 註冊:2004-06-09 發送簡訊給我 |
//Access+D7下OK..
procedure TForm1.btnDBClick(Sender: TObject); var str:string; i:Integer; begin for i:=0 to memo1.Lines.Count-1 do str:=str memo1.Lines.Strings[i];//all memo1.text try AdoQuery1.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add('Insert Into table1'); AdoQuery1.SQL.Add('values(:text)'); AdoQuery1.Parameters.ParamByName('text').Value:=str; AdoQuery1.ExecSQL; except showmessage('AdoQuery Insert db error'); end;//參考.. http://delphi.ktop.com.tw/topic.php?topic_id=64075 http://delphi.ktop.com.tw/topic.php?topic_id=41060 //多多指教..多多指教.. |
TheBloodKing
一般會員 發表:8 回覆:17 積分:10 註冊:2004-07-10 發送簡訊給我 |
以能做到,謝謝meta回答 我以變化做c , 給大家 void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Str;
int i;
for (i=0; i < Memo1->Lines->Count-1; i )
{
Str= Str Memo1->Lines->Strings[i];
}
try
{
AdoQuery1->Close();
AdoQuery1->SQL->Clear();
AdoQuery1->SQL->Add("Insert Into table1");
AdoQuery1->SQL->Add("values(:text)");
AdoQuery1->Parameters->ParamByName("text")->Value=Str;
AdoQuery1->ExecSQL;
}
catch()
Showmessage("AdoQuery Insert db error");
}
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |