Question

我正在使用visual basic和visual studio 2010。

我研究了导入csv文件以访问数据库，我找到了这个通用代码。问题是，我在视觉基础方面真的很新。我声明了变量，但是我得到了错误：＆＃34;声明预期＆＃34; ..和Do while和Loop有一个错误：＆＃34;语句不能出现在方法之外

Public Class Form1
    Dim strPathFile As String
    Dim strFile As String
    Dim strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean

    blnHasFieldNames = True


    strPath = "C:\Users\vissia18\Desktop\ReportDB\"

    strTable = "Report"

    strFile = Dir(strPath & "*.csv")

    Do While Len(strFile) > 0
      strPathFile = strPath & strFile
      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
            strTable, strPathFile, blnHasFieldNames

      strFile = Dir()
Loop
End Class

Answer 1

我看到的第一件事是没有声明任何方法或子程序。这很重要。如何声明Main这样：

Public Class Form1
    Sub Main()
         Dim strPathFile As String
         Dim strFile As String
         ...
    End Sub
End Class

这将为您的应用程序提供一个启发点。

我可以建议MSDN - Microsoft Developer Network - 特别是视频标题为“Visual Basic Fundamentals：Absolute Beginners的开发”。

csv文件导入使用vba访问数据库

1 个答案: