【发布时间】：2014-05-25 20:42:59
【问题描述】：
我能够很好地连接到数据库，但是当我尝试插入时，我得到了这个神秘的错误：
发生错误 0：命令执行期间遇到致命错误。
我已经检查过了，我的所有参数都有值，它们与列标题完全匹配，除了 ID 是自动递增的。
请问我哪里出错了？
Dim iReturn As Boolean
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim strConnection = "server=" & txtServer.Text & ";" _
& "user id=" & txtUsername.Text & ";" _
& "password=" & txtPassword.Text & ";" _
& "database=" & txtDatabase.Text
conn.ConnectionString = strConnection
Try
conn.Open()
cmd.Connection = conn
cmd.CommandText = "INSERT INTO twc_data VALUES(@todaysdate,@fname,@mname,@lname,@address,@city,@state,@zip,@email,@arPhone(0),@arPhone(1),@arPhone(2),@arCategory(0),@arCategory(1),@arJob1(1),@arJob1(2),@arJob1(3),@arJob1(4),@arJob1(5),@arJob2(1),@arJob2(2),@arJob2(3),@arJob2(4),@arJob2(5),@arJob3(1),@arJob3(2),@arJob3(3),@arJob3(4),@arJob3(5),@arCategory(2),@arCategory(3),@arCategory(4),@arCategory(5),@arCategory(6),@arCategory(7),@arCategory(8),@arCategory(9),@arCategory(10),@pdfilename,@strText)"
cmd.Prepare()
With cmd
.Prepare()
.Parameters.AddWithValue("@todaysdate", param(0))
.Parameters.AddWithValue("@fname", param(1))
.Parameters.AddWithValue("@mname", param(2))
.Parameters.AddWithValue("@lname", param(3))
.Parameters.AddWithValue("@address", param(4))
.Parameters.AddWithValue("@city", param(5))
.Parameters.AddWithValue("@state", param(6))
.Parameters.AddWithValue("@zip", param(7))
.Parameters.AddWithValue("@email", param(8))
.Parameters.AddWithValue("@arPhone(0)", param(9))
.Parameters.AddWithValue("@arPhone(1)", param(10))
.Parameters.AddWithValue("@arPhone(2)", param(11))
.Parameters.AddWithValue("@arCategory(0)", param(12))
.Parameters.AddWithValue("@arCategory(1)", param(13))
.Parameters.AddWithValue("@arJob1(1)", param(14))
.Parameters.AddWithValue("@arJob1(2)", param(15))
.Parameters.AddWithValue("@arJob1(3)", param(16))
.Parameters.AddWithValue("@arJob1(4)", param(17))
.Parameters.AddWithValue("@arJob1(5)", param(18))
.Parameters.AddWithValue("@arJob2(1)", param(19))
.Parameters.AddWithValue("@arJob2(2)", param(20))
.Parameters.AddWithValue("@arJob2(3)", param(21))
.Parameters.AddWithValue("@arJob2(4)", param(22))
.Parameters.AddWithValue("@arJob2(5)", param(23))
.Parameters.AddWithValue("@arJob3(1)", param(24))
.Parameters.AddWithValue("@arJob3(2)", param(25))
.Parameters.AddWithValue("@arJob3(3)", param(26))
.Parameters.AddWithValue("@arJob3(4)", param(27))
.Parameters.AddWithValue("@arJob3(5)", param(28))
.Parameters.AddWithValue("@arCategory(2)", param(29))
.Parameters.AddWithValue("@arCategory(3)", param(30))
.Parameters.AddWithValue("@arCategory(4)", param(31))
.Parameters.AddWithValue("@arCategory(5)", param(32))
.Parameters.AddWithValue("@arCategory(6)", param(33))
.Parameters.AddWithValue("@arCategory(7)", param(34))
.Parameters.AddWithValue("@arCategory(8)", param(35))
.Parameters.AddWithValue("@arCategory(9)", param(36))
.Parameters.AddWithValue("@arCategory(10)", param(37))
.Parameters.AddWithValue("@pdfilename", param(38))
.Parameters.AddWithValue("@strText)", param(39))
End With
cmd.ExecuteNonQuery()
iReturn = True
Catch ex As MySqlException
param(40) = "Error " & ex.Number & " has occurred: " & ex.Message
logError()
iReturn = False
Finally
conn.Close()
End Try
Return iReturn
【问题讨论】：
-
将SQL代码复制成字符串，尝试直接在my sql server上执行
-
真的有no关于异常的其他信息吗？您似乎正在丢弃可能有用的信息，例如堆栈跟踪或任何潜在的内部异常或
MySqlException上的任何其他属性。不要丢弃有关错误的信息。 -
参数名称中是否允许使用括号？即使它们是，是否允许使用 unmatched 括号？ （参见参数 39）尝试不使用所有这些括号，可能这些是数据库的语法错误。