VB.net ACCESS - .NET¼¼Êõ / VB.NET
ÔÚ²éѯÊý¾Ý¿âÐÅϢʱ£¬Ìõ¼þÊǺÍÊý¾Ý¿âÀïµÄÊý×ÖÐÍ×ֶαȽϣ¬µ÷ÊÔʱ×ÜÊÇÖ´ÐÐʧ°Ü£¬Ëµ±ê×¼±í´ïʽÉϵÄÊý¾ÝÀàÐͲ»Æ¥Åä
²éѯÓï¾ä£º Serchstr = "SELECT Tablenum as ×ÀºÅ,Conperson as ÈÝÄÉÈËÊý, Status as µ±Ç°×´Ì¬,Roomum as ËùÊô·¿¼ä from TableInfo WHERE Conperson>= '" & Min & "' AND Conperson <= '" & Max & "'"
½ÓÊյıäÁ¿£ºMin = Me.NumericUpDown1.Value
Max = Me.NumericUpDown2.Value
¸÷λ¸ßÊÖ¸øÐ¡µÜÖ¸µãÏÂ
Me.NumericUpDown2.ValueµÄÖµÊÇÕûÐεİɣ¿
Conperson>= " & Min & "
Êǵģ¬ÕûÐÍ ÊDz»ÊÇÒªÇ¿ÖÆ×ª»»ÏºͿâÀï¶ÔÓ¦ÉÏÁË£¬²Å¿ÉÒÔ£¬Ôõôת»»
¾Í°´ÕÕ1¥˵µÄ£¬È¥µôµ¥ÒýºÅÊÔÊÔ¡£
¸Ðл¸ßÊÖÃÇ£¬³ÉÁË£¬ºÇºÇ
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......