永发信息网

VB如何修改数据库中的信息,为什么我改了后 数据库中的内容不变啊?? 请帮我改正

答案:2  悬赏:40  手机版
解决时间 2021-03-19 13:59
以下是我的代码
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
conn.ConnectionString = "Provider=MSDASQL.1;Password=aaa;Persist Security Info=True;User ID=eee;Data Source=test"
conn.Open
SQL = "Select * from PUser WHERe Log_name= '" & username_log & "' AND Password='" & password_log & "'"
rs.Open SQL, conn, adOpenStatic, adLockBatchOptimistic

rs.Fields(0) = Trim(Text1.Text)
rs.Fields(1) = Trim(Text2.Text)
rs.Fields(2) = Trim(Text3.Text)
rs.Fields(3) = Trim(Text4.Text)
rs.Fields(4) = Trim(Text5.Text)
rs.Fields(5) = Trim(Text6.Text)
rs.Fields(6) = Trim(Text7.Text)
rs.Fields(7) = Trim(Text8.Text)
rs.Fields(8) = Trim(Text9.Text)
rs.Fields(9) = Trim(Text10.Text)
rs.Fields(10) = Trim(Text11.Text)
rs.Fields(11) = Trim(Text12.Text)
rs.Fields(12) = 0
rs.Update
rs.Close
Set conn = Nothing
MsgBox ("修改成功!")
最佳答案
你未说明何种数据库,我就以Access数据库为例吧:
==========《模块级CODE》===========
Function conn() As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXX\XXX.mdb;Jet OLEDB:Database Password=123456;Persist Security Info=False"
End Function
'函数需先引用Microsoft Activex Data Objects 2.8 Library 库。
==========《子程序CODE》===========
一,不返回记录集(插入、更新2种方式)
conn.Execute ("INSERT INTO 数据表名(字段1,字段2,字段3) VALUES(" & 值1 & "," & 值2 & "," & 值3 & ")")
conn.Execute ("UPDATe 数据表名 SET 字段1=" & 值1 & " WHERe 字段1=" & 值2 & " AND 字段2=" & 值3)
二,返回记录集(字段赋值、批量更新2种方式)
Sub DataUpdate()
Dim strSQL As String,temTable As New ADODB.Recordset
strSQL = "SELECT * FROM 数据表名 WHERe 字段1=" & 值1 & " AND 字段2='" & 值2 & "'" AND 字段3=" &值3
temTable.CursorLocation = adUseClient
temTable.Open strSQL, conn, adOpenDynamic, adLockOptimistic
'移动到你要更新的记录数......
1,----------------------------------------------------------------------------
temTable.Fields("字段名").Value=值
'更新后要移动记录(temTable.MoveNext),不然不会保存数据。
2,----------------------------------------------------------------------------
temTable.Update Array("字段1","字段2”), Array(值1,值2)
'不需要移动记录。值也会保存。
temTable.Close
Set temTable = Nothing
End Sub

没注意上面你的代码,以下是改正。
把Persist Security Info=True改成False(安全考虑)
把rs.Open SQL, conn, adOpenStatic, adLockBatchOptimistic
改成rs.Open SQL, conn, adOpenDynamic, adLockBatchOptimistic(adOpenStatic为只读)
全部回答
private sub command1_click()    dim cn as new adodb.connection    cn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\a.mdb"     cn.execute "update caigou set 审核通过=true where 编号='" & combo1.text & "'"      cn.close      datagrid1.refresh      adodc1.refresh    end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
压水堆消耗u-235的数量时为什么不考虑钚
济南到武汉快递要多久
小学生遇到危险怎么办100
罗石牙科我想知道这个在什么地方
工作调动,公积金注销,到新单位重新办理可以
activity,的意思
为什么录歌时会把原伴奏也录进去?
标况下,8.96L甲烷和一氧化碳的混合气质量为7
手机软件优学院总是同步失败怎么办
夜深了,雨﹉后面接什么词更优美啊?现在在下
“嗯”和“嗯嗯”的意思有什么区别?
马家小学在哪里啊,我有事要去这个地方
学校作业:给自己配置一套微型计算机系统(包
the death of the dog 是什么意思
哪些口袋妖怪的前辈高手玩过噩梦延续的?
推荐资讯
中国联通迎宾东路大卖场在哪里啊,我有事要去
甲减是不是有浮肿,手脚无力
德国的质量长度面积体积速度温度等等等等单位
左花1866店地址好找么,我有些事要过去
生殖道b族链球菌感染是什么意思
自然科学是一种社会意识形式,它A. 属于没有
结白的近义词是什么
南秧在什么地方啊,我要过去处理事情
求马伯庸的《笔冢随录》(笔灵)第一部“生事
请问从苏州火车站到苏州市木渎镇灵天路消防训
短号省外怎么收费
富贵花园-西门地址在哪,我要去那里办事
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?