¹ØÓÚVBʹÓÃActiveX.Exe´´½¨¶àÏ̳߳ÌÐòµÄÆæ¹ÖÎÊÌâ
'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT
'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
Set cBT=CreateObject("¹¤³ÌÃû.BT")
'ÔÚLoadʼþÖд´½¨µÄ¶ÔÏó(ÕâÀïÓ¦¸Ã²»ÄÜÕâô˵,Õâ¸öLoadÊÇÓÉSub MainÖÐÖ±½Óµ÷ÓõÄ... Ó¦¸ÃÊÇ[ÔÚSub MainÖд´½¨µÄ¶ÔÏó]),
'Õâ¸ö¶ÔÏóÎÞÂÛÈçºÎ,¶¼»¹ÊÇÓëÖ÷Ï̴߳¦ÓÚͬһÏß³ÌËÆ
'ÊÇ·ñ´¦ÓÚͬһÏß³Ìû·¨Ö¤Êµ,µ«ÊÇÕâÀï´´½¨µÄÏß³ÌÖ»Òª¹ÒÆð,Ö÷´°¿Ú¾Í»á¹Ò»ú
End Sub
'µ«ÕâÐдúÂë
Set cBT=CreateObject("¹¤³ÌÃû.BT")
·ÅÔÚÆäËüʼþÖС£¡£±ÈÈç form_Active(),Buttom_Click()ÀïÃæ
×ÓÏ̹߳һú£¬Ö÷´°¿Ú»¹ÊÇÕý³£ÄܽÓÊÕÏûÏ¢µÄ
¾Í»áÕý³£¡£¡£¡£¡£
ÓôÃÆÄÅ¡£¡£¡£ ²ðÁËÒ»¸öÉÏÎç¡£¡£¡£
×ÜÒÔΪÊÇÆäËüÀàÀïÃæµ÷ÓÃÁËɶÔì³ÉÖ÷´°¿Ú¿¨ËÀ¡£¡£¡£ ûÏëµ½»áÊÇÕâÑù¡£¡£ £º£¨
¼ÌÐøÕÛÌÚ¡£¡£¡£¡£¡£¡£
Ïà¹ØÎĵµ£º
1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
Option Explicit
Private Sub cmd1_Click()
&nb ......
len£¨string£©£º¼ÆËã×Ö·û´®³¤¶Èº¯Êý¡£·µ»Ø×Ö·û´®stringÖÐ×Ö·ûµÄ¸öÊý¡£Ò»¸öºº×ÖΪһ¸ö×Ö·û£¬¿Õ¸ñҲΪһ¸ö×Ö·û£¬¿Õ×Ö·û´®µÄ³¤¶ÈΪ0.
Ltrim£¨string£©¡¢Rtrim£¨string£©¡¢Trim£¨string£©£º
Ltrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®string×ó±ß¿Õ¸ñÖ®ºóÊ£ÓàµÄ²¿·Ö¡£
Rtrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®ÖÐstringÓ ......
WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
'ÔÚÒýÓÃÀïÌí¼ÓADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=ÃÜÂë;Persist Security Info=True;User ID=ÓÃ" & _
"»§;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû"
  ......
Dim rs As ADODB.Recordset
Dim sqlstr As String
'²éѯ
sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
rs = VScn.Execute("" & SqlSt ......