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
Ïà¹ØÎÊ´ð£º
<?php
include("adodb/adodb.inc.php");
$db = &NewADOConnection("access");
$access = realpath("Data.mdb");
$dsn = "Provider=Microsoft.J ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎÎ ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......