Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖеÄÖùÐÎͼÖС£ÎÒÈçºÎʵÏÖÄØ£¿
ллÁË¡


Ïà¹ØÎÊ´ð£º

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphiµ¼Èëexcelµ½sqlserverµÄsqlÓï¾äÎÊÌâ

'Select * into '+TempTableName+' from OpenDataSource(''Microsoft.JET.OLEDB.4.0'',''Data Source='
  +ExcelFilePath+';Mode=Read;Extended Properties=Ex ......

delphi Óë C# λÔËËã ÓкôóÇø±ð£¬Çë½Ì¸÷λ£¡

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#£º

& ......

delphi µ÷ÓÃ vc dll ÎÊÌâ

ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
½á¹¹ÌåÔõô¶¨ÒåµÄ?

//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
    function alarmSentDoor(var pDoorPara :Alley_ALARM_PARA) ......

Excel ÈçºÎµ÷Óà Delphi ±àÒëµÄ Dll Öеĺ¯Êý£¿

ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£
¾ßÌåÈçÏ£º

Delphi7 ÖеIJâÊÔÔ´Â룺

//********************************************************* ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ