ÏÂÀ²Ëµ¥Á¬½Óaccess£¬ÈçºÎʹtext¿Ø¼þÏÔʾ¶ÔÓ¦µÄ×Ö¶Î
ÎÒÏëÊÇÏÂÀ²Ëµ¥ÏÔʾaccessÊý¾Ý¿âµÄ´¬²°±íµÄ´¬²°Ãûºó£¬text2ÏàÓ¦ÏÔʾ´¬²°±íÖÐÕâÌõ´¬µÄ¶Öλ¡£ÎÒ²»ÖªµÀ´úÂëÔõôд£¬Ð´ÔÚÄÄÀÂé·³¸÷λÁ˸æËßÎÒÒ»Éù£¬Ð»Ð»¸÷λ
Private Sub Form_Load()
bAdd = False
Dim strsql2 As String
Dim rs As New ADODB.Recordset
strsql2 = "select * from [´¬²°±í] order by id"
Set rs = queryext2(strsql2)
i = 0
With Combo1
Do While Not rs.EOF
.AddItem rs("´¬Ãû")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
strsql2 = "select * from [»õÎï±í] order by id"
Set rs = queryext3(strsql2)
i = 0
With Combo2
Do While Not rs.EOF
.AddItem rs("»õÎïÃû³Æ")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
strsql2 = "select * from [º½Ïß±í] order by id"
Set rs = queryext4(strsql2)
i = 0
With Combo3
Do While Not rs.EOF
.AddItem rs("º½ÏßÃû³Æ")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from[´¬²°É걨±í]"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Visible = False
End Sub
¼ÙÉèÄãµÄ´¬²°±íÖÐÓÐ×Ö¶Î"¶Öλ"
VB code
Code highlighting pr
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......
rt£¬ÎÒÊÔÁËÍøÉÏÖ±Á¬AccesÊý¾Ý¿âµÄ·½·¨,windowsÏÂûÓÐÎÊÌâ,µ«ÊÇÔÚlinuxϲ»ÐУ¬ËÄܸøµãÌáʾ£¿Ð»Ð»
ÄãÔõôÁ¬µÄ£¿
AccesÊý¾Ý¿â..
ÄãÔõôÁ·µÄÄØ£¿
Java code:
static String DBDRIVER = "sun.jd ......
±í½á¹¹:
table1
Ö¤¼þºÅ ʱ¼ä
X31 2010-01-11
3BC 2010-02-03
3AD 2010-02-03
F23 2010-02-09
......
ÏÖÔÚҪͳ¼ÆÒ»¸öʱ¼ä¶ÎÈç 2010-01-09 µ½ 2010-02-09¼äµÄÊý¾Ý,
ÆÚ´ý½ ......