VB+SQL,添加数据时,出现外键冲突!
我做的是图书管理系统。建立了书籍表,读者表,管理员表,借书表,还书表。“读者表”的学号是“借阅表”和“还书表”的外键。我的代码如下:PrivateSubCmd-borro...
我做的是图书管理系统。建立了书籍表,读者表,管理员表,借书表,还书表。“读者表”的学号是“借阅表”和“还书表”的外键。我的代码如下:
Private Sub Cmd-borrow_Click()
Set conn = New ADODB.Connection
Set mrc = New ADODB.Recordset
conn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=library;Initial Catalog=BOOK_MANAGE"
conn.Execute "insert into 借阅(学号) values('" & Trim(Form1.Text1.Text) & "')"
conn.Execute "insert into 借阅(编号) values('" & Trim(Text1.Text) & "')"
conn.Execute "insert into 借阅(借书日期,应还日期) values('" & Trim(Label17.Caption) & "','" & Trim(Label18.Caption) & "')"
MsgBox "恭喜!借书成功", vbInformation, "借书"
End Sub
插入那段代码我分开写了?
报错:INSERT语句COLUMN FOREIGN KEY 约束“FK-借阅-读者”冲突。该冲突发生在数据库XX,读者表中的“学号”!
请高手帮忙!
我之前只用了一个insert语句,还是添加不进去,所以我就拆开来写了 展开
Private Sub Cmd-borrow_Click()
Set conn = New ADODB.Connection
Set mrc = New ADODB.Recordset
conn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=library;Initial Catalog=BOOK_MANAGE"
conn.Execute "insert into 借阅(学号) values('" & Trim(Form1.Text1.Text) & "')"
conn.Execute "insert into 借阅(编号) values('" & Trim(Text1.Text) & "')"
conn.Execute "insert into 借阅(借书日期,应还日期) values('" & Trim(Label17.Caption) & "','" & Trim(Label18.Caption) & "')"
MsgBox "恭喜!借书成功", vbInformation, "借书"
End Sub
插入那段代码我分开写了?
报错:INSERT语句COLUMN FOREIGN KEY 约束“FK-借阅-读者”冲突。该冲突发生在数据库XX,读者表中的“学号”!
请高手帮忙!
我之前只用了一个insert语句,还是添加不进去,所以我就拆开来写了 展开
2个回答
TableDI
2024-07-18 广告
2024-07-18 广告
Excel一键自动匹配,在线免费vlookup工具,3步完成!Excel在线免费vlookup工具,点击9步自动完成vlookup匹配,无需手写公式,免费使用!...
点击进入详情页
本回答由TableDI提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询