麻辣家族討論版版 - Powered by Discuz! Board

標題: 執行階段錯誤13 型態不符合 [打印本頁]

作者: joey0415 時間: 2010-6-25 19:16 標題: 執行階段錯誤13 型態不符合

本帖最後由 joey0415 於 2010-6-25 19:21 編輯

小弟將錄製的代碼(已成功可用)

改成比較好看的代碼(失敗)

可以幫我看看是哪裏錯誤嗎？

小弟改變sql語句的寫法，常常sql語句很短的時候，兩種方法都行，一但sql的語句變長時，就會有下面的錯誤

Sub day150_1()
'
' day150_1 Macro
Sheets("Sheet1").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=.;UID=sa;PWD=abcd1234;APP=2007 Microsoft Office system;WSID=CS5111;DATABASE=stock" _
, Destination:=Range("A1"))
.CommandText = Array( _
"select a.*,b.*,c.*,d.*" & Chr(13) & "" & Chr(10) & " from dbo.Stock a" & Chr(13) & "" & Chr(10) & "left join dbo.CreditExchange b on a.sdate=b.sdate and a.stockid=b.stockid" & Chr(13) & "" & Chr(10) & " left join dbo.NLDL c on a.sdate=c.sdate and a.stockid=c.stockid " & Chr(13) & "" & Chr(10) & " left join dbo." _
, _
"CompTrade d on a.sdate=d.sdate and a.stockid=d.stockid" & Chr(13) & "" & Chr(10) & " where a.stockid>1000 and a.stockid<2000 and a.sdate>='2009-11-09' order by a.stockid ,a.sdate" & Chr(13) & "" & Chr(10) & "" _
)
.Name = "day150_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

錯誤代碼：

就是這句有問題
.CommandText = Array(ssql)

Sub day150_11()
'
' day150_1 Macro
Dim ssql As String
ssql = ""
ssql = ssql & "select a.*,b.*,c.*,d.* from dbo.Stock a" & Chr(13)
ssql = ssql & "left join dbo.CreditExchange b on a.sdate=b.sdate and a.stockid=b.stockid" & Chr(13)
ssql = ssql & "left join dbo.NLDL c on a.sdate=c.sdate and a.stockid=c.stockid" & Chr(13)
ssql = ssql & "left join dbo.CompTrade d on a.sdate=d.sdate and a.stockid=d.stockid" & Chr(13)
ssql = ssql & "where a.stockid>1000 and a.stockid<2000 and a.sdate>='2009-11-09'" & Chr(13)
ssql = ssql & "order by a.stockid ,a.sdate" & Chr(13)
Sheets("Sheet1").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=.;UID=sa;PWD=abcd1234;APP=2007 Microsoft Office system;WSID=CS5111;DATABASE=stock" _
, Destination:=Range("A1"))
.CommandText = Array(ssql)
.Name = "day150_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

作者: Min 時間: 2010-6-27 21:46

您的sql字串用錯了! 少了&

錯誤
ssql = ssql "select a.*,b.*,c.*,d.* from dbo.Stock a" & Chr(13)
正確
ssql = ssql & "select a.*,b.*,c.*,d.* from dbo.Stock a" & Chr(13)

全部都有少喔~

作者: joey0415 時間: 2010-6-28 17:49

您的sql字串用錯了! 少了&

錯誤
ssql = ssql "select a.*,b.*,c.*,d.* from dbo.Stock a" & Chr(13)
正 ...
Min 發表於 2010-6-27 21:46

小弟貼語法時，其實是有&，但是最後並沒有出現，請min大大幫我看一下，跑出來的狤果如下圖

[attach]1503[/attach]

作者: Min 時間: 2010-6-29 06:51

小弟貼語法時，其實是有&，但是最後並沒有出現，請min大大幫我看一下，跑出來的狤果如下圖
joey0415 發表於 2010/6/28 05:49 PM

勞駕將檔案PO上來~

作者: joey0415 時間: 2010-6-29 09:57

回復 4# Min

這個檔案本來很大，我刪了很多欄，只保留前面幾欄與長度，請幫我看看

謝謝版主

[attach]1507[/attach]

作者: Min 時間: 2010-6-29 11:24

ssql = ""
ssql = ssql & vbCrLf & "select a.*,b.*,c.*,d.*"
ssql = ssql & vbCrLf & "from dbo.Stock a"
ssql = ssql & vbCrLf & "left join dbo.CreditExchange b on a.sdate=b.sdate and a.stockid=b.stockid"
ssql = ssql & vbCrLf & "left join dbo.NLDL c on a.sdate=c.sdate and a.stockid=c.stockid"
ssql = ssql & vbCrLf & "left join dbo.CompTrade d on a.sdate=d.sdate and a.stockid=d.stockid"
ssql = ssql & vbCrLf & "where a.stockid>1000 and a.sdate>='2010-06-09' "
ssql = ssql & vbCrLf & "order by a.stockid,a.sdate"

改用這樣的方式看起來比較整齊喔...
剛剛小弟看了老半天，發現.... 會不會是您query的value太大所以commandtext放不下...

作者: joey0415 時間: 2010-6-29 14:03

回復 6# Min

會不會是您query的value太大所以commandtext放不下

小弟也覺得是如此，但是小弟不會改，請閔大幫忙

謝謝

作者: Min 時間: 2010-6-29 22:19

回復 Min

會不會是您query的value太大所以commandtext放不下

小弟也覺得是如此，但是小弟 ...
joey0415 發表於 2010/6/29 02:03 PM

不好意思我也沒用過您這種方式存取DataBase
但您可以參考ADO的方式 http://forum.twbts.com/viewthread.php?tid=712&extra=

作者: joey0415 時間: 2010-6-30 00:32

回復 8# Min

請問版主，你用的是mysql，小弟是指sql server

小弟的主機：test
帳號：abc
密碼：123
資料庫：stock

假設小弟查詢是某資料表如：dbo.stockname

小弟的語句是：select * from dbo.stockname

請問怎麼修改呢？

謝謝版主幫小弟一步步除錯，請問一下如果用版主的寫法，那sql語句的長短就不會限制了嗎？

Sub ADO_QueryTable()
Dim Cnnl As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim SQL As String
Dim lCol As Long
Dim lRow As Long
Cnnl.Open "Driver={MySQL ODBC 3.51 Driver};Server=TEST;Port=3306;Database=TEST;CharSet=big5;Uid=TEST;Pwd=TEST;Option=16387" '連接System
SQL = "SELECT COL0,COL1,COL2,COL3,COL4,COL5 FROM TABLE"
Rst.Open SQL, Cnnl, adOpenKeyset, adLockOptimistic
Do Until Rst.EOF
For lCol = 0 To Rst.Fields.Count - 1
Cells(lRow, lCol + 1).Value = Rst(lCol)
Next
lRow = lRow + 1
Rst.MoveNext
Loop
Set Cnnl = Nothing
Set Rst = Nothing
End Sub

複製代碼

作者: Min 時間: 2010-6-30 21:03

回復 Min

請問版主，你用的是mysql，小弟是指sql server

小弟的主機：test
帳號：abc
密碼：12 ...
joey0415 發表於 2010/6/30 12:32 AM

1.
sql server connection範例如下
Cnnl.Open "Provider=MSIDXS.1; Data Source=path to file Indexing Service"

2.
SQL 請您看第十行~

3.
至於SQL的長短...
不懂您的意思!

如果是指 quero的資料那塞爆excel沒問題.. 但塞爆因該沒有意義... 所以因該是只能放65535*255!
那如果您指的是sql變數長短問題.. 那可以查一下string上限~

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)