改一下呢?
----------------------------------------------------------------
原贴内容:
谢谢你,我还是想请教一下:
http://expert.csdn.net/Expert/topic/2649/2649240.xml?temp=.1962549
Dim crs As New ADODB.Recordset
也没有,可以说它是一个很简单的表,它很独立。
具体一点的代码:
Dim crs As New ADODB.Recordset
If Not CheckYear(txtExtraDate) Then Exit Sub
If Not IsNumeric(txtExtraTime) Then Exit Sub
crs.Open "chkattend_extra", glbCnn, adOpenKeyset, adLockBatchOptimistic
crs.AddNew
crs!身份证号 = Pid '表示身份证号
If cmbExtraType.Text = "国定假日" Then
crs!加班时数= CInt(txtExtraTime) * 3
Else
crs!加班时数= CInt(txtExtraTime)
End If
crs!剩余时数 = crs!加班时数
crs!加班日期 = txtExtraDate
crs!recordid = GetRecordID
crs.Update
代码完成后,没有记录进行添加成功,没有出错提示.chkattend_extra表是一个最简单的表,没有关联,没有触发器,有主键。
如果 Glbcnn 是连接字符串,就用:
dim db as adodb.connection
set db=new adodb.connection
db.open Glbcnn
db.execute "INSERT INTO JobWanter_Basic(身份证号, 性别, 姓名) VALUES ('11111111111111111', '女', 'asdd')"
db.close
set db=nothing