Question

VB 中用insert into语句添加数据成功，但数据库中未添加

Dim cn As New ADODB.Connection
Dim tn As New ADODB.Connection
Dim dr As New ADODB.Recordset
Dim strsql As String
Dim rtime As String
Dim mypath As String
Dim connstr As String
mypath = "H:\zhangcar\Vehicle management\车辆管理.mdb"
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & mypath & ";Persist Security Info=False"
strsql = "Select * From 临时 Where 卡号=" & TextBox1.Text & ""
rtime = "Select * From 临时卡使用情况 where 卡号=" & TextBox1.Text & ""
cn.Open(connstr)
tn.Open(connstr)
dr.Open(strsql, cn, 2, 3)
If dr.EOF Then
cn.Execute("insert into 临时(卡号,车牌号) values(" & TextBox1.Text & ",'" & TextBox2.Text & "' )")
tn.Execute("insert into 临时卡使用情况(卡号,进入时间) values(" & TextBox1.Text & ",'" & Now & "' )")
MsgBox("注册成功")
cn.Execute(strsql)
tn.Execute(strsql)
Else
MsgBox("项目存在")
End If
dr.Close()
cn.Close()
运行程序显示“注册成功”，但是打开数据库中却没有加入数据，但如果再注册一次就会提示“项目存在”，这是为什么啊？怎么才能让数据库中也出现添加的数据？

Answer 1

dr.Close()在这句前面加上dr.updata就可以了