[求助]：请教efan2000斑竹！！！

一生有你

斑竹很厉害啊，请问怎么将VBA和数据库连接？用编程语句来实现啊！
我想实现的功能是在界面当中输入一些数据，然后将其存到数据库里（最后是ACCESS），调试老是不成功，
请斑竹讲解一下，最好有例子啦！*-*2

雪山飞狐(lzh)

把你的代码贴上来看看

一生有你

谢谢斑竹了，我今天参考了下书上的程序，乱改了改，能走通了！
非常感激斑竹！！！等我再找问题发上来
现在想请教一下，用VB开发的东西，再和CAD连接，好用吗？也就是如果不用VBA呢？同样的功能能在CAD外又能在CAD内实现。
谢谢啦！：）

雪山飞狐(lzh)

实现应该没有问题，但VB的速度要慢一些

一生有你

那我用VB开发一个软件包，然后和CAD连接，既能脱离CAD实现，又能在CAD内实现了？
在CAD内实现的话最好用VBA吧，不过这样同样的功能我就要做两套了，用VB做一套，再用VBA做相同的一套才行啊？
再问个问题，请问斑竹有没有例子（用VBA的），关于用下拉框和列表框显示数据的。我先在数据库建两个表，一个是设备名称表，一个是设备系列表，前一个表每一个设备名称对应后一个表几个该设备的系列；设备名称用下拉框来显示，设备系列用列表框来显示；点击下拉框里的一项，就能在列表框里显示该设备名称对应的各个系列，两个表用ID号关联起来；
比方说设备名称是手机，那么手机有国产系列，进口系列等等。
不知我说清楚了没有，谢谢斑竹，请给予指点，我这两天一直在找这方面的学习内容，找不到

雪山飞狐(lzh)

例子：

一生有你

谢谢斑竹！
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