写入SQL的问题

Question

我在VB.Net中写了几个月，并成功地在我的代码中多次使用了SQL命令，但在写入数据库中的某个特定表时遇到了麻烦。我相信问题在于我有一个数字列，我正在尝试写入（我得出了这个结论，因为它是我唯一不常使用的唯一一个），并且我的代码不断出现异常：Additional信息：SqlCommand.Prepare方法要求所有可变长度参数具有明确设置的非零大小。与代码：

Dim cn As System.Data.SqlClient.SqlConnection 
    Dim command As System.Data.SqlClient.SqlCommand 

    Dim VL1 As System.Data.SqlClient.SqlParameter 
    Dim VL2 As System.Data.SqlClient.SqlParameter 
    Dim VL3 As System.Data.SqlClient.SqlParameter 
    Dim VL4 As System.Data.SqlClient.SqlParameter 

    Dim commandText As String 

    cn = New System.Data.SqlClient.SqlConnection(ConnectStr) 
    cn.Open() 

    commandText = "INSERT INTO [dbo].[HourMeterLog]" _ 
        + "([MachineName],[TotalHours],[HLRD],[DateTime])" _ 
        + "VALUES (@VL1,@VL2,@VL3,@VL4)" 

    command = New System.Data.SqlClient.SqlCommand(commandText, cn) 

    VL1 = command.Parameters.Add("@VL1", System.Data.SqlDbType.NVarChar, 25) 
    VL2 = command.Parameters.Add("@VL2", System.Data.SqlDbType.Float) 
    VL3 = command.Parameters.Add("@VL3", System.Data.SqlDbType.Int, 10) 
    VL4 = command.Parameters.Add("@VL4", System.Data.SqlDbType.DateTime2, 0) 

    command.Prepare() 

    VL1.Value = "MachineName" 
    VL2.Value = 0 
    VL3.Value = 735562 
    VL4.Value = Now() 

    command.ExecuteNonQuery() 

    cn.Close() 

我知道我的代码连接，因为我有至少15个其他查询使用这种格式。我宁愿不使用float来写入数值字段，但是我第一次启动此代码（从此以后不再使用）就可以工作。

Answer 1

根据MSDN的DateTime2的最大字符长度为27，所以我的DateTime2的长度设定为27和它的工作的罚款。

VL4 = command.Parameters.Add("@VL4", System.Data.SqlDbType.DateTime2, 27) 

而我的工作代码，

Dim cn As System.Data.SqlClient.SqlConnection 
    Dim command As System.Data.SqlClient.SqlCommand 

    Dim VL1 As System.Data.SqlClient.SqlParameter 
    Dim VL2 As System.Data.SqlClient.SqlParameter 
    Dim VL3 As System.Data.SqlClient.SqlParameter 
    Dim VL4 As System.Data.SqlClient.SqlParameter 

    Dim commandText As String 

    cn = New System.Data.SqlClient.SqlConnection(connectionString) 
    cn.Open() 

    commandText = "INSERT INTO [dbo].[HourMeterLog]" _ 
        + "([MachineName],[TotalHours],[HLRD],[DateTime])" _ 
        + "VALUES (@VL1,@VL2,@VL3,@VL4)" 

    command = New System.Data.SqlClient.SqlCommand(commandText, cn) 

    VL1 = command.Parameters.Add("@VL1", System.Data.SqlDbType.NVarChar, 25) 
    VL2 = command.Parameters.Add("@VL2", System.Data.SqlDbType.Float) 
    VL3 = command.Parameters.Add("@VL3", System.Data.SqlDbType.Int, 10) 
    VL4 = command.Parameters.Add("@VL4", System.Data.SqlDbType.DateTime2, 27) 

    command.Prepare() 

    VL1.Value = "MachineName" 
    VL2.Value = 0 
    VL3.Value = 735562 
    VL4.Value = Now() 

    command.ExecuteNonQuery() 

    cn.Close() 

Answer 2

对于错误的messge，不知道你表什么...

“SqlCommand.Prepare方法要求所有可变长度参数有一个明确设置非零尺寸”

从MSDN （https://msdn.microsoft.com/en-us/library/40959t6x(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1）

'Declaration 
Public Function Add (_ 
parameterName As String, _ 
sqlDbType As SqlDbType, _ 
size As Integer _ 
) As SqlParameter 

也许你的问题来自：

VL4 = command.Parameters.Add("@VL4", System.Data.SqlDbType.DateTime2, 0) 

将其更改为

VL4 = command.Parameters.Add("@VL4", System.Data.SqlDbType.DateTime2) 

Answer 3

好了，所以我想我写的AddWithValue方法不对时，我试过了。我得到的命令写：

Dim cn As System.Data.SqlClient.SqlConnection 
Dim command As System.Data.SqlClient.SqlCommand 

Dim VL1 As System.Data.SqlClient.SqlParameter 
Dim VL2 As System.Data.SqlClient.SqlParameter 
Dim VL3 As System.Data.SqlClient.SqlParameter 
Dim VL4 As System.Data.SqlClient.SqlParameter 

Dim commandText As String 

cn = New System.Data.SqlClient.SqlConnection(ConnectStr) 
cn.Open() 

commandText = "INSERT INTO [dbo].[HourMeterLog]" _ 
       + "([MachineName],[TotalHours],[HLRD],[DateTime])" _ 
       + "VALUES (@VL1,@VL2,@VL3,@VL4)" 

command = New System.Data.SqlClient.SqlCommand(commandText, cn) 

VL1 = command.Parameters.AddWithValue("@VL1", "MachineName") 
VL2 = command.Parameters.AddWithValue("@VL2", 0) 
VL3 = command.Parameters.AddWithValue("@VL3", 735562) 
VL4 = command.Parameters.AddWithValue("@VL4", Now()) 

'VL1 = command.Parameters.Add("@VL1", System.Data.SqlDbType.NVarChar, 25) 
'VL2 = command.Parameters.Add("@VL2", System.Data.SqlDbType.Float) 
'VL3 = command.Parameters.Add("@VL3", System.Data.SqlDbType.Int) 
'VL4 = command.Parameters.Add("@VL4", System.Data.SqlDbType.DateTime2) 

'command.Prepare() 

'VL1.Value = "MachineName" 
'VL2.Value = 0 
'VL3.Value = 735562 
'VL4.Value = Now() 

command.ExecuteNonQuery() 

cn.Close() 

我真的很喜欢用我以前使用的格式，但我很高兴，我至少我现在写。谢谢你们的帮助。如果任何人有任何想法如何改善我的原始格式，使其正确写入让我知道。对于那些想要在桌面上提供一些信息的人，我也正在撰写Float写入的字段是一个Numeric（18,1）字段。除了那一栏外，其他的可以从代码中推断出来。