vbÈçºÎÖ´Ðдø²ÎÊýµÄ´æ´¢¹ý³Ì,²¢È¡µÃ·µ»ØÖµ
    
	
	СµÜ°ë·³ö¼Ò¿´Á˸övb³ÌÐò,½á¹ûÔÚÖ´Ðдø²ÎÊýµÄ´æ´¢¹ý³Ìʱ±¨´í,ÔÙ¾ÍÊÇÏëÎÊÈçºÎÈ¡·µ»ØÖµ; 
  
 Dim str_sql As String 
     str_sql = "Exec Pro_DFJS '" & str_CSVfailed & "'," & NowPrice & "," & baojingxianzhi & ",'" & str_sunhaoft1 & "','" & str_bjinclude & "','" & str_gongyongft & "'" 
   Dim str_jsxx  As String 
          Dim LastDb As New ADODB.Recordset 
          If Main_conn.State = 0 Then Main_conn.Open 
          With LastDb 
          .ActiveConnection = Main_conn 
          .Source = str_sql 
          .CursorLocation = adUseClient 
          .CursorType = adOpenStatic 
          .LockType = adLockReadOnly 
          .Execute str_sql 
          While Not .EOF 
              'Èç¹ûÊÇ0¼ÆËãʧ°Ü 
                 If Len(.Fields("bz")) = "0" Then 
                     fault = Trim(.Fields("falut")) 
                     str_jsxx 
    
 
	Ïà¹ØÎÊ´ð£º
        
    
    ¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
    
        
    
    Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
    
        
    
    ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
    
        
    
    °ïÎÒ¸Ä¸Ä  ÎÒ×ܾõµÃÓÐÎÊÌâ
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дһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......