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

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ÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb - VB / »ù´¡Àà

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

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

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

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

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

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ