ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
0023939608011»Æ¸ùÑø 1000 0100100 E
0025069060011»ÆÕñÔ« &nbs ......
Ò»¸ö´°Ì壬3¸ödatagrid£¬¹²¼Æ3¸ö±í£¬Ò»¸ö±í¶ÔÓ¦Ò»¸ödatagrid£¬µã»÷datagrid1(´ò¿ª¸Ã´°ÌåʱÒѾ±»¸³Öµ)£¬¸ù¾Ýdatagrid1ÖеÄij¸öÖµ£¬²éѯ±í2ºÍ±í3£¬²¢°Ñ·ûºÏÌõ¼þµÄ·Ö±ð¸³Öµ¸ødatagrid2ºÍdatagrid3£¬ÒªÔõôд
VB code:
Private Sub DataGrid1_Click()
'ÔÚ´Ë´¦Ð´SQL²éѯÓï¾ä»ñµÃ¼Ç¼¼¯,²¢°ó¶¨¸Ã¼Ç¼¼¯µ½ÁíÍâµÄDat ......
ÈçÌâ~~
MSDN£¬Google£¬Ïëϵͳѧ½¨Ò黹ÊÇÂò±¾Êé¿´°É£¬±Ï¾¹ÊÖ´òµÄ´úÂë¼ÇÒäÒª±È¸´ÖƵÄÉî¿Ì¡£
ÎÒÒª±ßѧ±ßÓÃÔÚ´úÂëÀïÃ棬¿Ï¶¨ÒªÊÖ´òµÄÁË
¿´¿´sql server 2005µÄ°ïÖúºÜÈ«Ãæ»ò¿´¿´Êé
http://topic.csdn.net/u/20090806/09/0274a33c-b670-4886-92f5-7289339f2010.html
網ÉÏ應該ÓкܶàµÄ
×£¸£ ......
ÔÚVBÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄSQLÓï¾ä
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
±ÈÈ磺
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='" & text1.text & "'")
¹Ø¼üÊÇIsnull(f_102,0)+ 1Õⲿ·ÖÈçºÎ´¦Àí£¿
......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)
È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc
ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË
½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ
ÎÒµ÷ÓõÄword ÎҰѲ˵¥ ¹¤¾ßÀ¸È«¶¼Òþ²ØÁ˵± Ò»¸ö±à¼¿ò
²»ÖªµÀºÍÒþ²ØµÄ²Ëµ¥ ºÍ¹¤¾ßÓÐûÓйØϵÄØ
Õ ......
ÎÒÏëдһ¸öasp¶ÁÈ¡±¾µØ»ú×ÓµÄÍøÍ«µÄ¹¦ÄÜ£¬ÐèÒªÓÃvbдһ¸ödll ÔÚÍøÉÏÕÒÁËһϣ¬°ÑÏÂÃæµÄ¶Î¿½Èëvb¹¤³ÌÀ
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Cons ......