[求助]怎么从数据库赋值给变量
Adodc1.Sql = "SELECT nYear,nSale FROM YourTableName"
我用ADODC控件在连接ACCESS时用这个语句,在SQL处出现了"未找到方法或数据成员"的问题
请教应该如何解决
或者有什么更好点的代码呢?
谢谢了`
代码如下:
Adodc1.Sql = "SELECT nYear,nSale FROM YourTableName"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Dim i as integer
i = 0
Do
a [i] = Adodc1.Recordset.Fields!nYear
b [i] = Adodc1.Recordset.Fields!nSales
i = i + 1
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF
End If
【 在 gailefen (gailefen) 的大作中提到: 】
: 用adodc控件连接access数据库
: 有年份和销售额两个子段
: 字段的值赋予数组a(m),b(m)?
: xiexie