ACCESSµÄ×Ô¶¨Ò庯ÊýÔÚdelphiÀïÔõôÓÃÄØ...
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚ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 ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÎÊÌâÈçÌâлл»Ø´ð£¬ÔÚÏߵȡ£¡£¡£¡£
"EVCÈçºÎ²Ù×÷PC»úÉϵÄaccessÊý¾Ý¿â"
Ó¦¸Ã²Ù×÷²»ÁË.
ÒýÓÃ
"EVCÈçºÎ²Ù×÷PC»úÉϵÄaccessÊý¾Ý¿â"
Ó¦¸Ã²Ù×÷²»ÁË.
ÎÒ¾ÍÏëÓÃEVc½¨Á¢¹¤³ ......
ÎÒÔÚÊý¾Ý¿âÖÐÓÐÁ½¸östringÊý¾Ý "AA","aa".ÎÒÿ´Î²éÕÒAAʱÁ½¸ö¶¼»á³öÏÖ¡£ÔõôÑù²ÅÄÜ×öµ½ÎÒÕÒAAËü¾ÍÖ»³öÀ´AA.ÎÒÕÒaa¾Í³öÀ´aa£¿£¿£¿£¿
ÓÃASC('AA'),ASC('aa')ÅжÏ
SELECT StrC ......