在Excel中使用ADODB连接数据库时,可能会遇到一些奇怪的结果和限制。以下是一些常见问题和解决方法:
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mydatabase.accdb;Extended Properties='Excel 12.0;HDR=YES;IMEX=1';"
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mydatabase.accdb;Extended Properties='Excel 12.0;HDR=YES;IMEX=1;MaxScanRows=0';"
Dim conn As Object
Dim rs As Object
Dim arrData As Variant
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "connection_string"
rs.Open "SELECT * FROM table_name", conn
arrData = rs.GetRows
'将数据写入Excel
Sheet1.Range("A1").Resize(UBound(arrData, 2), UBound(arrData, 1)).Value = Application.Transpose(arrData)
rs.Close
conn.Close
通过使用上述方法,可以解决在Excel中使用ADODB时遇到的一些限制和奇怪的结果。
上一篇:ADODB流将二进制转换为字符串
下一篇:adodb执行SQL命令超时