¼±¼±£¡£¡¹ØÓÚ²éѯ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µÄ£¬ÆäÖÐÓÐÒ»¸ö±íÃûΪ:user,×Ö¶ÎΪÈçÏÂ:
USERID(Ö÷¼ü£¬×Ô¶¯±àºÅ),
ID(Îı¾),
password£¨Îı¾£©,
txtEmail(Îı¾)
Àý£ºÖ´ÐÐÒÔÏÂupdateÓï¾ä£¬ÌáʾÎÞ·¨¸ü ......
ÎÒ×öÁËÒ»¸öѧÉú»ñ½±ÐÅÏ¢µÄ±í£¬ÀïÃæ×Ö¶ÎÓкܶ࣬È磺ѧºÅ£¬ÐÕÃû£¬°à¼¶£¬ÁªÏµ·½Ê½£¬Äê¼¶£¬ÐÔ±ð£¬100Ã×£¬200Ã×£¬CET4£¬¼ÆËã»úµÈ¼¶,±¨¹ØÔ±£¬±¨¼ìÔ±£¬µÈµÈºÜ¶à£¬Ôõô²ð·Ö³É¼¸¸ö±í£¬ÈçºÎ×éÖ¯±í¼ä¹ØÏµ?
´ÓÄãµÄ˵Ã÷ÉÏ¿´²»³ö ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......