µÃµ½access±í×Ö¶ÎÃûVBS½Å±¾
set adoCN =createobject("ADODB.CONNECTION")
set strCnn =createobject("ADODB.Recordset")
set rstSchema =createobject("ADODB.Recordset")
Dim I
dim n
str1 = "DBQ=E:\data1.MDB;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
adoCN.Open str1
rstSchema.open "select * from table1",adoCN,1,1
n = rstSchema.Fields.Count - 1
for i =0 to n
out = out & vbCr & rstSchema.Fields(i).Name
next
rstSchema.Close
adoCN.Close
MsgBox out
Ïà¹ØÎĵµ£º
ÔÚACCESS(2007)Êý¾Ý¿âÖУ¬ÓÐÕâÑùÒ»¸öÄ£ºý²éѯ£¬
select postId,postName,postType,left(postTime,10) as postTimes from PostInfo where postUser like '*ÖÜ·¼*'
ÔÚÊý¾Ý¿â²éѯºó½á¹ûÏÔʾÕýÈ·£¬¿ÉÊÇ·ÅÔÚÏîÄ¿µÄ´úÂëÖУ¬¾ÓÈ»²»ÏÔʾ²éѯµÄ½á¹û¿©¡£¼ì²éÁ˰ëÌ춼ûÓз¢ÏÖ´íÎóÔÚÄÄÀ×îºó²ÅÖªµÀ£¬ÓеÄACCESS¾ÓÈ»²»ÈÏʶͨŠ......
ÎÊÌâ:
Óжþ¸ö±í
A±í:
id Comment yuyan lanmuid
1 aaaa chinese 1
2 bbbb english 1
3 cccc chinese 2
4 ddddd english 2
B±í:
id lanmu
1 ¹«Ë¾¼ò½é
2 ÁªÏµ·½Ê½
3 ¾Óª·¶Î§
ÔÚɾ³ýB±íµÄÒ»ÐÐÊý¾Ýʱ»á°ÑA±í¹ØÁªIDµÄÊý¾ÝҲɾ³ý,ÇëÎÊÓÐʲôºÃ·½·¨?ÎÒ²»Ïë²Ù×÷2´Îɾ³ýµÄÓï¾ä.
½â¾ö·½ ......
µÚÒ»ÖÖ·½·¨£º
<?php
class Access{
function getConn(){
$conn = @new COM("ADODB.Connection") or die ("ADOÁ¬½Óʧ°Ü!");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath(__IMP ......
½ñÌìÔÚÐÞ¸ÄÒÔǰ¿ª·¢µÄÒ»¸öÍøÕ¾µÄʱºòÓöµ½Ò»¸öÎÊÌ⣬ÒòΪ¹¦ÄܵÄÐèÒª£¬ÒÔǰµÄÒ»¸öÊý×ÖÀàÐÍ×ֶθıäΪÎı¾×ֶΣ¬ÒòΪÕâ¸ö×Ö¶ÎÐèÒª°üº¬¶à¸öÀà±ðµÄID£¬ÒÔǰÕâ¸ö×Ö¶ÎÖ»¶ÔÓ¦Ò»¸öIDµÄ¡£
ÍøÕ¾ÊÇASP VBÓïÑԵģ¬Êý¾Ý¿âʹÓõÄÊÇAccess
ÐÞ¸ÄÊý¾ÝÀàÐÍÖ®ºóǰ̨µÄ²éѯ´úÂë¾Í²»ÄÜʹÓÃÖîÈçxID=1ÕâÖÖÌõ¼þÁË¡£ÓÉÓÚÏÖÔÚ¸Ã×ֶαäΪÎı¾ÀàÐ ......
string sql = "select a.orderId,a.UserName,b.CodeValue as Delivery ,a.DeliveryAddress,a.PhoneNum,c.CodeValue as Payment,d.CodeValue as OrderStatus,d.CodeValue as OrderStatusID,a.OrderTime,a.Merchant from (( m_Order a ";
sql += " left j ......