ÎÒÊÇÓÃadodc1ÓëÒ»¸ödatagrid¿Ø¼þÖ±½ÓÓëaccessÊý¾Ý¿âÁ¬½Ó£¬Ä£ºý²éѯµÄ´úÂëÈçÏÂ
Private Sub Command1_Click()
Dim str As String
str = "select * from ½ÌʦÐÅÏ¢±í where ÐÕÃû Like '" & Text1 & "% '"
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
Î ......
vbÖÐÔõÑù²é¿´Õû¸öÎļþ¼ÐµÄ´óС
»¹ÓоÍÊÇÔõÑù²é¿´Îļþ¼ÐÄÚµÄÎļþ¸öÊý,Ï£Íû´ó´óÃÅ˵ÏÂ.ÎÒÐÂÊÖ¹þ.Ï£ÍûÄÜ˵Ïêϸµã.
¶ÔÏóFileSystemObjectÖеÄGetFolderµÄFiles(Îļþ¸öÊý),Size(Îļþ¼Ð´óС)
Dim fso As New FileSystemObject ¡¯ÒªÒý microsoft scripting runtime
Dim i, j ......
'Dim MyConn As New ADODB.Connection
'MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
'MyConn.Properties("Data Source") = SJK.TEXT
'MyConn.Properties("Jet OLEDB:System database") = GZZ.TEXT
'MyConn.Open UserID:=YHM.TEXT, Password:=MM.TEXT
& ......
ÎÒ×öµÄÒ»¸öVB³ÌÐòÐèÒª±»¶àÈËͬʱʹÓã¬Èç¹ûÎÒ°ÑÕâ¸öÈí¼þÔÚËûÃǵĻúÆ÷ÉÏÿÈË×°Ò»±é£¬¼È·Ñʱ¼äÒÔºóά»¤ÆðÀ´Ò²²»·½±ã£¬ËùÒÔÎÒÏëÊǰÑÕâ¸öVBÈí¼þ×°ÔÚ·þÎñÆ÷¶Ë£¬È»ºóÓû§ÔÚ×Ô¼ºµÄ×ÀÃæÉϽ¨Á¢Ò»¸öÕâ¸öÈí¼þÔÚ·þÎñÆ÷¶ËµÄ¿ì½Ý·½Ê½¡£ÕâÑù¶àÈËͬʱʹÓõϰ¿É²»¿ÉÒÔ£¿
²»ºÃ°É~~
²»ÈçÓÃcomà¶
com²»»á°¡ ´ó¸ç
ÕâÑù×ö ÓпÉÄÜ»á³öÏÖ ......
ÈçÏ£ºÈçºÎÓÃVBʵÏÖÌáÈ¡DCHNO¶ÔÓ¦µÄÊý¾Ý£¿Èç¹û»Ø´ðµÃºÃ£¬×·¼Ó¸ø·Ö£¬µÚÒ»´Î·¢Ìû£¡£¡£¡£¡
XXXX
ABCDEF1
CHGR SCTYPE SDCCH SDCCHAC TN CBCH HSN HOP DCHNO
0 4 ......
ÎÒÉèÖÃfrom1.borderstyle=0
µ«ÊÇÎÒ¼ÓÁË´°¿Ú²Ëµ¥ºó£¨Ïë×ölistviewµÄÓÒ¼ü²Ëµ¥¡££©
from1.borderstyle¾ÍʧȥЧ¹ûÁË¡£
»á³öÏֱ߿ò¡£¾Í×ö²»ÁËÆ¤·ôÁË¡£±¯¾ç°¡¡£
˸ø¸ö½â¾ö·½°¸£¿Ð»Ð»¸÷λ´óÉñÖ¸µã¡£
ÔõôûÈ˽øÀ´´î¸ö»°£¿
......