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

¹ØÓÚvbÄ£¿éº¯ÊýµÄµ÷Óã¬Çë¸ßÊÖ½â´ð

Çë¿´¿´ÒÔϵ¼³öÎı¾ÎļþµÄÄ£¿éº¯Êý£¬ÎÒÓ¦¸ÃÔõôÔÚ°´Å¥µã»÷ʼþÖÐʵÏÖµ÷Óá£

Option Explicit

Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String)
        Dim rs As New ADODB.Recordset
        Set rs = New ADODB.Recordset
        Dim i As Long
        Dim WritStr As String
        Dim Fid As Long
        Dim lngCount As Long              ' ¼ÆÊý¡£

        If TextFileName = "" Then TextFileName = App.Path & "\" & TableName & ".txt"
        If objConn.State = 0 Then objConn.Open
        rs.Open "select * from " + TableName, objConn

        Fid = FreeFile
        rs.MoveFirst
        Open TextFileName For Output As #Fid
          WritStr = ""
          For i = 0 To rs.Fields.Count - 1
              WritStr = WritStr & "" & rs.Fields(i).Name & ","
          Next
          Prin


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

vb adodb.stream writeдÈëÍøÒ³´úÂëΪutf8±àÂëµÄÎÊÌâ

´ÓÍøÒ³Í¨¹ýinet¿Ø¼þµÄInet1.GetChunk¶ÁÈ¡Æä´úÂ룬ȻºóÏëת»»Îªºº×Ö£¬×ª»»´úÂëÈçÏÂ
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim strRecText As String
    Dim st ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

VB´°ÌåµÄÊôÐÔÉèÖôúÂë

Õâ¶Î³ÌÐòÖÐ
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "ËÙËã24"
    clientHeight = 6375
    clientLeft = 154 ......

vbÒì³£´¦Àí

vbÖÐÔõÑùʵÏÖÏñvb.netÒì³£´¦Àí(try....Catch ex As Exception...end try)¹¦ÄÜ£¿
ÓÑÇé°ï¶¥

ÎÞ·ÇÊÇOn error Goto ºÍErr.NumberÅжϰÉ?

ÏëÓÃvb6.0ʵÏÖÒÔÏÂvb.netµÄ¹¦ÄÜ£º
dim str as string 'Õâ¸öÒ»¸öÓ¦Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ