不能添加进行表

wawage　发表于：2010-05-13 10:53:21 　

请高手看一下，怎么添加不进数据表呢？

Private Sub cmdtj_Click()
Dim ygh As String
Dim ygxm As String
Dim ygnl As String
员工号.SetFocus
ygh = 员工号.Text
员工姓名.SetFocus
ygxm = 员工姓名.Text
员工年龄.SetFocus
ygnl = 员工年龄.Text
If ygxm = "" Or ygnl = "" Then
MsgBox "请输入完整信息！"
End If
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "人员信息表", conn, adOpenDynamic, adLockBatchOptimistic
rs.AddNew
   rs!员工号 = ygh
   rs!员工姓名 = ygxm
   rs!员工年龄 = ygnl
   rs.Update
   rs.Close
   MsgBox "添加成功" & ygxm

End Sub

Top

陈福祥发表于：2010-05-13 12:44:40

你的 conn、rs变量没有定义，在开头的地方再添加这两个定义：

dim conn as new adodb.Connection
dim rs as new adodb.recordset

还有，你的判断信息输入不完整的地方，没处理语句，输入不完整需要怎样，是继续呢还是退出，可你可能需要修改：

If ygxm = "" Or ygnl = "" Then
MsgBox "请输入完整信息！"

exit sub
End If

当然，如果还要判断空值话，那么员工姓名和员工年龄的赋值可能需要改为：

ygh = nz(员工号.Text,"")

ygnl = nz(员工年龄.Text,"")

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

不能添加进行表