VB添加数据到SQL数据库出现错误3251.

adors.ActiveConnection

=

adocn

adors.Open

"select

*

from

EBI

where

employerID='"

+

Text1.Text

+

"'"

这2句改为

adors.Open

"select

*

from

EBI

where

employerID='"

+

Text1.Text

+

"'",

adocn,1,3

后面的2个数据可以理解为数据集打开时的打开方式，是只读，或者是可读可写入之类的。

一般如果你只读取数据的话，用

1,1

，

需要添加数据之类的 *** 作，则用

1,3

请参考 网页链接

bbs.csdn.net/topics/340054949

才文章中内提到：

使用 rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic即可

抱歉，vb已经有好些年不写了，这样应该能解决你的问题。

祝好运。

望采纳。

rst.Open "select * from goods", cnn

最好确定游标和琐的类型,默认的是只读琐

例如可以改为：

rst.Open "select * from goods", cnn，1,3

---