ADO中的update语句不生效？帮帮我！！！

[jzlzk]

Dim mycon As ADODB.Connection
Set mycon = New ADODB.Connection
mycon.ConnectionString = connstring
mycon.Open

sql="update use set password='aaa' where username='sss'"
mycon.Execute sql

执行后，没有错误提示，但不起作用。password还是原来的值？怎么办？

[xhema1980]

aaa与sss是变量名还是实际值，如果是实际值应该写成sql="update use set password=aaa where username=sss"
，还有你的连接字符串是不是设置正确？

[zhangying7725]

sql语句无问题，看看你的连接字符串吧！

[dingyanwei]

同上

[jzlzk]

connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb"


sql = "update use set password='" & Trim(Me.newpass) & "' where username=" & username & "'"

username 是变量，newpass 是文本框

[liufeng7600]

你的错误就在mycon.ConnectionString = connstring上。
你连接错了。
如果你不知道的话，就添加一个 adodc 控件。生成的字符串你拷贝下来。
看看你的 connstring 这个变量是否正确。
大概如下：
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\数据库\main.mdb;Persist Security Info=False"
mycon.ConnectionString = connstring
其中 （ F:\数据库\main.mdb ）为你数据库的绝对路径。

[jzlzk]

查询和删除操作都正常。只有更新不好使/ :(

[jiandanyu]

先在查询分析器中试一下能否更新

[KiteMail]

你的SQL字符串中Trim(Me.newpass)
好像应该写成me.newpass.text

[KiteMail]

还有where username="
应该写成
where username='"

[flc]

GZ