vba连接access出现问题~~帮忙进来看下~~谢谢
Dim hasrecord As Boolean<br/>Dim i As Integer
<br/>isseroprt = False
<br/>Adodc1.RecordSource = "select*from 表1;"
<br/>With Adodc1.Recordset
<br/> .AddNew
<br/> ' .Fields(0)=
<br/> .Fields(1) = wslx
<br/> .Fields(2) = TextBox1.Text
<br/> .Fields(3) = y(1)
<br/> .Fields(4) = y(2)
<br/> .Fields(5) = y(3)
<br/> .Fields(6) = z(0)
<br/> .Fields(7) = y(4)
<br/> .Fields(8) = z(1)
<br/> .Fields(9) = y(5)
<br/> .Fields(10) = z(2)
<br/> .Fields(11) = x(1)
<br/> .Fields(12) = y(6)
<br/> .Fields(13) = y(7)
<br/> .Fields(14) = x(2)
<br/> .Fields(15) = y(8)
<br/> .Fields(16) = y(9)
<br/> .Update
<br/> isuseroprt = True
<br/> MsgBox "您的数据保存成功", vbExclamation + vbOKCancel, "恭喜"
<br/> End With
<br/>
<br/>
<br/>会出现错误91
<br/>错误在 .AddNew这行
<br/>
<br/>说对象变量或with语块未设置~~
<br/>这是什么原因啊~~
<br/>高手请指教 我用了个ADO控件 里面也测试了 能连接上数据库~~但是不知道到怎么存怎么读数据<br/>上面是我写的存数据代码~~~请问哪出了问题啊<br/>随便在请高手指点下 读的代码是什么啊~~~<br/>谢谢~~万分感谢<br/>
页:
[1]