用SQL查询、替换字段字符，应该怎么做？

tender888

Sub tt()
  Dim cnn As Object
  Dim SQL As String
  Dim rs
  Dim arr()
  Set cnn = CreateObject("ADODB.Connection")
  cnn.Open "dsn=excel files;hdr=no;dbq=" & Application.ActiveWorkbook.FullName
  Set rs = cnn.Execute("SELECT * from [明细表$B3:C17]")
查询出来的表怎么替换字段？
  arr = rs.GetRows()
  cnn.Close
  Set cnn = Nothing
  Debug.Print ""
End Sub

tender888

请大师帮帮忙，非常感谢！

limonet

最关键是你没有给个模拟数据。

jiangxiaoyun

SQL又不方便，干嘛非得要用在excel里面，有些人啊真是执拗。路过。

qdtzq

无字段查询.............

WANT-T

首先，SELECT * 不叫无字段查询，这是全字段查询；
其次，你的查询区域里面没有字段名，如果用SELECT *那就是默认第一行就是字段！

tender888

  非常感谢大家！
Set cnn = CreateObject("ADODB.Connection")
  cnn.Open "dsn=excel files;hdr=no;dbq=" & Application.ActiveWorkbook.FullName
'  Set rs = cnn.Execute("select * INTO Temp from [明细表$B2:C17]")
  Set rs = cnn.Execute("SELECT * from [明细表$B3:C17] as Temp")
  Set rs = cnn.Execute("UPDATE Temp SET 构件名称=REPLACE(构件名称,'1218','aaaa')")此处错误提示“数据库引擎找不到对象“Temp”

SELECT * from [明细表$B3:C17] as Temp查询数据保存到临时表Temp
接下来如何在临时表中替换“构件名称”字段中的字符？

tender888

qdtzq 发表于 2022-12-19 09:42
无字段查询.............

非常感谢大师！
能否再把查询出来的结果删除掉“[]"里面的内容之后按1、2列排序再回填Excel表格？

qdtzq

  SQL = "SELECT left(f1,5) ,f2 from [明细表$B3:C17] order by F1,f2"

tender888

qdtzq 发表于 2022-12-19 11:43
SQL = "SELECT left(f1,5) ,f2 from [明细表$B3:C17] order by F1,f2"

非常感谢！但出现错误