找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 586|回复: 6

[求助]:请教efan2000斑竹!!!

[复制链接]
发表于 2005-6-21 10:26:42 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
斑竹很厉害啊,请问怎么将VBA和数据库连接?用编程语句来实现啊!
我想实现的功能是在界面当中输入一些数据,然后将其存到数据库里(最后是ACCESS),调试老是不成功,
请斑竹讲解一下,最好有例子啦!*-*2
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2005-6-21 20:47:23 | 显示全部楼层
把你的代码贴上来看看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-6-22 20:51:12 | 显示全部楼层
谢谢斑竹了,我今天参考了下书上的程序,乱改了改,能走通了!
非常感激斑竹!!!等我再找问题发上来
现在想请教一下,用VB开发的东西,再和CAD连接,好用吗?也就是如果不用VBA呢?同样的功能能在CAD外又能在CAD内实现。
谢谢啦!:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-6-23 09:01:20 | 显示全部楼层
实现应该没有问题,但VB的速度要慢一些
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-6-24 09:49:39 | 显示全部楼层
那我用VB开发一个软件包,然后和CAD连接,既能脱离CAD实现,又能在CAD内实现了?
在CAD内实现的话最好用VBA吧,不过这样同样的功能我就要做两套了,用VB做一套,再用VBA做相同的一套才行啊?
再问个问题,请问斑竹有没有例子(用VBA的),关于用下拉框和列表框显示数据的。我先在数据库建两个表,一个是设备名称表,一个是设备系列表,前一个表每一个设备名称对应后一个表几个该设备的系列;设备名称用下拉框来显示,设备系列用列表框来显示;点击下拉框里的一项,就能在列表框里显示该设备名称对应的各个系列,两个表用ID号关联起来;
比方说设备名称是手机,那么手机有国产系列,进口系列等等。
不知我说清楚了没有,谢谢斑竹,请给予指点,我这两天一直在找这方面的学习内容,找不到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-6-24 10:44:57 | 显示全部楼层
例子:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-6-24 21:20:54 | 显示全部楼层
谢谢斑竹!
it is very useful!!!!!
对了,斑竹,如果我不止两个表,不止一个下拉框和一个列表框,我可以将此功能引申一下试试吧,有需要注意的地方吧?
我先试试,实在不行再麻烦斑竹,我先自己研究研究*-*4
*-*c *-*5
我不能再发贴,就把这个帖子加点内容啦!

碰到的问题:
我用斑竹你的方法连接数据库可以,可是我用另外一种方式却不行,不清楚为什么,关键是我还没有把这个句子看太懂,看下面两种方式:
你的:
Set objconn = New Connection
objconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=J:\myvbexercise\studentinfo.mdb;persist security info=false"
objconn.Open
Dim objrs As Recordset
Set objrs = objconn.Execute("select * from class_info")
objrs.MoveFirst
Do While Not objrs.EOF
Me.comboclassno.AddItem objrs.Fields("class_no").Value
objrs.MoveNext
comboclassno.Text = comboclassno.List(0)
Loop
另外的一种:
Set objconn = New Connection
objconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=J:\myvbexercise\studentinfo.mdb"
strsql = "select * from class_info"
Dim objrs As Recordset
Set objrs = New Recordset
objrs.Open strsql, objconn, adOpenDynamic, adLockOptimistic
  For i = 1 To objrs.RecordCount
comboclassno.AddItem objrs.Fields(0)
  objrs.MoveNext
  Next i
  comboclassno.Text = comboclassno.List(0)
   objrs.Close
下面这种方式是怎么错了?我的下拉框里不能显示数据表里面的数据,我调来调去不对啊,为什么,到底哪里想错了?谢谢*-*6
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-25 03:16 , Processed in 0.487680 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表