VB+ADO+Access如何修改数据
这个问题是不是太简单了,大家都不屑于回答啊? 希望大侠们赐教啊!着急啊!只看到部分代码还不知道什么原因,但感觉表名有点不妥,可能会和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连接比较好控制
如何限制软件的使用期限? (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |