µÃµ½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
Ïà¹ØÎĵµ£º
ÏÖÏó£º
ESXµÄWEB·ÃÎÊĬÈÏÊǹرյģ¬ÍøÉϺܶàÎÄÕ¶¼ËµÊ¹ÓÃchkconfig vmware-webAccess onÀ´È÷þÎñ×Ô¶¯¿ªÆô£¬²»¹ýÕâÑù²Ù×÷Ö®ºóÖØÆô»úÆ÷£¬WEB·ÃÎÊ»¹ÊÇ»¹»á³ö503ÎÞ·¨·ÃÎÊ´íÎó£¬ESX²»ÖªµÀΪʲô»á×Ô¶¯°Ñvmware-webAccess ¸ø½ûÓõô¡£
½â¾ö·½·¨£º
¾¹ýÎÞÊý´Î³¢ÊÔÖ®ºó·¢ÏÖÁ˽â¾ö·½·¨£¬ÃüÁîÈçÏ£º
cd /etc/init.d
cp vmware-web ......
ÔÎÄ£ºhttp://www.cnblogs.com/whitetiger/archive/2007/03/27/689620.html
ÔÚBETA2ÖУ¬¡£NETÌṩÁËÒÔϵÄNAMESPACE£º
System.Data Namespace
System.Data.OleDb £¨ºÍBETA1ÖÐÒѾ²»Í¬ÁË£¬ËùÒÔÈç¹ûÄÃBETA1ÖеijÌÐòµ½BETA2ÖÐÀ´ÔËÐп϶¨²»¿ÉÒԵģ©
Èç¹ûÏë½²Çå³þÕâЩ¶«Î÷£¬ÎÒ²»ÈÏΪÊÇÎÒ¿ÉÒÔ×÷µ½µÄ£¬ËùÒÔÎÒÏëͨ¹ýһЩ¾ ......
´ò¿ª OpenDataAccessPage:ÔÚÒ³ÊÓͼ»òÉè¼ÆÊÓͼÖдò¿ªÊý¾Ý·ÃÎÊÒ³
OpenForm:ÔÚ´°ÌåÊÓͼ¡¢´°ÌåÉè¼ÆÊÓͼ¡¢´òÓ¡Ô¤ÀÀ»òÊý¾Ý±íÊÓͼÖдò¿ª´°Ìå
OpenModule:ÔÚÖ¸¶¨¹ý³ÌµÄÉè¼ÆÊÓͼÖдò¿ªÖ¸¶¨µÄÄ£¿é
OpenQuery:´ò¿ªÑ¡Ôñ²éѯ»ò½»²æ±í²éѯ
OpenReport:ÔÚÉè¼ÆÊÓͼ»ò´òÓ¡Ô¤ÀÀÊÓͼÖдò¿ª±¨±í»òÁ¢¼´´òÓ¡¸Ã±¨±í ......
ÍøÉÏËѼ¯£¬±¸ÓÃ
ϱíÁгöÁË ANSI SQL Êý¾ÝÀàÐͺ͵ÈЧµÄ Microsoft Jet Êý¾Ý¿âÒýÇæ SQLÊý¾ÝÀàÐÍ»¹ÓÐËüÃǵÄÓÐЧͬÒå×ÖÒÔ¼° µÈЧµÄ Microsoft SQL ServerÊý¾ÝÀàÐÍ¡£
ANSI SQL
Êý¾ÝÀàÐÍ
Microsoft Access
SQL Êý¾ÝÀàÐÍ
ͬÒå´Ê
Microsoft SQL
Server Êý¾ÝÀàÐÍ
BIT¡¢BIT VARYING
BINARY£¨²Î¼û×¢ÊÍ£©
VARBINARY¡¢ ......
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 ......