一个关于VB6的简单问题

Question

1、
dim db as database
dim sc as recordset
set db=openatabase("try.mdb")
set sc=db.openrecordset("a")
do while not sc.eof
    list.add sc.Fields(0)
    sc.movenext
loop
2、
select * from a join b inner on a.id=d.id

Answer 1

你好! 可是Acesss数据库(表)中自动加一个空记录.按大侠的方法,下拉框中出现了两组重复的记录,不知应该如何解决?

Answer 2

1、
data1.recordsource="select distinct MyField from MyTable"
data1.refresh
do while not data1.recordset.eof
     list1.additem data1.recoredset.fields(0)
     data1.recordset.movenext
loop
如果不用data控件，如之前的dao编程所描述的照着写就可以。2、这样也可以
select * from a,b where a.no=b.no

Answer 3

请教大侠：
　　　　　我想实现一个维护功能．在用户在输入数据中“货物型号”这个字段是可维护的．
为了实现此功能，我在数据库中建了两个表，一个是入库表（其中包含物品编号），另外一
个是货物表（其中包含物品编号和物品名称），让两个表建立连接．当用户输入货物名称时
直接在下拉框中选择．若是有新的货物，可添加到货物表中，这样下拉框中也自动有了新货物名．
我是这样做的：
Private Sub Combo1_Change()
Dim db As Database
Dim sc As Recordset
Set db = OpenDatabase("a.mdb")
Set sc = db.OpenRecordset("select 货物名 from 入库表join货物表　inner on 入库表.物品编号=货物表.物品编号")
Combo1.AddItem ""
Do While Not sc.EOF
    Combo1.AddItem sc.Fields(1)
    sc.MoveNext
Loop
end sub可vb6总是说from子句有错．请大侠诊断一下from子句错在哪，程序还有哪些不妥的地方．小弟必有重谢!!