Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb+sql

ÔÚ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Õⲿ·ÖÈçºÎ´¦Àí£¿
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,1) Where FNumber='" & text1.text & "'")

ISNULL
ʹÓÃÖ¸¶¨µÄÌæ»»ÖµÌæ»» NULL¡£

Óï·¨
ISNULL ( check_expression , replacement_value )

²ÎÊý
check_expression

½«±»¼ì²éÊÇ·ñΪ NULLµÄ±í´ïʽ¡£check_expression ¿ÉÒÔÊÇÈκÎÀàÐ͵ġ£

replacement_value

ÔÚ check_expression Ϊ NULLʱ½«·µ»ØµÄ±í´ïʽ¡£replacement_value ±ØÐëÓë check_expresssion ¾ßÓÐÏàͬµÄÀàÐÍ¡£

·µ»ØÀàÐÍ
·µ»ØÓë check_expression ÏàͬµÄÀàÐÍ¡£

×¢ÊÍ
Èç¹û check_expression ²»Îª NULL£¬ÄÇô·µ»Ø¸Ã±í´ïʽµÄÖµ£»·ñÔò·µ»Ø replacement_value¡£



ÎÒд´íÁË£¬²»ºÃÒâ˼¡£
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+intJ-1 Where FNumber='" & text1.text & "'")
ÊDZäÁ¿¡£

cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,1) Where FNumber='" & text1.text & "'")

cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+" & (intJ-1) & " Where FNum


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb ÄÚ´æÒç³ö£¿£¿ - VB / »ù´¡Àà

ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
  ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôԭÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ