我从数据库中的各个表中查出值,现在要存入数据库的一个表中
我在from中添了两个ADO 控件 一个为 keyun 另一个为 adodc1
从keyun中查出来 两个控件都是连接到同一个数据库的
我的存入代码为
Set mcr = Adodc1.Recordset
mcr.AddNew
mcr.Fields(0) = Trim(Text6.Text)
mcr.Fields(1) = Trim(Text2.Text)
mcr.Fields(2) = Trim(Text3.Text)
mcr.Fields(3) = Trim(Text4.Text)
mcr.Fields(4) = Trim(Text5.Text)
mcr.Fields(5) = Trim(txtNumber.Text)
mcr.Fields(6) = Trim(Text7.Text)
mcr.Update
运行是提示 mcr= nothing
问题出在那里
我在from中添了两个ADO 控件 一个为 keyun 另一个为 adodc1
从keyun中查出来 两个控件都是连接到同一个数据库的
我的存入代码为
Set mcr = Adodc1.Recordset
mcr.AddNew
mcr.Fields(0) = Trim(Text6.Text)
mcr.Fields(1) = Trim(Text2.Text)
mcr.Fields(2) = Trim(Text3.Text)
mcr.Fields(3) = Trim(Text4.Text)
mcr.Fields(4) = Trim(Text5.Text)
mcr.Fields(5) = Trim(txtNumber.Text)
mcr.Fields(6) = Trim(Text7.Text)
mcr.Update
运行是提示 mcr= nothing
问题出在那里
你应在adodc1的最后加上一句 adodc1.refresh,方能建立recordset