¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-11-20 16:57 ½s¿è
Dim ±ø¥ó As String
Dim MYCON As ADODB.Connection
Dim MYRS As ADODB.Recordset
Set MYCON = New ADODB.Connection
MYCON.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ¸ê®Æ®w
Set MYRS = New ADODB.Recordset
With MYRS
.Source = "SELECT ½s¸¹,¦WºÙ,¹q¸Ü,¶Ç¯u FROM «È¤á¸ê®Æ WHERE ¹q¸Ü LIKE '%123%'"
.ActiveConnection = MYCON '«ü©w©Ò¨Ï¥ÎªºConnectionª«¥ó
.Open
End With
¥H¤Wµ{¦¡¥u¯à§ä¥X«È¤á¸ê®Æ¤º¹q¸ÜÄæ¦ì¤º¦³123ªº¸ê®Æ
¦Ó§Ú·Q(½s¸¹,¦WºÙ,¹q¸Ü,¶Ç¯u)³£n·j´M§t¦³123ªº¸ê®Æ
½Ð°Ýn¤À4¦¸·j´M¶Ü?
ÁÙ¬O¥i¥H¤@¦¸·j´M?
½Ð°Ý¤À4¦¸·j´M¤ñ¸û§ÖÁÙ¬O¤@¦¸·j´M
ÁÂÁÂ:) |