Question

VB中的Adodc1.Refresh总是出问题,求大神赐教

Private Sub Command2_Click()
Adodc1.RecordSource = " Use BookManagement Insert into Borrow(ProofID,ISBN,BorrowDate) Values('" & Text2 & "','" & Text1 & "',Default)"
Adodc1.Refresh
End Sub

Answer 1

Adodc1.RecordSource = "Insert into Borrow(ProofID,ISBN,BorrowDate) Values('" & Text2 & "','" & Text1 & "'," & Default & ")"

追问

还是不行哦！

追答

检查你的几个变量，还有表的字段就这几个？还有数据类型。

Answer 2

Private Sub Command2_Click()
Adodc1.RecordSource = " Use BookManagement Insert into Borrow(ProofID,ISBN,BorrowDate) Values('" & Text2.text & "','" & Text1.text & "',Default)"
Adodc1.Refresh
End Sub