|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 数据()
Dim cnn, rs, sql
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
With cnn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\数据库.accdb"
.Open
End With
bc = [a2]: scx = [b2]: pz = [c2]: hs = [d2]
sql = "select * from 生产命令单 where 班次='" & bc & "' and 生产线='" & scx & "' and 品种='" & pz & "' order by ID desc"
rs.Open sql, cnn, 3, 2
ReDim arr(1 To hs, 1 To rs.Fields.Count)
For i = 0 To rs.RecordCount
k = k + 1
If k > hs Then Exit For
For j = 0 To rs.Fields.Count - 1
arr(k, j + 1) = rs.Fields(j)
Next j
rs.movenext
Next i
Range("a3").Resize(k - 1, UBound(arr, 2)) = arr
Cells.Columns.AutoFit
cnn.Close
Set cnn = Nothing
End Sub
你试试,费半天劲也每个鲜花表示一下? |
评分
-
1
查看全部评分
-
|