[已解决]SQL语句请高手看看为什么会出现错误？

jianwu1106 · 发表于 2013-7-19 23:24

hwc2ycy 发表于 2013-7-19 23:13
表1里哪有加工号这一列数据呢。

加工号有的但还没加进去
这个是我以前的问题一直没搞定，http://www.excelpx.com/thread-304789-1-1.html

jianwu1106 · 发表于 2013-7-19 23:27

hwc2ycy 发表于 2013-7-19 23:13
另外，如果想用SQL做好，凡是要查询到的数据列全部要填上。

数据列全部要填上一定要填上吗？加工号有些要后期才能补上

jianwu1106 · 发表于 2013-7-19 23:30

hwc2ycy 发表于 2013-7-19 23:15
HEADER=TRUE，另外，很多数据是空值，没法显示完整的，转置还要出错，否则又要循环生成数组。

数据的不 ...

版主麻烦你帮我改一下代码吧，

jianwu1106 · 发表于 2013-7-19 23:33

hwc2ycy 发表于 2013-7-19 23:13
另外，如果想用SQL做好，凡是要查询到的数据列全部要填上。

如果是空的能不能用空格代替

hwc2ycy · 发表于 2013-7-19 23:36

jianwu1106 发表于 2013-7-19 23:33
如果是空的能不能用空格代替

等会吧，不行就只有明天了，有点忙了。

jianwu1106 · 发表于 2013-7-20 02:30

hwc2ycy 发表于 2013-7-19 23:36
等会吧，不行就只有明天了，有点忙了。

好的麻烦版主写一下代码了

hwc2ycy · 发表于 2013-7-20 08:57

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

组合框查询.rar (86.91 KB, 下载次数: 10)

hwc2ycy · 发表于 2013-7-20 17:58

'改用筛选的方法

Dim AdoConn As Object, AdoRst As Object
Private Sub UserForm_Initialize()
'窗体初始化代码
Dim strFullname As String
Dim strsql As String
On Error GoTo ErrorHandler
strFullname = ThisWorkbook.Path & Application.PathSeparator & "Database\表1.xls"
If Len(Dir(strFullname)) = 0 Then
MsgBox strFullname & vbCrLf & "不存在", vbCritical + vbOKOnly
Exit Sub
End If
strsql = "select * from [sheet1$A3:f]"
If Not CreateConnection(strFullname, strsql) Then
MsgBox "数据连接建立失败"
Exit Sub
End If
If Query("公司货号 <> ''") Then
If AdoRst.RecordCount > 0 Then
' Dim arr
' arr = AdoRst.GetRows(Fields:=1)
Me.ComboBox1.List = WorksheetFunction.Transpose(AdoRst.GetRows(Fields:=1))
End If
End If
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Description
Err.Clear
End Sub
Function CreateConnection(strFullname As String, strsql As String, Optional blnHasHeader As Boolean = True) As Boolean
'建立数据连接
Const adUseClient = 3
Const adModeShareDenyWrite = 8
Const adModeReadWrite = 3
Const adModeRead = 1
Dim StrConn$
Set AdoConn = CreateObject("ADODB.Connection")
StrConn = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source='" & strFullname & "';Extended Properties='Excel 8.0;HDR=" & blnHasHeader & ";imex=1'"
'Debug.Print StrConn
On Error GoTo ErrorHandler
With AdoConn
.CommandTimeout = 5
.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeRead 'Write 'adModeShareDenyWrite
.ConnectionString = StrConn
.Open
End With
Set AdoRst = AdoConn.Execute(strsql)
CreateConnection = True
' Dim arr
' arr = AdoRst.GetRows
' Stop
Exit Function
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Description
Set AdoRst = Nothing
Set AdoConn = Nothing
End Function
Function Query(strCondition As String)
'查询函数
On Error GoTo ErrorHandler
If AdoConn Is Nothing Then
Exit Function
End If
If AdoRst Is Nothing Then
Exit Function
End If
With AdoRst
.Filter = ""
.Filter = strCondition
End With
Query = True
Exit Function
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Description
Err.Clear
End Function
Private Sub ComboBox1_Change()
'公司货号
If Len(Me.ComboBox1.Value) = 0 Then Exit Sub
'select 公司色号 from [sheet1$A3:f] where 公司货号='" & me.combobox1.value & "'"
If Not Query("公司货号 like '" & Me.ComboBox1.Value & "'") Then
MsgBox "查询失败"
Exit Sub
End If
Me.ComboBox3.Clear
With Me.ComboBox2
.Clear
If AdoRst.RecordCount Then .List = WorksheetFunction.Transpose(AdoRst.GetRows(Fields:=2))
End With
End Sub
Private Sub ComboBox2_Change()
'公司色号
If Len(Me.ComboBox1.Value) And Len(Me.ComboBox2.Value) Then
If Not Query("公司货号 like '" & Me.ComboBox1.Value & "' and 公司色号 like '" & Me.ComboBox2.Value & "' and 加工号 <>''") Then
MsgBox "查询失败"
Exit Sub
End If
With Me.ComboBox3
.Clear
If AdoRst.RecordCount Then .List = WorksheetFunction.Transpose(AdoRst.GetRows(Fields:=3))
End With
End If
End Sub

复制代码

		自动登录	找回密码
密码			注册

[已解决]SQL语句 请高手看看为什么会出现错误？

[已解决]SQL语句请高手看看为什么会出现错误？