| ²é¿´: 390 | »Ø¸´: 0 | ||
HoneyZhuÌú¸Ëľ³æ (ÕýʽдÊÖ)
|
[ÇóÖú]
VB ½« mdbÎļþÖеÄÖ¸¶¨ ±í ¸´ÖÆ
|
|
ͨ¹ý²éѯ£¬µÃµ½ÐèÒªµÄ *.mdb ÎļþÖеıíÃû£¬ÏÖÔÚÒª½«ÕâЩָ¶¨Ãû³ÆµÄ±í¸´ÖƵ½Ò»¸öÐÂµÄ¿Õ°× *.mdb ÎļþÖУ¬Ä¿Ç°ÒѾ¾µÃµ½µÄ±íÃû´æ·ÅÔÚ listbox ÖУ¬ÔÚ¸´ÖÆÊ±³öÁËÎÊÌâ£¬ÍøÂçËÑË÷δÕÒµ½ÂúÒâ´ð°¸£¬Ï£Íû´ó¼ÒÄܰï°ï棬 Dim cn As New Connection, strSQL As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str2 ''Ä¿±ê mdb ¶ÔÏó, н¨µÄ mdb Îļþ Dim i For i = 0 To List1.ListCount - 1 strSQL = "SELECT * INTO List1.list(i) FROM List1.list(i) IN '" & App.Path & "\db1.mdb'" ''Ô´ mdb ¶ÔÏó cn.Execute strSQL Next i cn.Close Set cn = Nothing strSQL = "SELECT * INTO List1.list(i) FROM List1.list(i) IN '" & App.Path & "\db1.mdb'" ÔËÐÐʱ£¬¾ÍÊÇÕâ¾ä³öÁËÎÊÌ⣬ List1.list(i)¿ÉÒÔдÔÚÕâÀïÂð£¿ÈçºÎÐ޸ģ¿Ð»Ð»£¡£¡£¡ |
» ²ÂÄãϲ»¶
0703±¾¿ÆÖ£ÖÝ´óѧÇóµ÷¼Á
ÒѾÓÐ3È˻ظ´
311Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
Ò»Ö¾Ô¸»ªÀí£¬ÊýÒ»Ó¢Ò»285ÇóAÇøµ÷¼Á
ÒѾÓÐ11È˻ظ´
µ÷¼Á310
ÒѾÓÐ5È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
349Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
±¾¿ÆÐÂÄÜÔ´¿ÆÑ§Ó빤³Ì£¬Ò»Ö¾Ô¸»ªÀíÄܶ¯285Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
²ÄÁÏÇóµ÷¼Á
ÒѾÓÐ9È˻ظ´
299Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´














»Ø¸´´ËÂ¥
20