µÃµ½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
Ïà¹ØÎĵµ£º
×ò
ÌìºÍanimatorÊÔÑéÁËһϣ¬°Ñdata.mdbÎļþ¸ÄÃûΪdata.aspÎļþºó·ÅÔÚwwwrootĿ¼ÀȻºóÔÚIEÖÐÊäÈëdata.asp·¾¶
ºó£¬·¢ÏÖIEÏÔʾһƬ¿Õ°×£¬ÓÒ¼ü->²ì¿´Ô´Îļþ£¬Ìø³ö¼Çʱ¾£¬½«ÄÚÈÝÁí´æΪ.mdbÎļþ£¬ÓÃACCESS´ò¿ª£¬·¢ÏÖÐèÒªÃÜÂ룬Ҳ¾ÍÊÇ˵ÖÁÉÙÎļþÍ·±»
ÆÆ»µ¡£
È»ºóÓÃFlashgetÊÔÑéÏÂÔØdata.aspÎļþ£¬²¢Áí´æΪda ......
ÔÚACCESS(2007)Êý¾Ý¿âÖУ¬ÓÐÕâÑùÒ»¸öÄ£ºý²éѯ£¬
select postId,postName,postType,left(postTime,10) as postTimes from PostInfo where postUser like '*ÖÜ·¼*'
ÔÚÊý¾Ý¿â²éѯºó½á¹ûÏÔʾÕýÈ·£¬¿ÉÊÇ·ÅÔÚÏîÄ¿µÄ´úÂëÖУ¬¾ÓÈ»²»ÏÔʾ²éѯµÄ½á¹û¿©¡£¼ì²éÁË°ëÌ춼ûÓз¢ÏÖ´íÎóÔÚÄÄÀ×îºó²ÅÖªµÀ£¬ÓеÄACCESS¾ÓÈ»²»ÈÏʶͨŠ......
´ÓAccessÊý¾Ý¿âµ¼Èëµ½SQL
·½·¨Ò»:
ÔÚMSsqlÖÐÒª¼òÀúODBC..·½·¨±È½Ï±¿µã..
·½·¨¶þ:
Ö±½Ó´ÓAccessÉýǨµ½MSsql..
ÒòΪAccessÊý¾Ý¿âÓÐÉèÖÃÃÜÂë..»¹Õæ²»ºÃ¸ã..¸ãÁ˺ü¸´Î¶¼Ê§°ÜÁË..
ÀûÓ÷½·¨¶þ..Ò»´Î³É¹¦..
ÓÃÊý¾Ý¿âÉýǨ...¼òµ¥...
½¨ÒéʹÓõڶþÖÖ·½·¨µ¼ÈëACCESSÊý¾Ý¿âµ½MSSQLÊý¾Ý¿âÖÐ..Ê¡ÊÂ!!! ......
½ñÌìÔÚLinuxÏÂÓÃeclipse 3.5¿ª·¢JpcapÏà¹ØµÄ³ÌÐò£¬ÏÈÊÔÊÔ¹Ù·½µÄUdpSend.javaÄÜ·ñÅÜÆðÀ´¡£結¹ûeclipse¸ø³öÁËÈçÏ´íÎóÌáʾ£º
Access restriction: The type JpcapCaptor is not accessible due to restriction on required library /media/sda7/opt/jdk1.6.0_16/jre/lib/
ext/jpcap.jar
ÆäʵҪ½â¾öËüÒ²º ......
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 ......