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
Ïà¹ØÎÊ´ð£º
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÔÌû£º
http://topic.csdn.net/u/20090925/23/4611c916-41a1-42bc-9f10-f7dd86ab3ded.html
¼ÈÈ»ACCESSÖ»Ö§³Öµ¥¾äSQL²éѯ£¬ÄÇôÎÒÄǸö³ÌÐòÊDz»ÊǾÍûʲô©¶´£¿
CityBird»Ø¸´Ëµ£º
sql="Sele ......
Access2007ÖÐÓÐÒÔÏÂÁ½¸ö±í¡£
A±í:×Ö¶Î_A1£¬×Ö¶Î_A2
B±í:×Ö¶Î_B1
ÎÒÏëʵÏÖµÄÊÇ£ºÓÃjava³ÌÐò²åÈ롾×Ö¶Î_B1¡¿µÄÖµÖ»ÄÜÊÇ¡¾×Ö¶Î_A1¡¿µÄÖµ£¬·ñÔòÌáʾ´íÎó£¬ÓÐûÓÐÕâÑùµÄÓÐЧÐÔ¹æÔò£¿
×¢£ºÎÒÔÚ¡¾²éÔÄ¡ ......