急！！！！数据库update时提示数据提供程序或其它服务返回E_FALT状态
用的是access数据库，在文本框中添加文本（文本量很多），然后点击保存时就出现标题提示的问题。请告诉解决一下。 --------------------编程问答-------------------- 代码贴出来 --------------------编程问答-------------------- 数据提供程序可以解析的单句 SQL 是有一定长度限制的（大概是几K的数量级），如果你参与更新的文本非常多或非常长，导致 INSERT/UPDATE 语句超长，就会出错。由于是内部缓冲区大小，无法更改，只能将一次性的更新分成多次更新来解决。 --------------------编程问答--------------------
恩，是这个问题，我添加文本非常多和长，添少的话，是没有问题的。
是需要多添加几个文本吗?
--------------------编程问答--------------------
不是代码问题 --------------------编程问答--------------------
都么人帮我解决一下啊，我用两个文本就不知道怎么写代码了。写了老出错。 --------------------编程问答--------------------
cn.execute "INSERT table1 (id, field1) values(1, '" & Text1 & "')"--------------------编程问答-------------------- Private Sub add_Click()
cn.execute "UPDATE table1 set field2='" & Text2 & "' where id=1"
cn.execute "UPDATE table1 set field3='" & Text3 & "' where id=1"
...
If Adodc1.Recordset.BOF = False And Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.AddNew
Adodc1.Recordset("产品名称") = Trim(txtname.Text)
Adodc1.Recordset("产地") = Trim(home.Text)
Adodc1.Recordset("货号") = Trim(model.Text)
Adodc1.Recordset("产品说明") = Trim(caption1.Text)
Adodc1.Recordset("市场价") = Trim(sprice.Text)
Adodc1.Recordset("类型") = Trim(leixing1.Text)
Adodc1.Recordset("经销价") = Trim(jprice.Text)
Adodc1.Recordset("类型1") = Trim(leixing2.Text)
Adodc1.Recordset.Update
txtname.Text = ""
home.Text = ""
model.Text = ""
caption1.Text = ""
sprice.Text = ""
leixing1.Text = ""
jprice.Text = ""
leixing2.Text = ""
End If
End Sub
这个是代码，在文本框里添加少数内容不会报错，但是添加很多的话，他就出现了标题上的问题，代码哪里还要修改一下。 --------------------编程问答--------------------
Adodc1.Recordset.AddNew
Adodc1.Recordset("产品名称") = Trim(txtname.Text)
Adodc1.Recordset.Update
Adodc1.Recordset("产地") = Trim(home.Text)
Adodc1.Recordset.Update
Adodc1.Recordset("货号") = Trim(model.Text)
Adodc1.Recordset.Update
...
补充：VB , 数据库(包含打印，安装，报表)
