请问如何在VB中实现ACCESS的数据导入导出,请详细说明,在线等待!
解决方案 »
- 【大散分】拍案惊奇:29年,整整29年!去年的今天...
- VB真TMD实在是太高深了,编程1题不太明白
- DATAREPORT報表高手請進
- 第一个给出正确完整代码(dos程序windows化,能正常关闭的完整程序)的给100分!
- 各位大侠,问一个简单地问题,希望尽快得到答案
- VB.Net的Sub Main()问题
- 扫描仪二次开发的问题
- 数据库中的字段有小括号
- 这是我花了三天时间做的一个简单的文件传输程序,分为client和server两段代码。可以同时从client上传文件,测试通过。现公布代码大家共享,也请高手指点。
- 在VB里能不能设置鼠标热点呢?
- 一个关于excel倒入到数据库的问题
- 请问如何学好和使用好API?谢谢!
[email protected]
While Not Adodc1.Recordset.EOF
i = Adodc1.Recordset("起始节点")
j = Adodc1.Recordset("终止节点")
p_meas(i, j) = Adodc1.Recordset("线路有功")
q_meas(i, j) = Adodc1.Recordset("线路无功")
Adodc1.Recordset.MoveNext '使指针指向下一条记录
Wend
其中,“起始节点”,“终止节点”为数据库表的一个字段名,i,j是存储变量,分别存放字段“起始节点”,“终止节点”的当前记录值。p_meas(i, j) ,q_meas(i, j) 是存储数组,分别存放字段“线路有功”,“线路无功”的当前记录值。写access数据库只需把等式两边的式子调过来即可