vb.net外键插入sql语句

Question

我遇到了一个问题，它告诉我我的 SQL 语句无效；预期为“DELETE”、“INSERT”、“PROCEDURE”、“SELECT”或“UPDATE”。

我正在尝试插入使用外键的数据。

表pemain包含 ID 马波帕 PKBM 工商管理硕士 MBEIA PPPBBM MAPIM

表 Ahli 包含 ID 公司名 姓名 地址 邮政编码 状态 电子邮件 电话 传真 公司注册 网站 评论 豌豆

其中Ahli表中的字段pemain是表pemain的外键

我使用的代码是

    Dim Pos As Integer
    Dim Pemain As Integer

    Int32.TryParse(TxtBoxPoscode.Text, Pos)
    Int32.TryParse(TxtBoxPemainId.Text, Pemain)

    Access.AddParam("@MABOPA", TextBox1.Text)
    Access.AddParam("@PKBM", TextBox2.Text)
    Access.AddParam("@MBA", TextBox3.Text)
    Access.AddParam("@MBEIA", TextBox4.Text)
    Access.AddParam("@PPPBBM", TextBox5.Text)
    Access.AddParam("@MAPIM", TextBox6.Text)

    Access.AddParam("@companyname", TxtBoxComName.Text)
    Access.AddParam("@name", TxtBoxName.Text)
    Access.AddParam("@address", TxtBoxAdd.Text)
    Access.AddParam("@poscode", Pos)
    Access.AddParam("@state", CboBoxState.Text)
    Access.AddParam("@email", TxtBoxEmail.Text)
    Access.AddParam("@phone", TxtBoxPhone.Text)
    Access.AddParam("@fax", TxtBoxFax.Text)
    Access.AddParam("@companyreg", TxtBoxComName.Text)
    Access.AddParam("@web", TxtBoxWebsite.Text)
    Access.AddParam("@remarks", TxtBoxRemarks.Text)
    Access.AddParam("@pemain", Pemain)

    'Execute Insert Command

                  Access.ExecQuery(
                 "START TRANSACTION;" & _
                 "INSERT INTO pemain (MABOPA, PKBM, MBA, MBEIA, PPPBBM, MAPIM);" & _
                 "VALUES (@MABOPA, @PKBM, @MBA, @MBEIA, @PPPBBM, @MAPIM);" & _
                 "DECLARE @NewID INT;" & _
                 "SELECT @NewID = SCOPE_IDENTITY();" & _
                 "INSERT INTO Ahli (company_name, name, address, poscode, state, email, phone, fax, company_reg, website, remarks, pemain);" & _
                 "VALUES (@companyname, @name, @address, @poscode, @state, @email, @phone, @fax, @companyreg, @web, @remarks, @NewID);" & _
                 "COMMIT;")

如果有人能帮助我，那就太好了。

Answer 1

Jet 和 ACE OLE DB 提供程序都不支持每个命令的多个 SQL 语句。如果要执行多个 SQL 语句，则必须执行多个命令（或使用不同的 SQL 语句多次执行同一命令），如果要将它们包装在事务中，则在 OleDbConnection 上调用 BeginTransaction 来创建一个OleDbTransaction。

顺便说一句，我不确定 Access 中是否存在 SCOPE_IDENTITY。我可能是错的，但我认为这是特定于 SQL Server 的。我认为 Access 需要使用 @@IDENTITY。