一个简单的关于数据库和VB的问题

[smilejiangjun]

用ado连接sql数据库，要在combox(或datacombo)在查看时显示相应用户名，在下拉菜单中显示客户名数据
客户名 服务情况
A 111
B 222
A 333
A 444
B 555
但是显示的是ABAAB,我只想显示AB，让用户在输入时选择，在添加新的纪录时可以添加新的客户名，也可以在下拉菜单中选择。
我是个新手，请大家多帮忙!

[ArQ]

说清楚点，源代码？

[lily0000000]

我贴上来的代码是控制向combox中添加不重复记录的，如果要添加的记录在列表中已经存在则不添加，应该对你有所帮助

Public Sub AddToCombX(CombX As ComboBox, sAdd As String)
Dim iRet As Integer
iRet = SendMessageFind(CombX.hwnd, CB_FINDSTRING, 0, sAdd)
If iRet = CB_ERR And Trim(sAdd) <> "" Then
CombX.AddItem sAdd, 0
End If
End Sub

至于从数据库中读取并显示不重复记录，你可以通过判断来完成，如果在列表中有这个名称记录了就不添加即可。

可以输入也可以选择的combox，可以将其style属性设置为0（其实这是默认值）

[Fanks]

打开记录集时要使用"Select Distinct..."

[Fanks]

比如：Select Distinct(客户名) From 表

[fbwt]

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=表名;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select distinct(客户名) from 表名"

这样就行了！

[lihonggen0]

Select Distinct(dd) From Table


Select dd From Table group by dd

[tony_jian]

同意lily0000000(黑百合)

[i_jianyong]

Use "SELECT DISTINCT [FieldName] FROM [Table]" to return only distinctive records.

[xhfjy]

太历害了，给分吧

[jamex]

Select Distinct(客户名) From Table

[810303]

dim i as integer
dim iflike as boolean
iflike=false
adodc1.recordset.movefirst
while not adodc1.recordset.eof
for i=0 to combox.listcount-1
if adodc1.recordset!客户名=combox.list(i) then iflike=true
next
if iflike=false then combox.additem adodc1.recordset!客户名
iflike=false
wend

[zhangjinjun]

赶快找书看，distinct