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

Delphi¸Ä´í

procedure TForm1.Button1Click(Sender: TObject);
var str:String;
begin
      str:='insert into aaa'
            +'(ÊշѱàÂë,ÏîÄ¿Ãû³Æ,ÏîÄ¿µ¥¼Û,ÊÕ·ÑÊýÁ¿,Êշѽð¶î,¼Æ·Ñµ¥Î»,¼Æ·Ñ¹æ¸ñ,ÊÕ·ÑÈÕÆÚ,ÊշѶÔÏó,סԺºÅ,ÊÕ·Ñ¿ÆÊÒ)'
            +' SELECT ÊշѱàÂë,ÏîÄ¿Ãû³Æ,ÏîÄ¿µ¥¼Û,ÊÕ·ÑÊýÁ¿,Êշѽð¶î,¼Æ·Ñµ¥Î»,¼Æ·Ñ¹æ¸ñ,ÊÕ·ÑÈÕÆÚ,ÊշѶÔÏó,סԺºÅ,ÊÕ·Ñ¿ÆÊÒ from OpenDataSource( ''Microsoft.Jet.OLEDB.4.0'',''Data Source="F:\access_test.mdb";User ID=Admin;Password='')...סԺ·þÎñÃ÷ϸ';
      //(ÊշѱàÂë,ÏîÄ¿Ãû³Æ,ÏîÄ¿µ¥¼Û,ÊÕ·ÑÊýÁ¿,Êշѽð¶î,¼Æ·Ñµ¥Î»,¼Æ·Ñ¹æ¸ñ,ÊÕ·ÑÈÕÆÚ,ÊշѶÔÏó,סԺºÅ,ÊÕ·Ñ¿ÆÊÒ)
      ADOQuery1.SQL.Add(str);
      Edit1.text:=ADOQuery1.SQL.Text;
      ADOQuery1.ExecSQL;

end;

ÿ´ÎÖ´ÐеÄʱºò¾ÍÌáʾ£º  ²»ÕýÈ·µÄ¶¨Òå²ÎÊý¶ÔÏó£¬ÌṩÁ˲»Ò»Ö»ò²»ÍêÕûµÄÐÅÏ¢
ÎÒµ¥¶ÀÔÚ²éѯ·ÖÎöÆ÷ÀïÃæÄÜÖ´ÐÐÕâÌõÓï¾ä
¡°...סԺ·þÎñÃ÷ϸ';¡±
Õâ¸öÊDz»ÊÇÎÊÌâµÄ¸ùÔ´£¿
È¥µô¿ÉÒÔÂð£¿

»¹ÓÐData SourceºóÃæµÄË«ÒýºÅÊDz»ÊÇÎÊÌ⣿

ADOQuery1 µÄparamcheckÉèÖÃΪFALSEÊÔÊÔ

sqlserverºÍaccess±ØÐëÔÚͬһ̨»úÆ÷ÉϲſÉÒÔ¡£

ËÆºõÓÐÎÊÌ⣬µ«Ã»×Ô¼ºµ÷ÊÔ£¬ÊµÔÚÊÇ˵²»³ö¸öÒ»¶þÈý

ÒýºÅµÄʹÓÃÎÊÌâ


Ïà¹ØÎÊ´ð£º

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

ÈçºÎÔÚdelphiÀïÓôúÂëʵÏÖ´´½¨VPNÁ¬½Ó?

ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
  GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......

ÇëÎÊÄĸöÅóÓÑÄÜÍÆ¼ö¸öwinsockAPI±à³ÌµÄÊé(DelphiµÄ)£¿

Òª°üº¬winsock2 ¶øÇÒÏêϸЩµÄ¡£
ÄÇЩʹÓÿؼþµÄµÄÊé±¾¾Í²»ÒªÁË£¬
Ï£ÍûÂò¹ýÕâÀàÊéµÄÅóÓÑÄÜÍÆ¼öÏÂ×Ô¼º¾õµÃ²»´íµÄ¡£
À´¹Ø×¢Ï¡£

WindowsÍøÂçÓëͨÐųÌÐòÉè¼Æ(µÚ2°æ)
À¶Æ¤µÄÊÇаæ,ËäÈ»ÊÇÖйúÈËдµÄµ«ÊǷdz ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ