VBº¯ÊýÖÐÓÐûÓÐÀàËÆÓÚsqlÖÐlikeµÄº¯Êý - VB / »ù´¡Àà
ÈçÌ⣬VBÖÐÓÐûÓÐÀàËÆÓÚsqlÖÐlikeµÄº¯Êý£¬ÈçÒ»ÏÂSQLÓï¾äÔõôÓÃVBʵÏÖ
( str like ¡®%Éî%ÛÚ%¡¯ or str is null or str ='')
ÔÚVBÖÐÔõôÅжÏÒ»¸ö×Ö·û´®str°üº¬ÓС°ÉîÛÚ¡±×ÖÁ½¸öÔÚÀïÃæ»òÕßΪ¿Õ
InStr º¯Êý
·µ»Ø Variant (Long)£¬Ö¸¶¨Ò»×Ö·û´®ÔÚÁíÒ»×Ö·û´®ÖÐ×îÏȳöÏÖµÄλÖá£
Óï·¨
InStr([start, ]string1, string2[, compare])
InStr º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃæµÄ²ÎÊý£º
²¿·Ö ˵Ã÷
start ¿ÉÑ¡²ÎÊý¡£ÎªÊýÖµ±í´ïʽ£¬ÉèÖÃÿ´ÎËÑË÷µÄÆðµã¡£Èç¹ûÊ¡ÂÔ£¬½«´ÓµÚÒ»¸ö×Ö·ûµÄλÖÿªÊ¼¡£Èç¹û start °üº¬ Null£¬½«·¢Éú´íÎó¡£Èç¹ûÖ¸¶¨ÁË compare ²ÎÊý£¬ÔòÒ»¶¨ÒªÓÐ start ²ÎÊý¡£
string1 ±ØÒª²ÎÊý¡£½ÓÊÜËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
string2 ±ØÒª²ÎÊý¡£±»ËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
Compare ¿ÉÑ¡²ÎÊý¡£Ö¸¶¨×Ö·û´®±È½Ï¡£Èç¹û compare ÊÇ Null£¬½«·¢Éú´íÎó¡£Èç¹ûÊ¡ÂÔ compare£¬Option Compare µÄÉèÖý«¾ö¶¨±È½ÏµÄÀàÐÍ¡£
ÉèÖÃ
compare ²ÎÊýÉèÖÃΪ£º
³£Êý Öµ ÃèÊö
vbUseCompareOption -1 ʹÓÃOption Compare Óï¾äÉèÖÃÖ´ÐÐÒ»¸ö±È½Ï¡£
vbBinaryCompare 0 Ö´ÐÐÒ»¸ö¶þ½øÖƱȽϡ£
vbTextCompare 1 Ö´ÐÐÒ»¸ö°´ÕÕÔÎĵıȽϡ£
vbDatabaseCompare 2 ½öÊÊÓÃÓÚMicrosoft Access£¬Ö´ÐÐÒ»¸ö»ùÓÚÊý¾Ý¿âÖÐÐÅÏ¢µÄ±È½Ï¡£
·µ»ØÖµ
Èç¹û InStr·µ»Ø
string1 ΪÁ㳤¶È 0
string1 Ϊ Null Null
string2 ΪÁ㳤¶È Start
string2 Ϊ Null Null
string2 ÕÒ²»µ½ 0
ÔÚ string1 ÖÐÕÒµ½string2 ÕÒµ½µÄÎ
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP
²Î¿¼:http://hi.baidu.com/toiota ......
×Ö¶Î1,×Ö¶Î2.....×Ö¶ÎN,Status,ParentID
1,Name1....test1,1,99
1,Name1....test1,3,99
1,Name2....test2,1,101
1,Name2....test2,3,101
1,Name3....test3,2,101
1,Name1....test1,4,101
ÏëÒªµÄ½á¹ûÊÇ:
1,Na ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......