delphi×î»ù´¡µÄSQL²éѯ - Delphi / Êý¾Ý¿âÏà¹Ø
ÎÒÒª²éѯX±íÖÐ ÊÕÈë = YµÄ ×Ö¶Î
±ÈÈç ÎÒÔÚSQLÖÐ ÊÇÕâôÊäÈëµÄ slect * from X where ÊÕÈë = y
ÔÚdelphi ÖÐ y ¾ÍÓÃedit1.textÀïÊäÈë
begin
adoquery1.Close;
ADOQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from xmb where ÊÕÈë='+''''+trim(edit1.Text)+'''');
try
adoquery1.open;
except
showmessage('ûÓиÃÊÕÈë¼Ç¼');
exit;
end;
Õâ¶Î¶ÏÂëµÄ»°£¬Èç¹ûÊÕÈëÎı¾µÄ¿ÉÒÔÖ´ÐÐ £¬µ«Èç¹ûÊÕÈëÊÇÊýÖµµÄ Ó¦¸ÃÔõôÐ޸ĴúÂ룡
Çë¸÷λ´óϺָ½Ì£¡
×¢Ò⣺ÊÕÈë×Ö¶ÎÊÇÊý×ÖÐÍ
ºÃ½áÕÊÁË
½¨ÒéÕâôд£º
adoquery1.SQL.Add('select * from xmb where ÊÕÈë:= earn')
adoquery1.Parameters.ParamValues['earn'] := trim(edit1.Text);
ͬÒâ3Â¥µÄ
delphiµ±Ê±¿ÎÉ趼ûÔõô×ö£¬°¥¡£¡£¡£
À´½áÕËÁË
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
ÓÐÕâÑùÒ»ÌõSQL
Select Get_Costtaxrate(col1), Get_Tcostvalue(col1) from a
ÆäÖÐGet_Costtaxrate¡¢Get_Tcostvalue¶¼ÊǺ¯Êý£¬ÕâÁ½¸öº¯ÊýÀïÃæ¶¼ÊDzéÕÒÒ»¸ö´ó±í£¬Get_Tcostvalue»¹ÐèÒªµ÷ÓÃGet_C ......
ÕâÀïÏëÁ˽âÏ£¬¹ØÓÚSQL ServerÖзÖÒ³ºÍOracleÖзÖÒ³£»
ƽ³£Ð´Ó¦ÓóÌÐòµÄʱºò£¬±ÈÈçÓõÄÓïÑÔÊÇJava£¬ÓиöÁбíÒ³Ãæ£¬ÐèÒª¶ÔÊý¾Ý·ÖÒ³ÏÔʾ£»
ÕâÀïÒª·ÖÒ³ÄѵÀ²»ÐèÒª½èÖúJava£¬¶øÖ±½ÓsqlÄÜÖªµÀ·ÖÒ³Âð£¬ÆðÂëÒ²Òª´«¸öÒ³Âë½ ......