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

Çë½Ì!ÓõÄÊÇVB 6.0 - VB / ¿Ø¼þ

°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ£¬ÎÞ·¨¸üС£ÎÒÒ²²»ÐèÒª¸üÐÂÊý¾Ý£¬Ö»ÒªÄÜ×öµ½µÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¾ÍÐÐÁË¡£²»¸üÐÂÊý¾Ý¡£
֮ǰÎÒÓÃË«ÖØÑ­»·

µ«ÊÇÔËÐе½rs1.fields(z)=rs1.fields(z)+rs2.fields(i) z=10 i=11
¾Í»á³ö´í¡£Ô­ÒòÊÇÒ»µ©¸³Öµ¾Í»á¸üÐÂÊý¾Ý¿â£¬ÓÐʲô°ì·¨½â¾ö»òÈÆ¿ªÕâ¸öÎÊÌâ·¥£¿ÈçÓÐÖªµÀµÄ£¬Çë°ï¸öæ¡£
¼òµ¥µã˵¾ÍÊÇÄܶԷµ»ØµÄ½á¹û½øÐб༭µ«ÓÖ²»»á¸üÐÂÊý¾Ý¿âµÄ¿Ø¼þÓз¥£¿

ÒÔÖ»¶ÁµÄ·½Ê½¶ÁÈ¡Êý¾Ý¾ÍÊÇÁË


ÒýÓÃ
ÒÔÖ»¶ÁµÄ·½Ê½¶ÁÈ¡Êý¾Ý¾ÍÊÇÁË


Ö»¶ÁµÄ»°£¬¾Í²»ÄÜÐ޸Ľá¹ûÁË¡£ÎÒÏÖÔÚÒªµÄÊÇÄÜÐÞ¸Äͳ¼ÆµÄ½á¹û¼¯£¬µ«²»¸üÐÂÊý¾Ý¿â¡£

²»Ïë¸üÐÂÊý¾Ý¿â£¬½á¹û¼¯ÊÇÓÃÀ´ÏÔʾµÄ°É£¬ÔÚÏÔʾʱѡÔñÏ¡£

ÏÔʾµÄʱºò´¦Àí£¬°Ñ10ºÍ11Ïà¼Ó£¬11Ìø¹ý²»ÏÔʾ

ʹÓÃADOµÄ¶Ï¿ª¼Ç¼¼¯£¬ÉèÖÃSet RS.ActiveConnection = Nothing£¬ÕâʱÎÞÂÛÊÇAddNew¡¢Delete£¬¾ù²»»á¶Ôԭʼ¼Ç¼¼¯²úÉúÓ°Ïì¡£

¸½ÉÏÔ´Â룺
  If Not rsCopy7 Is Nothing Then Set rsCopy7 = Nothing

  Set rsCopy7 = Module2.rs.Clone  
  While Not rsCopy7.EOF
  If (rsCopy7.AbsolutePosition = 10) Then
  While Not Module2.rs.EOF
  If (Module2.rs.AbsolutePosition = 11) Then
  For Z = 2 To 13
 


Ïà¹ØÎÊ´ð£º

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

°ïÎҸĸÄÕâ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 DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ