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 ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÈçÌâÔÚÎÒ´ò¿ªaccessÐ޸ĵÄʱºò±¨´í
ÎÒ×°µÄGhost µÄXP°æ sp3µÄ²¹¶¡
´íÎóÇ©Ãû
AppName: msaccess.exe AppVer: 11.0.8166.0 AppStamp:46437912
ModName: pintlgnt.ime&n ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......
Access2007ÖÐÓÐÒÔÏÂÁ½¸ö±í¡£
A±í:×Ö¶Î_A1£¬×Ö¶Î_A2
B±í:×Ö¶Î_B1
ÎÒÏëʵÏÖµÄÊÇ£ºÓÃjava³ÌÐò²åÈ롾×Ö¶Î_B1¡¿µÄÖµÖ»ÄÜÊÇ¡¾×Ö¶Î_A1¡¿µÄÖµ£¬·ñÔòÌáʾ´íÎó£¬ÓÐûÓÐÕâÑùµÄÓÐЧÐÔ¹æÔò£¿
×¢£ºÎÒÔÚ¡¾²éÔÄ¡ ......