如何在excel vba窗体中连接access的操作？

wangzhongtu · 发表于 2011-4-25 23:38

前两天见过人家利用VBA 来连接access 操作实例，感觉很好，所以这两天在学习，因为没什么基础，在自己动手操作（整合代码）时遇到些困难：
1.在窗体中输入数据后，点击【新增】按钮，然后查看数据库，却没有发现有新增的数据，详细请看附件！！！
2.请帮助添加【删除记录】的代码

请师傅们引导！！（本人以前没接触过ACCESS,刚刚接触了两个晚上）

wangzhongtu · 发表于 2011-4-26 08:10

自己顶下请大家帮忙

zez · 发表于 2011-4-26 08:46

第一个问题：在rs.AddNew后面没有具体的字段增加的内容，一般还应该有：
rd(0)=(具体内容)
rd(1)=(具体内容)
rd(2)=(具体内容)
……
最后还要有一句
rs.Update

wangzhongtu · 发表于 2011-4-26 08:52

是这样呀我再看看有问题再来请教

wangzhongtu · 发表于 2011-4-26 09:45

我刚刚改了下还是有问题基础太差不知道怎么调了请帮帮测试下

主要有三个问题想要学习和解决：
1.点击【新增】按钮，要让ComboBox1到ComboBox15 以及textbox1中的值输入到数据库中
2.点击【删除记录】按钮，要让被选中的记录从数据库中删除，
3.要让ComboBox16-ComboBox30的筛选事件可用
请老师帮忙调试修改，并给出一些关键错误的提示！

[ 本帖最后由 wangzhongtu 于 2011-4-26 10:32 编辑 ]

zez · 发表于 2011-4-26 12:01

对不起，我对窗体不熟悉

wangzhongtu · 发表于 2011-4-26 12:34

好像是这句报错了 Sql = "select * from 测试 where 序号 = " & ComboBox1.Value & "and 项目编号 =" & ComboBox3.Value & ""

请问以上这句改怎么理解呢

zez · 发表于 2011-4-26 15:27

试一试Sql = "select * from 测试 where 序号 = " & ComboBox1.Value & "and 项目编号 ='" & ComboBox3.Value & "'"

wangzhongtu · 发表于 2011-4-26 16:15

你提供的代码还真是有效果吔！  只是加了两个单引号就好了
奇怪了为什么人家的实例不加单引号也可以用  而我的这个怎么就要加单引号呢
能说下为什么吗
还有：1.能说下这种语句的语法吗
   2.这段语句在这个实例中起什么作用？该怎么理解呢？

[ 本帖最后由 wangzhongtu 于 2011-4-26 16:18 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 如何在excel vba窗体中连接access的操作？

回复zez

回复8楼