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

Delphi 7ʹÓÃADOConnection·ÃÎÊMySQL

½ñÌìÐÄѪÀ´³±ÔÚ×Ô¼ºµÄµçÄÔÉϰ²×°ÁËmysql-5.1.41-win32ºÍmysql-connector-odbc-5.1.6-win32¡£ÒÔǰ£¬ÎÒÔø¾­³¢ÊÔʹÓãģţ̣Уȣɣ¶È¥Áª½Ó£Í£Ù£Ó£Ñ£Ìµ«ÊÇÔÚÍøÉÏÕҺܶà×ÊÁ϶¼²»ºÜºÃÓ㻽ñÌìͻȻҲÏëÆðÕâ¸öÎÊÌâ¾Í¸ÉÆð»ØÀ´ÁË¡£
¡¡¡¡£±.¡¡½¨Á¢Êý¾Ý¿â
¡¡¡¡¡¡¡¡use mysql;
¡¡¡¡¡¡¡¡drop database myDB;
¡¡¡¡¡¡¡¡create database myDB;
¡¡¡¡¡¡¡¡use myDB;
¡¡¡¡¡¡¡¡CREATE TABLE Table_01 (
¡¡¡¡ ¡¡¡¡FLD_01 int not null auto_increment,
 ¡¡¡¡¡¡¡¡FLD_02 varchar(50) ,
 ¡¡¡¡¡¡¡¡FLD_03 int NOT NULL DEFAULT 0,
 ¡¡¡¡¡¡¡¡key(FLD_01)
¡¡¡¡¡¡¡¡);
¡¡¡¡£².¡¡Ê¹Óãϣģ£ý¨Á¢Ò»¸ö£Í£Ù£Ó£Ñ£ÌµÄ£Ä£Ó£Î£¬Ãû³Æ£¨£Í£Ù£Ó£Ñ£Ì_£Ä£Â£©Ê²Ã´¶¼¿ÉÒÔ¡£
¡¡¡¡£³.¡¡ÔڣƣϣңÍÖÐÔö¼ÓÁËAdoconnection,AdoQuery,DataSourceºÍDBGrid.
¡¡¡¡¡¡¡¡AdoConnection.connectionstring := 'MYSQL_DB';
¡¡¡¡¡¡¡¡AdoQuery.sql.text :='select * from Table_01';
¡¡¡¡£´.¡¡È«²¿£Á£Ã£Ô£É£Ö£Å¡¡£º£½TRUE;
¸ãºÃ¡£


Ïà¹ØÎĵµ£º

¹ØÓÚDelphiÖÐDLL·â×°¶ÔÏóµÄ¼¸ÖÖ·½·¨ÕûÀí¼°Ìå»á

Ô­ÎIJμû£º  http://blog.csdn.net/ingener/archive/2007/12/22/1958535.aspx
¹ØÓÚDelphiÖÐDLL·â×°¶ÔÏóµÄ¼¸ÖÖ·½·¨ÕûÀí¼°Ìå»á
DelphiÓÃDLLÀ´·â×°¶ÔÏóµÄ¼¼ÊõÖ÷ÒªÓÐÈýÖÖ:
ÓýӿÚʵÏÖ
Óô¿ÐéºÍ³éÏóÀà·½·¨ÊµÏÖ
ÓÃÀàÒýÓÃʵÏÖ
ǰÁ½ÖÖ£¬¶¼ÊÇÔÚDLLÖÐÉú³ÉÀàʵÀý£»µÚ3ÖÖͨ¹ýÔÚµ÷Ó÷½Éú³ÉʵÀý¡£ÈýÖÖ·½·¨µÄ¹²Í¬¾ÖÏÞÈçÏ£º ......

DelphiÖÐÓÃADOϵÁпؼþ»ñµÃ´æ´¢¹ý³ÌµÄReturnÖµ

ÔÚDelphiÖÐAdoϵÁпؼþʹÓÃxxxxx.Parameters.Refresh,¿ÉÒÔ»ñµÃ´æ´¢¹ý³ÌµÄReturnÖµ
ÒÔTADOStoredProcΪÀý
  ADOStoredProc1.Connection := 'xxxx';
  ADOStoredProc1.ProcedureName := 'XXXX';
  ADOStoredProc1.Parameters.Refresh;   //ˢд洢¹ý³ÌµÄ²ÎÊýÁбí
 //²ÎÊý¸³Öµ
 ADO ......

DelphiÖÐWebBrowser¿Ø¼þµÄbug¼°½â¾ö·½°¸

¡¡¡¡DelphiÓïÑÔ£¬ÎÞÂÛÊÇ´Ó¿ª·¢ËÙ¶È¡¢»¹ÊÇÔËÐÐËÙ¶È¡¢»¹ÊDZàÒëËÙ¶È¡¢»¹ÊDZàÒëÖ®ºóµÄÖ´ÐÐÎļþÌå»ý£¬¶¼ÊÇÊýÒ»Êý¶þµÄ¡£Òò´Ë±»×÷Ϊ¹²ÏíÈí¼þ¡¢¿ª·¢²úÆ·¡¢ÖÆ×÷“ÂÌÉ«Èí¼þ”µÄÊ×Ñ¡¡£µ«ÊÇ£¬ÓÉÓÚÖî¶àÔ­Òò£¬DelphiÖУ¬ÓÐһЩ¿Ø¼þ£¬´æÔÚһЩbug¡£²»ÂÛ¹ã´ó¼¼ÊõÈËÔ±ÈçºÎ·´Ó¦£¬Delphi¹Ù·½¾ÍÊÇ“ÊÓ¶ø²»¼û”¡£ÓÐÎÊÌ⣬È˼ ......

DELPHI¿ª·¢ÖкÃÓõĿì½Ý¼ü(D2007°æ)

DELPHIÓõò»Ì«¶à£¬¼ÓÉÏÄԽºÃʹ£¬¾Í¼ÇÒ»ÏÂ×î³£ÓöԿª·¢Ð§ÂʺÜÓаïÖúµÄ¼¸¸ö£º
Ctrl+Êó±ê×ó¼ü£º²éÕÒ¶¨Òå
Ctrl+Shift+↑£ºÉÏÒ»²Ù×÷ÓëÆäÕýºÃÏà·´£¬Óɶ¨Òå²éÕÒʵÏÖ
Ctrl+Shift+¿Õ¸ñ£ºÔÚÒ»¸öº¯ÊýûÓÐÊäÈë²ÎÊýµÄÀ¨ºÅÄÚ°´Ï´˿ì½Ý¼üʱ»á³öÏÖº¯ÊýÏà¹Ø²ÎÊýµÄÌáʾÐÅÏ¢£¬°üÀ¨ÖØÔصÄËùÓк¯ÊýµÄÐÅÏ¢ ......

delphiÖеÄDBGRidÊó±ê¹ö¶¯Ê¼þ

Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
  if Msg.message = WM_MouseWheel then
  begin
    if Msg.wParam > 0 then
     begin
       if DBGrid.Focused then
       ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ