¼±¼±£¡£¡¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌâ
Çë½Ì¸ßÊÖ2¸öÎÊÌ⣺
1¡¢¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌ⣻ÔõôÏÂÃæ´úÂëÎÞ·¨´ò¿ªÊý¾Ý¿âѽ£¿
2¡¢ÏÂÃæµÄ´úÂë¿ÉÒÔ·ÃÎÊ¡°¹ú±êÂ롱×Ö¶ÎÖеÄËùÓмǼֵÂð£¿
¼±¼±£¡£¡£¡£¡£¡£¡£¡£¡
vbÓïÑÔ´úÂëÈçÏ£º
Sub addcomboxitem()
Dim Sql_connect As String
Dim Rst As New ADODB.Recordset
Dim s As String
Sql_connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEST.mdb;Persist Security Info=False"
Rst.Open "select ¹ú±êÂë from WJSZ , Sql_connect, adOpenForwardOnly, adLockReadOnly"
On Error Resume Next
While Not Rst.EOF
k = k + 1
s = s + Rst.Fields("¹ú±êÂë").value
Rst.MoveNext
Wend
Rst.Close '¶ÁÍêÊý¾Ýºó¹Ø±Õ¼Ç¼¼¯
msgbox s
End Sub
¸ß£¡£¡£¡£¡£¡£¡
ˬһµã£¬½áÌù¸ø·Ö¡£
Ïà¹ØÎÊ´ð£º
<?php
include("adodb/adodb.inc.php");
$db = &NewADOConnection("access");
$access = realpath("Data.mdb");
$dsn = "Provider=Microsoft.J ......
ÇëÎÊ»ñµÃACCESS£¨mdb£©±íÍ·ÐÅÏ¢£¬Èç×Ö¶ÎÃû³Æ£¬×Ö¶ÎÀàÐÍ£¬×ֶδóС£¬ÌرðÊÇ×ֶδóС
Èçͼ£º
Update ¶¥Æð
ÄÄλ×ö¹ý¸øÖ¸µãһϰÉ~~СµÜ²»Ê¤¸Ð¼¤
OleDbConnection.GetOleDbSchemaTable ......
sql="insert into users(username,password) values('aa','bbb')"
conn.execute sql
²¹³ä£ºÔõô¼Ó²»½øÈ¥ÄØ£¿
ÒòΪaa,bbbÊÇÄã×Ô¼º¶¨ÒåµÄ±äÁ¿£¬Ëùд³ÉÕâ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÎÒÐèҪͨ¹ýµ¥¸ö²éѯÌõ¼þ°´ÄêÔÂ,²éѯµ½accessÊý¾Ý¿âÀïµÄÊý¾ÝΪ (ÈÕÆÚÀàÐÍ2008-02-02)
Dim DDTP1 As String
Dim date1 ......