SQL Server数据库用窗体查询时，加DISTINCT 后无数据显示

忘得快

wj2368 发表于 2016-10-6 18:56
select DISTINCT 代码,描述,尺寸,单位 from style
是作用于多列去重

是的，wj2368老师，select DISTINCT 代码,描述,尺寸,单位 from style用于查询Access数据库正常，不知为什么查询SQL Server数据库不能正常显示在窗体列表框？请教指导，谢谢！

忘得快

microyip 发表于 2016-10-6 20:21
这个可以，加Q咯

microyip老师你好，现将实例传上，请指导，谢谢！
用窗体列表框查询SLQ Server不重复数据.rar (27.91 KB, 下载次数: 19)

2016-10-6 21:30 上传

点击文件名下载附件

microyip

以下代码测试语句能正常运行并获取数据提供给你参考一下

1. Sub test()
   
2.     Cells.ClearContents
   
3.     Set cnn = New ADODB.Connection
   
4.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\数据测试.mdb"
   
5.     SQL = "select DISTINCT 代码,描述,尺寸,单位 from style"
   
6.     [A2].CopyFromRecordset cnn.Execute(SQL)
   
7.     SQL = "select 代码,描述,尺寸,单位 from style group by 代码,描述,尺寸,单位"
   
8.     [G2].CopyFromRecordset cnn.Execute(SQL)
   
9.     cnn.Close
   
10.     Set cnn = Nothing
    
11. End Sub

复制代码

忘得快

microyip 发表于 2016-10-6 21:51
以下代码测试语句能正常运行并获取数据提供给你参考一下

是的，用于查询Access数据库正常，不知为什么查询SQL Server数据库不能正常显示在窗体列表框（查询SQL Server数据库到Excel工作表也正常，就是窗体列表框不行）？请教指导，谢谢！

忘得快

microyip 发表于 2016-10-6 21:51
以下代码测试语句能正常运行并获取数据提供给你参考一下

请你将Access的数据导入到SQL Server数据库后，再试试用窗体查询列表框显示是否正常？谢谢！

microyip

我试过，没问题

1. Sub EXCEL内读SQL()
   
2.     Dim sSQL_Server As String
   
3.     Dim sDataBaseName As String
   
4.     Dim sDBFormName As String
   
5. 
   
6.    
   
7.     Dim oRead_SQL_Conn As Object
   
8.     Dim sSQL_Select As String
   
9.    
   
10.     sSQL_Server = "192.168.1.231"
    
11.     sDataBaseName = "abc"
    
12.     sDBFormName = "Style"
    
13.    
    
14.     Set oRead_SQL_Conn = CreateObject("Adodb.Connection")
    
15.     oRead_SQL_Conn.Open "Provider=SQLOLEDB; User ID=sa;Password =”“”“;Database=" & sDataBaseName & ";Data Source=" & sSQL_Server
    
16. 
    
17.     sSQL_Select = "select DISTINCT 代码,描述,尺寸,单位 from style"
    
18.     [A2].CopyFromRecordset oRead_SQL_Conn.Execute(sSQL_Select)
    
19.     sSQL_Select = "select 代码,描述,尺寸,单位 from style group by 代码,描述,尺寸,单位"
    
20.     [G2].CopyFromRecordset oRead_SQL_Conn.Execute(sSQL_Select)
    
21.    
    
22.     oRead_SQL_Conn.Close
    
23.     Set oRead_SQL_Conn = Nothing
    
24. End Sub

复制代码

忘得快

microyip 发表于 2016-10-6 23:03
我试过，没问题

谢谢你深夜帮忙！
查询SQL Server数据库到Excel工作表我试过正常，就是用窗体查询时将SQL = "select * from style" '改为SQL = "select DISTINCT 代码,描述,尺寸,单位 from style" '后窗体的列表框就无数据显示了，见下面截图，不知是ListView1的原因还是其他原因？

microyip

一直关注于你的语句是否正常，没去具体看窗体。其实在我电脑里，你的窗体显示也正常啊

忘得快

microyip 发表于 2016-10-6 23:39
一直关注于你的语句是否正常，没去具体看窗体。其实在我电脑里，你的窗体显示也正常啊

你是连接到SQL Server数据库查询吗？

忘得快

microyip 发表于 2016-10-6 23:39
一直关注于你的语句是否正常，没去具体看窗体。其实在我电脑里，你的窗体显示也正常啊

请将代码给我看看，谢谢！