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 ......
'Select * into '+TempTableName+' from OpenDataSource(''Microsoft.JET.OLEDB.4.0'',''Data Source=' +ExcelFilePath+';Mode=Read;Extended Properties=Ex ......
delphi º¯Êý£º function RB(A: longint): longint; begin Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24); end; ÎÒת³ÉC#£º & ......
ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë ½á¹¹ÌåÔõô¶¨ÒåµÄ? //ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢ function alarmSentDoor(var pDoorPara :Alley_ALARM_PARA) ......
ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£ ¾ßÌåÈçÏ£º Delphi7 ÖеIJâÊÔÔ´Â룺 //********************************************************* ......