如何从文本文件中导入数据（不是弱智问题，近来看了就知道了）

Question

VB中导入? 为什么一定要在VB中导入呢? 方法不难,效率不高而已.
在VB中,打开文本文件,逐行读取,然后再分拆写入SQL数据库就行了.

Answer 1

'导入处理的过程
Sub s_SaveToDb(ByVal sFileName$, ByVal iDb As Object)
    Dim iFn As Object
    
    Dim iSql$, iStr$
    
    Set iFn = CreateObject("FileSystemObject").OpenTextFile("c:\1.txt", 1)
    
    With iFn
        While .AtEndOfStream = False
            iStr = iFn.ReadLine
            iStr = "insert 表(帐号,日期,借贷方标志,发生额,序号) values('" & vbCrLf & _
                Replace(Mid(iStr, 2, Len(iStr) - 2), "|", "','") & "')"
            iDb.Execute iSql
        Wend
        iFn.Close
    End With
End Sub
'调用示例
'要求引用Microsoft ActiveX Data Objects 2.x Library
'
'数据库连接字符串模板
'身份验证模式为:"sql server和windows"
'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名
'
'身份验证模式为:"仅windows"
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=SQL服务器名Sub test()
    Dim iDb As ADODB.Connection
    Dim iConn$
    
    '数据库连接字符串    iConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
    
    Set iDb = New ADODB.Connection
    iDb.Open iConn
    
    s_SaveToDb "c:\a.txt", iDb '要导入的文本文件: c:\a.txt
    
    iDb.Close
    Set iDb = Nothing
End Sub

Answer 2

在ASP.net怎么实现呢,zjcxc(邹建)