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

ʹÓÃ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


Ïà¹ØÎÊ´ð£º

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

ÇóÒ»sqlÓï¾ä - MS-SQL Server / ÒÉÄÑÎÊÌâ

ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄÇ°2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......

ÇóÒ»SQLд·¨ - MS-SQL Server / »ù´¡Àà

id                           url                   rank     ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ