ACCESSµÄ×Ô¶¨Ò庯ÊýÔÚdelphiÀïÔõôÓÃÄØ...
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚACCESSµÄ²éѯÀïÖ´ÐÐÕý³£)
ÒýÓÃACCESSµÄ¶ÔÏó,ÕâÑù¿ÉÒÔÔÚÆäËûÓïÑÔ»·¾³ÏÂÒ²ÄܲÙ×÷ACCESSµÄÄÚÖú¯Êý,´°Ìå,±¨±í,ºê,µÈµÈ...ÒýÓà ÒýÓÃACCESSµÄ¶ÔÏó,ÕâÑù¿ÉÒÔÔÚÆäËûÓïÑÔ»·¾³ÏÂÒ²ÄܲÙ×÷ACCESSµÄÄÚÖú¯Êý,´°Ìå,±¨±í,ºê,µÈµÈ... Õâ¸öÎÒûÓùý,ÄܾßÌåµãÂð?·Ç³£¸Ðл! ACCESS ÖÐÓÃVBA×Ô¶¨ÒåµÄº¯Êý»ò¹ý³Ìͨ¹ýODBCÊÇ¿´²»µ½µÄ¡£Ã»ÓÐʲôºÃµÄ°ì·¨¡£ Äã¿ÉÒÔ°´ÕÕһ¥µÄ·½Ê½£¬ÔÚÄãµÄ³ÌÐòÖÐÒýÓÃaccess.application ¶ÔÏó¿â£¬ÕâÑùÏà¹ØÓÚͨ¹ý³ÌÐòÀ´Ä£Äâ´ò¿ªACCESSS¡£EXEÀ´²Ù×÷¡£ DELPHIÎÒ²»»á,ÏÂÃæÊÇVBµ÷ÓÃACCESSÀïÃæµÄFUNCTIONµÄ·½·¨ Ê×ÏÈÒýÓÃMicrosoft access 11.0 object Library ÔÚACCESSµÄÄ£¿éÀィÁ¢Ò»¸ö²âÊÔFUNCTION ACCESSÎļþÄ£¿é´úÂë Public Function Test() MsgBox "ÕâÊÇACCESSµÄFUCNTION" End Function VBµ÷ÓÃACCESSµÄTEST FUNCTION ´úÂë '±ØÐëÏÈÒýÓÃMicrosoft access 11.0 object Library Private Sub Command1_Click() Dim DbPath As String Dim oApp As Access.Application DbPath = App.Path & "\Data.mdb" Set oApp = New Access.Application With oApp '.Visible = True .OpenCurrentDatabase DbPa
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC) '=========================================================================== SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû S ......
ÒÑÖªPython ÖУº s = unicode("²âÊÔ", "gb2312") s = u'\u6d4b\u8bd5' print s ²âÊÔ ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿ ÕÒµ½¸ö·½·¨ ......
ÎÊÌâÈçÏ£º ÓòéѯÓï¾ä select * from tab where fil like 'CK090902'ÄܲéÕÒ³öÒ»Ìõ¼Ç¼²¢ÏÔʾ³öÀ´ ¸ÄΪ select * from tab where fil = 'CK090902' ¾Í²»ÄܲéÕÒµ½£¬Ò²ÏÔʾ²»³öÀ´ ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬ ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ µ±Êý¾Ý¿â×Ö¶ÎÎ ......