同时从多台pc向表中插入记录

Question

我想同时从多台电脑插入 sql 服务器和 vb.net 的同一张表中。

错误：

同时插入数据时发生冲突

Try
    Dim com As New SqlCommand()
    com.CommandType = CommandType.StoredProcedure
    com.CommandText = "insertooks"

    com.Parameters.AddWithValue("@MULTIINSERT_CODE", SqlDbType.NVarChar).Value = TextBox1.Text
    com.Parameters.AddWithValue("@MULTIINSERT_NAME", SqlDbType.NVarChar).Value = TextBox2.Text
    com.Parameters.AddWithValue("@MULTIINSERT_DATE ", SqlDbType.Date).Value = DateTimePicker1.Value
    com.Connection = con
    con.Open()
    com.ExecuteNonQuery()
    con.Close()

    MsgBox("Record inserted successfully")
Catch ex As Exception
    'Throw ex
    MsgBox(ex.Message)
Finally
    con.Close()
    con.Dispose()
End Try

存储过程：

ALTER  PROCEDURE  [dbo].[insertooks]  
   @MULTIINSERT_CODE                    NVARCHAR(50)  = NULL   ,    
      @MULTIINSERT_NAME                 NVARCHAR(50)  = NULL   ,    
     @MULTIINSERT_DATE                 DATETIME      = NULL   
AS  
BEGIN  
 SET NOCOUNT ON  
 INSERT INTO MULTIINSERT_TB
      (                    
        MULTIINSERT_CODE,  
        MULTIINSERT_NAME,  
       MULTIINSERT_DATE
              
      )

 VALUES 
      ( 
        @MULTIINSERT_CODE  ,
        @MULTIINSERT_NAME ,
        @MULTIINSERT_DATE                
      ) 

 END 

Answer 1

您的连接 object 需要在使用它的方法中Using声明，以便可以关闭和处理它。

使用Using...End Using块来确保您的数据库对象已关闭和处置。 注意Using末尾的逗号； 这包括Using中的命令。

将连接字符串直接传递给连接的构造函数。 同样，将CommandText和连接直接传递给命令的构造函数。

这应该是.Add方法，它将SqlDbType作为第二个参数。 .AddWithValue方法（不应与 Sql 服务器一起使用）将该值作为第二个参数。

连接打开时切勿显示消息框。 用户可能已经去吃午饭了，而你的开放连接就在那里。 实际上，它最终会超时，但你明白了。

我希望 MULTIINSERT_TB 的主键是一个身份字段（自动编号），并且您没有为它传递值。

Private ConStr As String = "Your connection string"

Private Sub OpCode()
    Try
        Using con As New SqlConnection(ConStr),
                com As New SqlCommand("insertooks", con)
            com.CommandType = CommandType.StoredProcedure
            com.Parameters.Add("@MULTIINSERT_CODE", SqlDbType.NVarChar).Value = TextBox1.Text
            com.Parameters.Add("@MULTIINSERT_NAME", SqlDbType.NVarChar).Value = TextBox2.Text
            com.Parameters.Add("@MULTIINSERT_DATE ", SqlDbType.Date).Value = DateTimePicker1.Value
            con.Open()
            com.ExecuteNonQuery()
        End Using 'closes and disposes con and com
        MsgBox("Record inserted successfully")
    Catch ex As Exception
        'Throw ex
        MsgBox(ex.Message)
    End Try
End Sub