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

VB²éѯÓï¾äÐè¸÷λ½øÀ´¸Ä¸Äлл£¡

ÎÒÏëÒª²éѯ ¹ºÒ©ÈÕÆÚÓ뵱ǰÈÕÆÚСÓÚ7Ìì¡£µÄÓï¾ä¡£µ«ÊDz»ÖªµÀΪʲôÀϳö´í°¡£¬Ð»Ð»ÁË¡£

˵Ã÷£ºÏÂÃæµÄ´úÂëÒѾ­¿ÉÒÔʵÏÖÁË¡£µ«ÊÇÈç¹ûÌìÊýΪ±äÁ¿¸ÃÈçºÎÐ´ÄØ£¿Ð»Ð»
ÎÒ°Ñ-7¸Ä³É -aa¾Í²»ÐУ¬ÇÒaaΪ7ÇÒÊÇÊýÖµÐÍ¡£

strSql = "select * from info where ¹ºÒ©ÈÕÆÚ > #"-7 & DateValue(txt1data.Text) & "#  and ÐÕÃû  like '%" & strname & "%' or µç»° like '%" & strtel & "%' and ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "# -7"
strSql = "select * from info where ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "#-7  and ÐÕÃû  like '%" & strname & "%' or µç»° like '%" & strtel & "%' and ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "# -7"

Â¥ÉϵÄûÀí½âÒâ˼°¡£¡ÎÒÊÇ˵Èç¹ûÊDZäÁ¿¸ÃÔõôд£¿²»ÊÇ7


ǰºóÁ½¸öÖØ¸´ÁË
strSql = "select * from info where ¹ºÒ©ÈÕÆÚ > #"-7 & DateValue(txt1data.Text) & "#  and ÐÕÃû  like '%" & strname & "%' or µç»° like '%" & strtel & "%' and ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "# -7"

ÎÒÊÇÒª¼õ°¡¡£²»ÊǼӡ£¡£¡£ÎÒÊÇΪÁËÅжÏ7ÌìÄÚÈç¹ûÒªÊǹºÂò¹ýÒª×ö¸öÌáʾ°¡¡£

ÔΣ¬¸ºÊý²»¾ÍÊǼõÂð£¿

ÄܸøÒ»¸öÍêÕûµÄ´úÂëÂð£¿Ð»Ð»¡££¡£¡

ллÃ÷°×Á˺Ǻǡ£¡£

ÒýÓÃ


Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

ÔõôÓÃVB×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿

ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ