vb中如何把Access的一列数据赋给数组? 本帖最后由 qwq2010 于 2010-09-28 15:18:52 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Command1_Click()ReDim x(Adodc1.Recordset.RecordCount)Adodc1.Recordset.MoveFIRSTWHILE NOT ADODC1.RECORDSET.EOF x(i) = Adodc1.Recordset("平均温度") Adodc1.Recordset.MoveNextWENDEnd Sub combobox 获得焦点时怎么自动展开 测试... 如何在文件中查找中文?? 汉字编码问题 一個人的成功取決於他賺取的財富多少來衡量,你認同嗎? 兄弟姐妹们,给点意见!!散分 请问:对SQL SERVER ,知道机器名、用户名、密码,如何得知数据库名称列表。 MSHFlexGrid如何设置列标题? 串行通讯问题 excel WSDLReader 所需资源没有可用数据 简单的VB发布问题 正则小问题
ReDim x(Adodc1.Recordset.RecordCount)Adodc1.Recordset.MoveFIRSTWHILE NOT ADODC1.RECORDSET.EOF
x(i) = Adodc1.Recordset("平均温度")
Adodc1.Recordset.MoveNext
WENDEnd Sub