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

VBÖйØÓÚÃÜÂëÈÏÖ¤

ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë
È»ºó¸úÊäÈëµÄÄÚÈݱȽÏ
ºÜ¼òµ¥µÄ¶«Î÷ÔõôҲҪ´úÂë

²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿

ÔÚͨÓÃÀﶨÒåÒ»¸ö±äÁ¿,µã¡°É¾³ýÓû§¡±µÄʱºò ÓÃÕâ¸ö±äÁ¿¼Ç¼һÏÂÄã²Ù×÷µÄÊÇɾ³ýÓû§»¹ÊÇÌí¼ÓÓû§
È»ºóÔÚÅжÏÕýÈ·Óë·ñºóÔÙÇø·Ö


ʹÓÃAccessÊý¾Ý¿â¼´¿É£¬Êý¾Ý¿âÖÐÉè¼ÆÒ»¸ö±í£¬±íÖк¬ÓУºÓû§ÃûºÍÓû§ÃÜÂëÁ½¸ö×ֶΣ¬´ò¿ªÊ±½øÐÐÌõ¼þ²éѯ¼´¿É£¬Èç¹ûÂ¥Ö÷ÊdzõѧÕߵϰ£¬½¨ÒéÄãÏÈ¿´Ò»Ð©¹ØÓÚÊý¾Ý¿â±à³Ì·½ÃæµÄ»ù´¡Êé¼®¡£

1.Êý¾Ý¿âÖмǼÕ˺ÅÃÜÂë;
2.Èç¹û½öÐèÑéÖ¤¹ÜÀíÔ±ÃÜÂë,¶ø²»ÓÃÊäÈëÕ˺Å,Ö±½ÓÓøöinputbox¾Í¿ÉÒÔÁË;·ñÔò,ÐèŪһ¸öСµÄµ¯³ö´°¿ÚÑéÖ¤;
3.¸ù¾Ý²»Í¬µÄÐèÒª(ɾ³ýÓû§orÌí¼ÓÓû§)½øÈ벻ͬµÄ²Ù×÷½çÃæ;

ÒýÓÃ
²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿


Äã¿ÉÒÔÔÚµãµÄÊÇ¡°É¾³ýÓû§¡±°´Å¥µÄʼþÀïÉèÖÃתµ½ÄǸö´°Ì壬µ«ÔÚÕâ֮ǰҪ¼ÓÉÏÑéÖ¤Óû


Ïà¹ØÎÊ´ð£º

¼Ùǰ×îºóÒ»ÌûASPµ÷ÓÃVB×é¼þ

ÎÒÓÃVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷ÓÃ
BLL²ã
VB code:

Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub

ASPÖе÷ÓÃ
VB c ......

¶ÔÏó´ò¿ªÊ±£¬²»ÔÊÐí²Ù×÷¡£ vb·â×°asp

ÔÚ×öÊ÷ÐÍĿ¼ʱ³öÏֵģ¬ÒÔÏÂÊDz¿·Ö´úÂë

VB code:

Function TreeMenu(id)
sql = "select * from Class where CateID=1"
rs.Open sql, cover, 1, 1
While Not rs.EOF
Response.Write rs(&quo ......

vb datagrid sql

Ò»¸ö´°Ì壬3¸ödatagrid£¬¹²¼Æ3¸ö±í£¬Ò»¸ö±í¶ÔÓ¦Ò»¸ödatagrid£¬µã»÷datagrid1(´ò¿ª¸Ã´°ÌåʱÒѾ­±»¸³Öµ)£¬¸ù¾Ýdatagrid1ÖеÄij¸öÖµ£¬²éѯ±í2ºÍ±í3£¬²¢°Ñ·ûºÏÌõ¼þµÄ·Ö±ð¸³Öµ¸ødatagrid2ºÍdatagrid3£¬ÒªÔõôд

VB ......

vb MSFlexGrid1.Row ʵʱ´íÎó'30009'RowÊýÖµÎÞЧ

´úÂëÈçÏ£º
Private Sub MSFlexGrid1_SelChange()
  If MSFlexGrid1.Rows = 1 Then Exit Sub
  If MSFlexGrid1.Row = 0 Then Exit Sub
 
  grid_row = MSFlexGrid1.Row
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ