返回列表 上一主題 發帖

執行階段錯誤13 型態不符合

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-25 19:16 | 顯示全部帖子

執行階段錯誤13 型態不符合

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

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

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

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

小弟改變sql語句的寫法，常常sql語句很短的時候，兩種方法都行，一但sql的語句變長時，就會有下面的錯誤
  1. Sub day150_1()
  2. '
  3. ' day150_1 Macro
  4.     Sheets("Sheet1").Select
  5.     Range("A1").Select
  6.     With ActiveSheet.QueryTables.Add(Connection:= _
  7.         "ODBC;DRIVER=SQL Server;SERVER=.;UID=sa;PWD=abcd1234;APP=2007 Microsoft Office system;WSID=CS5111;DATABASE=stock" _
  8.         , Destination:=Range("A1"))
  9.         .CommandText = Array( _
  10.         "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." _
  11.         , _
  12.         "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) & "" _
  13.         )
  14.         .Name = "day150_1"
  15.         .FieldNames = True
  16.         .RowNumbers = False
  17.         .FillAdjacentFormulas = False
  18.         .PreserveFormatting = True
  19.         .RefreshOnFileOpen = False
  20.         .BackgroundQuery = True
  21.         .RefreshStyle = xlInsertDeleteCells
  22.         .SavePassword = True
  23.         .SaveData = True
  24.         .AdjustColumnWidth = True
  25.         .RefreshPeriod = 0
  26.         .PreserveColumnInfo = True
  27.         .Refresh BackgroundQuery:=False
  28.     End With
  29. End Sub
複製代碼
錯誤代碼：


就是這句有問題
  .CommandText = Array(ssql)
  1. Sub day150_11()
  2. '
  3. ' day150_1 Macro
  4. Dim ssql As String
  5. ssql = ""
  6. ssql = ssql & "select a.*,b.*,c.*,d.* from dbo.Stock a" & Chr(13)
  7. ssql = ssql & "left join dbo.CreditExchange b on a.sdate=b.sdate and a.stockid=b.stockid" & Chr(13)
  8. ssql = ssql & "left join dbo.NLDL c on a.sdate=c.sdate and a.stockid=c.stockid" & Chr(13)
  9. ssql = ssql & "left join dbo.CompTrade d on a.sdate=d.sdate and a.stockid=d.stockid" & Chr(13)
  10. ssql = ssql & "where  a.stockid>1000 and a.stockid<2000 and a.sdate>='2009-11-09'" & Chr(13)
  11. ssql = ssql & "order by a.stockid ,a.sdate" & Chr(13)


  14.     Sheets("Sheet1").Select
  15.     Range("A1").Select
  16.     With ActiveSheet.QueryTables.Add(Connection:= _
  17.         "ODBC;DRIVER=SQL Server;SERVER=.;UID=sa;PWD=abcd1234;APP=2007 Microsoft Office system;WSID=CS5111;DATABASE=stock" _
  18.         , Destination:=Range("A1"))
  19.     .CommandText = Array(ssql)
  20.         .Name = "day150_1"
  21.         .FieldNames = True
  22.         .RowNumbers = False
  23.         .FillAdjacentFormulas = False
  24.         .PreserveFormatting = True
  25.         .RefreshOnFileOpen = False
  26.         .BackgroundQuery = True
  27.         .RefreshStyle = xlInsertDeleteCells
  28.         .SavePassword = True
  29.         .SaveData = True
  30.         .AdjustColumnWidth = True
  31.         .RefreshPeriod = 0
  32.         .PreserveColumnInfo = True
  33.         .Refresh BackgroundQuery:=False
  34.     End With
  35. End Sub
複製代碼
收藏 分享

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 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大大幫我看一下，跑出來的狤果如下圖


   

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
3#
發表於 2010-6-29 09:57 | 顯示全部帖子
回復 4# Min


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

謝謝版主


    8888.zip (364.28 KB)

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
4#
發表於 2010-6-29 14:03 | 顯示全部帖子
回復 6# Min


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


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

謝謝

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
5#
發表於 2010-6-30 00:32 | 顯示全部帖子
回復 8# Min


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

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

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

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

請問怎麼修改呢？

謝謝版主幫小弟一步步除錯，請問一下如果用版主的寫法，那sql語句的長短就不會限制了嗎？
  1. Sub ADO_QueryTable()
  2.     Dim Cnnl As New ADODB.Connection
  3.     Dim Rst As New ADODB.Recordset
  4.     Dim SQL As String
  5.     Dim lCol As Long
  6.     Dim lRow As Long
  7.    
  8.     Cnnl.Open "Driver={MySQL ODBC 3.51 Driver};Server=TEST;Port=3306;Database=TEST;CharSet=big5;Uid=TEST;Pwd=TEST;Option=16387"  '連接System

  10.     SQL = "SELECT COL0,COL1,COL2,COL3,COL4,COL5 FROM TABLE"
  11.     Rst.Open SQL, Cnnl, adOpenKeyset, adLockOptimistic
  12.     Do Until Rst.EOF
  13.         For lCol = 0 To Rst.Fields.Count - 1
  14.             Cells(lRow, lCol + 1).Value = Rst(lCol)
  15.         Next
  16.         lRow = lRow + 1
  17.         Rst.MoveNext
  18.     Loop
  19.    
  20.     Set Cnnl = Nothing
  21.     Set Rst = Nothing
  22. End Sub
複製代碼

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題