Question

vb数据库的更新问题！！急！！

On Error Resume Next
Dim conn As New ADODB.Connection
Dim rs_password As New ADODB.Recordset
Dim sql As String
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"

If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Exit Sub
Else

sql = "select mima from yonghudenglu where mima='" & mima & "'"

rs_password.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_password.Fields("mima") = Trim(Text1.Text)

rs_password.Update

MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If

这是源代码!!操作没有错误，但后台数据库里的数据却并没有更新!!请大家帮忙!!!在线等!!!

Answer 1

若mima是密码
sql = "select mima from yonghudenglu where mima='" & mima & "'"
改成
sql = "select mima from yonghudenglu where mima='" & text1 & "'"

若mima是UserName(text3是username栏位)
sql = "select mima from yonghudenglu where mima='" & mima & "'"
改成
sql = "select mima from yonghudenglu where mima='" & text3 & "'"

rs_password.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_password.Fields("mima") = Trim(Text1.Text)
rs_password.Update
rs_password.Requery
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me

update后须刷新资料(rs_password.Requery)

Answer 2

看不懂vb，娃哈哈，上当啦。

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "database.mdb"

sql = "select mima from yonghudenglu where mima='" & mima & "'" '这个mima是哪里来的，没有传值过来吧

俺也知道没错，但是写asp习惯了

Answer 3

sql = "select mima from yonghudenglu where mima='" & mima & "'"
应该改成
sql = "select mima from yonghudenglu where mima='" & text1 & "'"
吧

Answer 4

rs_password.Open sql, conn, adOpenDynamic, adLockOptimistic
试试这个

Answer 5

上面说的是: 在Access数据表中,导入数据: 来自其他的Access数据表.
方法:把下属的数据库拷贝到主管的电脑上,打开主管的ACCESS导入到对应的数据表到对应的表数据中.

一个问题: 导入数据记录是重复, 只是在表后面插入数据, 字段记录重复的.

利用程序来做:
1.思路:最好的方法是:VB 修改下属的数据库时候,能同时修改上级的数据库对应的表, 上级的数据库设置密码.这个时候,VB 连接两个数据库.

说明:
你千万不用用上面的导入 导出方法来添加数据, 否则会导致数据库表的出现问题.

实在没有办法: 就把下级的数据库表的数据, 一个一个的输入到主管的数据库对应的表里.
数据量很小可以. 数据量很大, 还是要做成程序.

Answer 6

嗯，有可能是
sql = "select mima from yonghudenglu where mima='" & mima & "'"
这个mima来路不明，还有text2作用不明。

186563880，兄台，
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
这句是没有错误的……