ʹÓÃDelphiÈçºÎÁ¬½ÓSQLÊý¾Ý¿â£¿
×îºÃÄÜ˵µÄÏêϸµã
¾ÍÒ»¸öÁ¬½Ó×Ö·û´®£¬×Ô¼º·Å¸öadoconnectionÔÚ½çÃæÉÏ£¬Ë«»÷£¬È»ºóÑ¡ÔñbuildÔÚÁбíÖÐÑ¡Ôñ...for sql servÏÆäËû×Ô¼º¶Ô׎çÃæÉϵÄÄÚÈÝÈ¥¿´
¶î »¹ÊDz»Ì«Ã÷°× ´ÓÀ´Ã»ÓùýÕâ¶«Î÷
ÔÚÍøÉÏËÑÒ»ÏÂ
3Â¥µÄдµÃºÜϸÁË¡£
ÎÒÉÏ´«ÁËÆªÎÄÕ£¬Í¼ÎIJ¢Ã¯£¬¿ÉÒԲο¼Ò»Ï£ºÊ¹ÓÃDecision Cube½øÐÐÊý¾ÝµÄ¾ö²ß·ÖÎö
http://download.csdn.net/source/2222831
Èý¥дµÄºÜ×ÐϸÁË£¬ÒªÊÇ»¹Óв»Ã÷°×µÄ½¨ÒéÂ¥Ö÷Âò±¾DELPHIµÄÊé¿´¡£
Delphi(Pascal) code:
var
conn: Variant;//Connection
begin
//½¨Á¢Êý¾Ý¿âÁ¬½Ó
conn := CreateOleObject('ADODB.Connection');
try
conn.Open('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source='+ ASSECCÊý¾Ý¿â¾ø¶Ô·¾¶);
except //Á¬½Ó³ö´í
result := '';
exit;
end;
end;
ÔÙ¸øµã½¨Òé
Á¬½ÓSQLÊý¾Ý¿â£¬Òª·ÖÇåsqlµÄµÇ¼·½Ê½
SQL ServerÉí·ÝÑéÖ¤»¹ÊÇWindowsÉí·ÝÑéÖ¤
²»Í¬µÄµÇ¼·½Ê½Á¬½Ó×Ö·û´®Ò²²»Ò»Ñù
WindowsÉí·ÝÑéÖ¤
Delphi(Pascal) code:
Self.ADOConnection1.Connected:=False;
Self.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;'
+'Persist Security Info=False;Initial Catalog=master';
try
Self.ADOConnection1.Connecte
Ïà¹ØÎÊ´ð£º
½ñÌì×öÁËÒ»¸ö´æ´¢¹ý³Ì »·¾³ÊÇSQL2000Êý¾Ý¿â
´óÖÂÈçÏÂ
½¨Á¢ÁÙʱ±í
¶¨ÒåÔ±¹¤Óαê
Ñ»·Ô±¹¤£¨ÊôÓÚ1¸ö¹«Ë¾)
......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......
1¡£ÔõÑùʹxp_cmdshellÄÜÍêÕûÊä³ö³¬¹ý255¸ö×Ö·ûµÄ×Ö·û´®¡£
2¡£select ʱ£¬¼ìË÷ËÙ¶ÈÊÇÓëfromºóµÄ TABLE˳ÐòÓйأ¬»¹ÊÇÓëwhereÌõ¼þµÄ˳ÐòÓйØ(TABLEÊý¾Ý¶àÉÙ )
ÔÚϵͳÊôÐÔÉ趨ÀïÓиöÑ¡Ïî,¿ÉÒÔÐ޸ĵ¥×Ö¶ÎÊä³ö×ÖÊýÏÞÖÆ. ......
3̨µçÄÔ£¬ÆäÖÐһ̨×÷ΪMYSQL·þÎñÆ÷£¬ÁíÍâ2̨ΪTOMCAT·þÎñÆ÷¡£
MYSQL·þÎñÆ÷ÀïÓÐÒ»Ìõ¼Ç¼£¬ IDΪ10.
ÏÖÔÚ2̨TOMCATͬʱ£¨100%£©·¢ÆðÐÞ¸ÄMYSQLÀïIDΪ10µÄÄÇÌõ¼Ç¼£¬±ÈÈçÐ޸ĴËID¼Ç¼ÀïijһÏîµÄÄÚÈÝ¡£ ±ÈÈçTOMCAT 1Ò ......