Question

所以基本上我正在尝试将下面的代码编写到数据库中，我将主键作为Int并且它是autogen但是在写入数据库时它不允许我这样做，一直告诉我我不是允许输入空值（因为代码显然没有写入主键字段）所以我使用了行

cmd.Parameters.Add（“@ EventID”，SqlDbType.Int）.Value = 3

但问题是我每次要测试新记录时都要更改值，即1,2,3,4等等。我想知道是否有一行代码我可以通过每次添加+1来创建一个值，所以我不需要进入代码并每次输入一个新的数字。下面是写入数据库的完整代码，以便您可以更好地查看它

Dim Con As SqlConnection
        Dim cmd As SqlCommand
        Dim recordsAffected As String
        Dim cmdstring As String = "INSERT [Event Table](EventID, EventTypeID, EventName, VenueName, NumberOfGuests, Date, ClientAddress, WeddingName, BuildingAddress) Values(@EventID, @EventTypeID, @EventName, @VenueName, @NumberOfGuests, @Date, @ClientAddress, @WeddingName, @BuildingAddress)"
        Con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\YellowDoor.mdf;Integrated Security=True;User Instance=True")
        cmd = New SqlCommand(cmdstring, Con)
        cmd.Parameters.Add("@EventID", SqlDbType.Int).Value = 3
        cmd.Parameters.Add("@EventTypeID", SqlDbType.Text).Value = EventTypeDD.SelectedValue
        cmd.Parameters.Add("@EventName", SqlDbType.Text).Value = EventNametxt.Text
        cmd.Parameters.Add("@VenueName", SqlDbType.Text).Value = VenueLoDD.SelectedValue
        cmd.Parameters.Add("@NumberOfGuests", SqlDbType.Int).Value = CInt(NumOfGtxt.Text)
        cmd.Parameters.Add("@Date", SqlDbType.Int).Value = CInt(DateTxt.Text)
        cmd.Parameters.Add("@ClientAddress", SqlDbType.Text).Value = txtAddress.Text
        cmd.Parameters.Add("@WeddingName", SqlDbType.Text).Value = txtWedding.Text
        cmd.Parameters.Add("@BuildingAddress", SqlDbType.Text).Value = txtBAddress.Text

        Con.Open()

        recordsAffected = cmd.ExecuteNonQuery
        Con.Close()

Answer 1

如果您的EventID是IDENTITY列，则不应尝试为其设置值。
只需将该字段作为参数或INSERT命令内部忽略您可以通过这种方式检索数据库引擎为您的字段分配的值

Dim Con As SqlConnection
Dim cmd As SqlCommand
Dim cmdstring As String = "INSERT [Event Table] " & _ 
    "(EventTypeID, EventName, VenueName, NumberOfGuests, [Date], ClientAddress, " & _
    "WeddingName, BuildingAddress) Values(@EventTypeID, @EventName, @VenueName, "  & _ 
    "@NumberOfGuests, @Date, @ClientAddress, @WeddingName, @BuildingAddress); " & _
    "SELECT SCOPE_IDENTITY()"
Using Con = New SqlConnection(".....")
Using cmd = New SqlCommand(cmdstring, Con)
    cmd.Parameters.Add("@EventTypeID", SqlDbType.Text).Value = EventTypeDD.SelectedValue
    .....
    Con.Open()
    Dim result = cmd.ExecuteScalar()
    if result IsNot Nothing Then
       Dim newEventID = Convert.ToInt32(result)
       ....
    End If
End Using
End Using

使用此代码，您不会为EventID字段传递任何内容，但您会在查询中添加第二个命令文本。第二个命令将返回数据库为您的连接生成的IDENTITY列的最后一个值。这个双命令（A.K.A.批处理命令）是使用ExecuteScalar执行的，因为我们对SELECT SCOPE_IDENTIY()

返回的单个值感兴趣

另请注意，DATE是T-SQL中的保留字，因此只有在将其括在方括号中时才可以将其用作列的名称

如何通过代码生成新的主键ID？

1 个答案: