菜鸟询问：VBA控件录入数据至ACCESS每次都出错

霏霏妈

每个格子里的值可以随意录入，空或者不空都有可能。点击后每次都出现“类型不匹配” 就是“无法找到指定内容” 不知道为什么 。。请高手帮忙~

roych

由于涉及到多个不同的数据类型，因此，必须要先转换数据类型。ADO转换数据类型向来很有问题，建议使用sql语句insert into

1. Private Sub CommandButton1_Click()
   
2.     Dim str As String
   
3.    
   
4.     str = "insert into 合同表 values('" & Me.合同编码 & "','" & Me.合同分类
   
5.     str = str & "','" & Me.客户名称 & "','" & Me.经营范围 & "',#" & Me.租赁期自 & "#,#"
   
6.     str = str & Me.租赁期止 & "#," & Me.租赁单价 & "," & Me.租赁总价 & "," & Me.摊位押金 & ",#"
   
7.     str = str & Me.押金退还时间 & "#," & Me.投保金额 & "," & Me.保险费用 & ", " & Me.管理费用 & ","
   
8.     str = str & Me.宣传费用 & "," & Me.停车费用 & "," & Me.其他费用 & ")"
   
9.     cnn.Execute str
   
10.     MsgBox "添加数据成功。", vbInformation, "添加记录"
    
11. End Sub

复制代码

另外，此处尚未处理空值情况。如需处理，可以将上述语句进一步修改，大体语法是：
insert into 表（字段1，字段2……） values(值1，值2……）

可以通过判断控件是否存在空值再读取控件名称和值，然后定义一个动态数组来处理。不过考虑到数据类型的多样性，个人觉得仍然是比较麻烦的事情，所以这里不作处理。
实验.rar (37.61 KB, 下载次数: 17)

2015-12-24 11:45 上传

点击文件名下载附件

roych

不贴代码了。貌似还需要审核

霏霏妈

roych 发表于 2015-12-24 11:51
不贴代码了。貌似还需要审核

谢谢网友  问题已解决 是因为数组定义名称中 有个字写错了