vb实现选择txt文件导入ACCes数据库

Private Sub Command2_Click()

    Dim Arr() As String, FN As Integer, Data As String

    Set cnn = New ADODB.Connection

    If Len(Dir(combo1.Text)) = 0 Then

        MsgBox "请选择导入数据！", vbInformation, "提示"

    Else

        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & Replace(App.Path & "\db.mdb", "\\", "\") '连接数据源

        cnn.Open

        FN = FreeFile

        Open combo1.Text For Input As FN

        Do Until EOF(FN)

            Line Input #FN, Data

            If InStr(Data, ",") > 0 Then

                Arr = Split(Data, ",")

                '数据库里的字段和TXT文件里的内容对应关系你自己处理吧,你都没说清楚的

                cnn.execute "insert into PD(no,fsc) values ('" & Arr(0) & "','" & Arr(1) & "')"

            End If

        Loop

        Close #FN

        cnn.Close

        MsgBox "完成"

    End If

    Set cnn = Nothing

 End Sub

补充：VB ,  基础类

上一个：VB程序打包在别的机子运行提示运行时错误430：类不支持自动化或不支持期望接口
下一个：有其他办法获取网页某IMG元素的图像么