EXCEL读取ACCESS数据时如何设置列的变量

rdyoffice

OQPC3OJg.rar (56.29 KB, 下载次数: 12)

2006-2-23 19:27 上传

点击文件名下载附件
EXCEL读取ACCESS数据时如何设置列的变量

Sub read() Open_AccessData Set rstAnswers = CreateObject("Adodb.Recordset") strSQL = "Select * From a" rstAnswers.Open strSQL, cnnAccess Y = 0 Do Until rstAnswers.EOF = True Sheet3.Cells(Y + 8, 1).Value2 = rstAnswers(0) Sheet3.Cells(Y + 8, 2).Value2 = rstAnswers(1) Sheet3.Cells(Y + 8, 3).Value2 = rstAnswers(2) Sheet3.Cells(Y + 8, 4).Value2 = rstAnswers(3) Y = Y + 1 rstAnswers.MoveNext Loop Set rstAnswers = Nothing End Sub 上面的 rstAnswers(3)中数字为列数，我试过用变量代替，但是无法运行，哪位知道如何处理， 另如何得到一个ACCESS表中列的个数（在EXCEL-VBA中）

ikolo

recordset.fields.count

烟雨厦江南

Sub read()
Open_AccessData
Set rstAnswers = CreateObject("Adodb.Recordset")
strSQL = "Select * From a"
rstAnswers.Open strSQL, cnnAccess

Do Until rstAnswers.EOF = True

for y=0 to

recordset.fields.count-1
Sheet3.Cells(Y + 8, y).Value2 = rstAnswers(y)
rstAnswers.MoveNext

next y
Loop
Set rstAnswers = Nothing
End Sub

Renco

rstAnswers.fields(1).value

这样指的是当前记录第二列的值,因为列数是从0开始记数的