Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

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

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
  Do While Not TDBG_Dept.EOF
  If A> ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ