Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiÖÐselectÓï¾ä±äÁ¿²éѯ

SQL.Add('SELECT formula,val(DMAF) as i from Åä·½Õï¶Ï±í where 1=1 and formula ='''+Combobox3.Text+''' and formula ='''+Combobox4.Text+'''');
Õâ¸öÓï¾äÖС£ÎÒÏë°Ñval£¨DMAF£©×÷Ϊһ¸ö±äÁ¿¡£²éѯ¸÷¸ö×ֶεÄÖµ¡£ÇëÎÊÈçºÎ¸øËùÒª²éѯµÄ±äÁ¿×ֶθ³ÖµÄØ¡£

¾ÍÊÇ˵±íÖÐÓкöà×ֶΡ£ÈçºÎ²éѯ¸÷¸ö×ֶεÄÖµ¡£ºóÃæwhereÌõ¼þ²»±ä¡£ÈçºÎʵÏÖ

sqlstr:='insert into Machine (MACHINEID,USERID) values (:Pmach,:puser)';

params[0].value:=machedit.Value ;
params[1].Value :=edituser.Value ;

¿ÉÒÔʹÓÃParamsÕâ¸ö²ÎÊý

²éѯÓï¾äÔõÃ´Ð´ÄØ£¿
ÒýÓÃ
sqlstr:='insert into Machine (MACHINEID,USERID) values (:Pmach,:puser)';

params[0].value:=machedit.Value ;
params[1].Value :=edituser.Value ;

¿ÉÒÔʹÓÃParamsÕâ¸ö²ÎÊý


Delphi(Pascal) code:

with ADOQuery1 do begin
Active := false;
SQL.Clear;
SQL.Add('SELECT * from Åä·½Õï¶Ï±í where ......');
Active:=true;
First;
while not EOF do begin
for i:=0 to Fields.Count-1 do begin //ͨ¹ýÑ­»·È¡¸÷×ֶεÄÖµ
//Show Fields[i].value
end;
Next;
end;




¾ßÌåµ½ÎÒÉÏÃæµÄÓï¾ä¡£ÎÒ¸ÄÔõÃ´Ð´ÄØ£¿ÄܸøÎÒ¾Ù¸öСÀý×ÓÂð£¿Ð»Ð»ÁË¡£ÎÒÏë²éѯÁ½¸ö×ֶεÄÖµ¡£È»ºó°ÑÕâÁ½¸öÖµ¸³µ½dbchartÖеÄÖùÐÎͼÖС£ÎÒÈçºÎʵÏÖÄØ£¿
ллÁË¡


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphiÖÐÈçºÎ½«Ò»¸öaccess±íµÄÊý¾Ýµ¼Èëµ½ÁíÒ»¸ö±íÖУ¿

ллÁË¡£×îºÃÓдúÂë
Insert into Table2(field1,field2,...) select value1,value2,... from Table1

insert into ±íÒ» select * from ±í¶þ

Èç¹û×ֶβ»Ò»Ö£¬ÒªÖ¸¶¨×Ö¶Î

insert into ±íÒ»(A,B) se ......

Çë½ÌdelphiÖÐʹÓÃaccessÊý¾Ý¿â½øÐÐÊý¾Ýµ¼ÈëµÄÎÊÌâ

Ïò¸÷λ¸ßÊÖÇóÖú¡£
ÎÒÓÃdelphi2009±àдÁËÒ»¸ö¹ÜÀíϵͳ£¬Ê¹ÓõÄÊÇaccessÊý¾Ý¿â¡£ÏÖÔÚÏëͨ¹ý¶àÈËÒ»Æð¼ÈëÊý¾Ýºó£¬½«Êý¾Ýµ¼³ö£¬µ¼³öµÄÊý¾Ý¿â°üº¬¶à¸öÏàͬµÄ±í¡£ÔÙ½«µ¼³öµÄÊý¾ÝÒÀ´Îµ¼È뵽ͬһ¸öÊý¾Ý¿âµÄÏàͬ±íÖУ¬µ¼Èë ......

תÌû£ºDELPHI±àд·þÎñ³ÌÐò×ܽá¶þ£­£­±àд¼¼ÇÉ

Ô­ÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html

Ò»¡¢ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö

ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö

ÔÚ¹¤³Ì¼ÓÈëÏÂÁдúÂë¿ÉÒÔ ......

Çó delphi webserivice µ÷ÓÃÀý×Ó

Çó  delphi webserivice µ÷ÓÃÀý×Ó
·þÎñ¶Ë±àд£ºÐ½¨"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"ÌîдÄãÒªµÄ·þÎñÃû£¬Èç"SendS ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ