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

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


Ïà¹ØÎÊ´ð£º

asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£

IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)

'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......

Access²éÕÒÖØ¸´ÎÊÌâ

ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏ 
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡± 
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......

EVCÈçºÎ²Ù×÷PC»úÉϵÄaccessÊý¾Ý¿â

ÎÊÌâÈçÌâлл»Ø´ð£¬ÔÚÏߵȡ£¡£¡£¡£
"EVCÈçºÎ²Ù×÷PC»úÉϵÄaccessÊý¾Ý¿â"

Ó¦¸Ã²Ù×÷²»ÁË.

ÒýÓÃ
"EVCÈçºÎ²Ù×÷PC»úÉϵÄaccessÊý¾Ý¿â"

Ó¦¸Ã²Ù×÷²»ÁË.

ÎÒ¾ÍÏëÓÃEVc½¨Á¢¹¤³ ......

accessÖÐÈçºÎÇø±ð´óСд£¿

ÎÒÔÚÊý¾Ý¿âÖÐÓÐÁ½¸östringÊý¾Ý "AA","aa".ÎÒÿ´Î²éÕÒAAʱÁ½¸ö¶¼»á³öÏÖ¡£ÔõôÑù²ÅÄÜ×öµ½ÎÒÕÒAAËü¾ÍÖ»³öÀ´AA.ÎÒÕÒaa¾Í³öÀ´aa£¿£¿£¿£¿
ÓÃASC('AA'),ASC('aa')ÅжÏ

SELECT StrC ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ