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

VB²éѯaccessÊý¾Ý¿â - VB / »ù´¡Àà

Êý¾Ý¿â½á¹¹ÊÇÕâÑùµÄ ²éѯ³öÀ´ÊÇÒ»¸öͳ¼ÆÐ§¹û
²éѯ³öÀ´¾ÍÊÇ µ±ÈÕÆÚΪʲôµÄʱºò ÕâÒ»ÌìËùÓÐÊý¾ÝµÄͳ¼Æ
sql = "select FScrq from TJlb "
Call OpenConn2
rs2.Open sql, cn2, 1, 1
  Do While Not rs2.EOF
  sql = "select sum(FScrq) as FScrq from TJlb where FScrq = '" & rs2!FScrq & "'"
  rs1.Open sql, cn2, 1, 1
   
  rs2.MoveNext
  Loop
  Call CloseConn2
ÏÂÃæ²»ÖªµÀÒªÔõôдÁË

http://download.csdn.net/source/1498324
http://download.csdn.net/source/1644211

²»ÖªËùÔÆ

£Ç£ï£ï£ç£ì£åһϡ°£Á£ã£ã£å£ó£ó£¬£Ö£Â£¶£¢£¬ÕÒ¼¸¸öÀý×Ó°É¡£

ÒýÓÃ
²»ÖªËùÔÆ

¶¥

û¿´µ½picture

Ôõô»áÓÐÕâÑùµÄÌû×Ó......
{{


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

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

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

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

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ