有一个车辆信息的数据库，有型号，车牌号等字段，一个型号可能有多部车，如何查询能得到所有不重复的型号

seta '连接数据库,seta是一个方法..要单独写的.

sql = "select [车牌] from [carinfo] where [型号]" '选择[user]表里的全部数据.

rs.Open sql, cn,1,1 '打开记录集,并给权限..

Do While Not rs.EOF '判断是否到了记录集最后,如果没有就继续循环..

cobcar.AddItem rs("车牌") '添加记录到combbox 里..

rs.MoveNext '记录向下移动.

Loop '跳出循环.

crcreate table car(

car_model char(20) not null primary key,

car_type char(6) ,

production_year int,

CONSTRAINT chk_car CHECK (car_type in('小轿车','商务车'))

)

create table sales(

sale_no char(20),

car_model char(20), 

sale_time datetime,

sale_price int)

CREATE TABLE IF NOT EXISTS Companyinfo (

`provider_name` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT 'china' COMMENT '供应商名字',

`provider_addr` varchar(40) COLLATE utf8_bin DEFAULT NULL COMMENT '供应商地址',

`unit_price` decimal(15,4) NOT NULL DEFAULT '0.0000' COMMENT '单价',

`inventory` int(11) NOT NULL DEFAULT '0' COMMENT '库存',

PRIMARY KEY (`provider_name`)

) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin

---