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ÖеÄÖùÐÎͼÖС£ÎÒÈçºÎʵÏÖÄØ£¿ ллÁË¡
Ïà¹ØÎÊ´ð£º
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ ÔõôûÈËÀíÎÒѽ ·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^* SQL creat table TableName(ID Counter Primary Key,FieldName varchar(20)) ADOQue ......
ÇëÎÊdbook V1.10°æ±¾µÄÔ´´úÂ루delphi£©ÊDz»ÊÇÔËÐв»Á˰¡£¬ÔÚÍøÉÏÏÂÁ˺ö࣬´ò¿ªÖ÷´°ÌåµÄʱºò×ÜÊDZ¨´í,֮ǰ×Ôѧc#£¬²Å¸Õ¿ªÊ¼£¬ÏÖÔÚÀÏʦ²¼ÖÃÈÎÎñÈÃÎÒ¸Ädbook V1.10°æ±¾µÄÔ´´úÂ룬ץ¿ñÁË£¬Ò»µãÍ·Ð÷ҲûÓУ¿¸÷λ´óÏÀ¸øµ ......
project project3.exe raised exception class ERemotableException with message 'access violation at address 004037B in module'project2.exe'.read of address 00000003'.process stopped.use ......
ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£ ¾ßÌåÈçÏ£º Delphi7 ÖеIJâÊÔÔ´Â룺 //********************************************************* ......
ÇëÎÊÈçºÎÉèÖÃÒ»¸ö°´Å¥£¬Ò»µãµ½Ëü¾Í²»¶ÏÖ´Ðа´Å¥ÉϼÓÔØµÄʼþ£¬ÖªµÀµã»÷ÁíÒ»¸ö°´Å¥²Å»áÍ£Ö¹£¬ÒòΪдÁ˸öÑ¡ºÅµÄС³ÌÐò£¬Ï£Íû¿ÉÒÔÏñµçÊÓÉÏÄÇÑù£¬Ò»µã¾Í²»¶ÏµÄË¢ ¶ø²»ÊǵãÒ»ÏÂˢһϣ¡£¡ Á½ÖÖ·½·¨ 1.ÓÃtimerÈ¥¿ØÖÆÖ´ ......