Question

Net我正在尝试根据文件夹中的excel文件创建数据库。到目前为止，我根据目前的知识做了一些，并且返回错误。这种方法是否正确，或者是否有更有效的方法来创建数据库

 Try
        Dim pro() As Process = System.Diagnostics.Process.GetProcessesByName("EXCEL")
        For Each p As Process In pro
            p.Kill()
        Next
        Dim cmd As New MySqlCommand
        Dim con As New MySqlConnection("Server=Localhost;Database=aj; Uid=root; pwd=;")
        con.Open()
        Dim filename As String
        Dim oex As Object
        oex = CreateObject("Excel.Application")
        Dim obfldr As Object
        Dim fldrobj As Object
        Dim fs As Object
        fs = CreateObject("Scripting.FileSystemObject")
        obfldr = fs.GetFolder("C:\New folder\Release")
        For Each fldrobj In obfldr.files
            ln = fldrobj.Name
            MsgBox(ln)
            filename = FileNameWithoutExtension(fldrobj.name)
            MsgBox(filename)
            cmd = New MySqlCommand("CREATE DATABASE IF NOT EXISTS'" & filename & "'", con)
            Dim adp As New MySqlDataAdapter(cmd)
            Dim read As MySqlDataReader
            read = cmd.ExecuteReader
        Next fldrobj
 Catch ex As Exception
        MsgBox(ex.Message)
    End Try

任何人都可以帮我解决这个问题吗？

Answer 1

更改这样的代码解决了我的问题。而且我还必须从sql语句中删除空格和冒号，否则它将返回错误

 For Each fldrobj In obfldr.files
            ln = fldrobj.Name
            filename = FileNameWithoutExtension(fldrobj.name)
            filename = filename.Replace("-", "")
            filename = filename.Replace(" ", "")
            cmd = New MySqlCommand("CREATE DATABASE IF NOT EXISTS " & filename, con)
            cmd.Connection.Open()
            cmd.ExecuteNonQuery()
 Next fldrobj

动态创建数据库时返回错误

1 个答案: