vb ÔõôÅжϴ¢´æµÄÒ»¶ÎÎÄ×ÖÖÐÓÐijЩ×Ö
Àý×ÓÈçÏ£º
Êý¾Ý¿âfault_reason_nameÕâ¸ö×ֶδ¢´æÁË ¡°Çë²éѯҪ´òÓ¡³É¼¨µ¥µÄѧÉú¡±
È»ºó¶¨ÒåÁËÒ»¸ö±äÁ¿bx µ±±äÁ¿ÖµµÃµ½¡°´òÓ¡³É¼¨µ¥¡±Õ⼸¸ö×Öʱ
ÔõôÅжÏfault_reason_nameÕâ¸ö×Ö¶ÎÀïÃæÒ²ÓÐÕ⼸¸ö×Ö
Èç¹û¿ÉÒԵϰ »¹ÓбäÁ¿ÖµµÈÓÚ¡°Çë²éѯ³É¼¨µ¥¡±Õ⼸¸ö×Ö
È»ºófault_reason_name×Ö¶ÎÀïÒ²ÄÜÅжϳöÓÐÕ⼸¸ö×ÖÀ´
лл¸÷λ°ï¸öæ Ê®·Ö¸Ðл
µÚ¶þÖÖÖÐ ¡°Çë²éѯ¡± ¡°³É¼¨µ¥¡± ±ØÐëÒªÔÚÒ»ÆðµÄ ²»ÄÜ·Ö¿ª
like "*xxx*"
instr
len(replace(source, find, "")) <> len(source)
Â¥ÉÏÌṩµÄ¼¸ÖÖ·½Ê½¶¼¿ÉÒÔ
²»ºÃÒâ˼³õѧÕß ÇëÏêϸµãºÃÂð лл
source = "Çë²éѯҪ´òÓ¡³É¼¨µ¥µÄѧÉú"
if len(replace(source, "´òÓ¡³É¼¨µ¥", "")) <> len(source) then
msgbox "ÓÐ"
else
msgbox "ûÓÐ"
end if
source = "´òÓ¡³É¼¨µ¥µÄѧÉú"
if len(replace(source, "´òÓ¡³É¼¨µ¥", "")) <> len(source) then
msgbox "ÓÐ"
else
msgbox "ûÓÐ"
end if
лл caozhy »¹ÓÐÒ»ÎÊÌâÇë½ÌÏÂ
source = "Çë²éѯҪ´òÓ¡³É¼¨µ¥µÄѧÉú"
if len(replace(source, "´òÓ¡³É¼¨µ¥", "")) <> len(source) then
msgbox "ÓÐ"
else
msgbox "ûÓÐ"
end if
»¹µÃÅжÏËûûÓгýÁË¡°´òÓ¡³É¼¨
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......