VB+ADO+Access如何修改数据

我把用adodc1绑定了表Case,并在窗体中用几个Text跟表Case中的对应字段相绑定,我现在想直接通过修改Text(i).text来修改数据库表Case中的记录,问该如何修改,大侠们可否提供一下建议,并帮忙看看我的问题出在哪儿
  Private Sub EditSaveCmd_Click()
  Adodc1.Recordset.Update
  Adodc1.Refresh
  MsgBox "修改成功!"
  Text1.SetFocus
  End Sub
 修改Text(i)中的内容后,要两次点击改修改保存按钮后才能更新保存记录。应该怎么办才能一次点击改按钮就能立刻更新和保存修改记录呢?感激不尽
  在线求教
 
 

  这个问题是不是太简单了,大家都不屑于回答啊?
  希望大侠们赐教啊!着急啊!只看到部分代码还不知道什么原因,但感觉表名有点不妥,可能会和VB的关键字Select Case有点冲突,改个其它的表名试试看
  我又把表名改成了中文的“案件表”了,可是还是出现这个情况  
  我是让这几个Text控件绑定数据库,用来实现显示,修改等功能,text(i).enable=true,每次修改text(i)的内容,后再点击EditSaveCmd按钮,用来更新保存数据,希望点击后Text(i)里面立马显示更改后的数据,这问题最可能的原因是什么?应该比较简单,只是没看到代码还不太清楚;你可以用ado方式打开数据库,然后用text(i).text=rs!字段名 显示数据库,用rs!字段名=text(i).text rs.update更新数据少用ado控件感觉ADO控件很不好用,用ADODB连接也很方便啊

Public dbConn As ADODB.Connection '定义一个ADODB连接 
Public stuRs As ADODB.Recordset '定义Recordset对象 
Public SqlFindStr As String 

Public Function Conn2DB() As Boolean 
'公共Access数据库连函数 

Dim connStr As String 
Dim dbName As String 

dbName = App.Path & "\" & "StudentDB.mdb" '返回程序所在路径 

' Access连接字符串 
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName 

Set dbConn = New ADODB.Connection '定义一个ADODB连接对象 

If dbConn.State <> adStateOpen Then '判断ADODB连接是否打开 
dbConn.Open conStr '如果不是打开状态 就打开连接 
End If 

Conn2DB = True 
End Function 

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset 
Dim rst As ADODB.Recordset 

'执行一条SQL查询,得到一个记录集 
Set rst = New ADODB.Recordset 
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic '得到记录 

Set ExcSQL = rst 
End Function

这是我的收藏啊,贡献了,用这个更方便一点up你那样好象只是添加了新记录,把原来的覆盖了吧?
adodc控件好象没有自动重新加载数据的功能

要吗你就把“Adodc1.Refresh ”这句注释掉。

还是用ADO连接比较好控制


如何限制软件的使用期限?  
VC编写的控件在VB下使用的问题
帮忙看看这句
msde的安装方法
请问在vba中如何加载当前路径dll
VB菜鸟求救:Stuff_MIS   查询错误:标准表达式中数据类型不匹配
API中的GetComputerName如何调用?
autocad的文件怎么样能导入vb中
怎么做字符串链表
高分求:将access数据库中某个表中指定字段导出成字段宽度、类型有限制的viual   foxpro表
关于考试试卷自动生成系统
如何限制软件的使用期限?  
如何限制软件的使用期限?
使用excel数据源,不能正确显示货币类型的小数……
LSet问题
急需VB或VC编程人员
vb中   数字后面有个#是什么意思
求助:文件读取问题
RowIsVisible   怎么样显示网格中被隐藏的行!我快干血了...
如何用CreatProgress函数成功启动command.com程序
乘法溢出的问题
初次做VB的DLL,请大家帮忙!
权限被拒绝
Excel导入Sql   server2000中openrowset的使用时奇怪问题!
什么品牌电脑好?
VB+ado+Access如何数据修改
VB怎样只读取字符串中的数字部分??
VC菜鸟关于生成exe文件无法运行的问题,在线等
老问题,如何将函数作为参数进行传递?
如何在WEB控件里点击某文字连接??
100分悬赏rc2加密算法
关于按狃问题
一个逻辑上的问题
如何引用ACCESS   中窗体的文本框的值?
CSDN   快速搜索
关于LDAP连接的问题
最近用尝试用VB做DLL,有问题请大家指教一下。
excel   后台打印报表的问题???
如何使用web控件执行网页操作??
inet.openurl的问题
关于   RasGetProjectionInfo   求   IP   地址的问题
DataGrid的用法:如何在datagrid中插入一列数据?
msflexgrid   用鼠标
连接一个dbf表   open   出错    
怎么把RS数据绑定Data   Report   的文本框控件上?
最好的视频教程网站
在台式机的800×600下编写的VB程序,放到笔记本上字体太难看粗糙,但在1024×768下显示时,字体虽然好看,但程序运行后的窗口只占液晶显示器的一部分,有没有适应屏幕分辨率的控件,自己编代码实现太麻烦,因界面上控件太多。
请问一个ADO的问题
新手请教几个简单问题
webbrowser自动填表进阶疑问:如何选完省再选市
急急急高分快速解决
VB中对表排序
急急急高分快速解决
高手请教一个正则表达式的问题
用VB的ADO访问DBF文件出问题
连接sqlserver服务器,如果服务器关机的话,等待时间太长的问题怎么解决?
怎么回事啊!!高手进来看看
疑难问题:   vb6.exe   中发生未处理的win32异常
AT   指令删除短信问题
关于记录集复制
sql   server   如何使用VB6   代码进行数据库文件(mdf,ldf)的   附加和分离?
难度10:压缩数据,然后解压数据包,不要文件格式,怎么做?
请问VB.NET里的这句话在VB6里怎么实现?
菜鸟急题!sendkeys向一个java程序发送中文出现乱码问题
--------取货表   到   库存货架表   中取货的问题----- < <高级版 > >----  
一条sql语句插入值的问题
求助,那位大哥能帮忙解决本人将给予一定报酬
求助
国庆归来散分
新手提问:关于如何使窗体自动适应图片大小的问题
开发状态下,怎么关闭所有的窗口,每次都要一个一个按
用vb生成word文档,页眉页脚怎么生成呢?
想做觸摸屏瀏覽器上的軟鍵盤,可是關於WebBrowser中文本框焦點問題怎麼獲取呀?
关于获取QQ游戏密码的问题。只是研究。不是破坏!
有没有办法独占方式访问一个分区
如何使用wmi获得系统信息如CPU内存大小硬盘大小主板型号等
如位有fpspr70.ocx控件,发下给我.谢谢啦
有没有去掉整数后小数点的函数   是小数点不是0
如何实现此文件操作?
ActiveReport整数怎样可以不打印出小数点(SQL中money类型怎样显示出小于0的数前的0)  
大家帮我以下,关于查询的问题  
最近用尝试用VB做DLL,有问题请大家指教一下。
最近自己尝试做Dll,有问题大家帮忙
求一款翻译软件,急
文件关联了以后,如何批量传送COMMAND
求一个内存读图片的工具。
局域网内IP地址为什么会变
vb   的winsock控件如何实现一对多的连接
请问如何对DTPicker付值?
excel报表打印问题
整数怎样可以不打印出小数点(SQL中money类型怎样显示出小于0的数前的0)
请问如何比较组织数中节点的属性?
ActiveReport控件怎样不打印小数点打印
整数怎样可以不打印出小数点(SQL中money类型怎样显示出小于0的数前的0)
请问如何对一个date形变量付置?
求助   Datagrid控件和Adodc控件使用问题
进度条控制问题??
vb中的控件不能使用
救小弟,把查询一列放在listview中,然后希望点击某个格可以直接把它的值赋给text.怎么办呀?
满分,跪求!!!access的form控件     窗体的“记录源“(Record   Source)属性
更多vb开发资料,请访问http://www.vbbaike.com/


  • 0
    点赞
  • 0
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值