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

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

...全文
44 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangjinjun 2002-03-28
  • 打赏
  • 举报
回复
赶快找书看,distinct
810303 2002-03-28
  • 打赏
  • 举报
回复
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
jamex 2002-03-28
  • 打赏
  • 举报
回复
Select Distinct(客户名) From Table

xhfjy 2002-03-28
  • 打赏
  • 举报
回复
太历害了,给分吧
i_jianyong 2002-03-28
  • 打赏
  • 举报
回复
Use "SELECT DISTINCT [FieldName] FROM [Table]" to return only distinctive records.
tony_jian 2002-03-28
  • 打赏
  • 举报
回复
同意lily0000000(黑百合)
lihonggen0 2002-03-28
  • 打赏
  • 举报
回复
Select Distinct(dd) From Table


Select dd From Table group by dd


fbwt 2002-03-28
  • 打赏
  • 举报
回复
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=表名;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select distinct(客户名) from 表名"

这样就行了!
Fanks 2002-03-28
  • 打赏
  • 举报
回复
比如:Select Distinct(客户名) From 表
Fanks 2002-03-28
  • 打赏
  • 举报
回复
打开记录集时要使用"Select Distinct..."
lily0000000 2002-03-28
  • 打赏
  • 举报
回复
我贴上来的代码是控制向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(其实这是默认值)
ArQ 2002-03-28
  • 打赏
  • 举报
回复
说清楚点,源代码?

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧