1188
社区成员
用vb编写有关数据库编程的问题
我是个vb新手，在编一个程序是遇到了一个问题。我建好了一个数据库，用ado连接后，我想要达到这样的效果，输入一个在数据库里存在的编号，就自动在另一个输入框里显示相应的内容。第一次执行是没有问题，就是在每我改变第一个数时，就产生错误：binding collection error,field not updatable，……望高手指教，解决我的问题，应该怎么改，谢谢。
我的代码是这样的：
Private Sub Form_Load()
txtCode.DataField = "code"
txtName.DataField = "name"
End Sub
Private Sub txtCode_Change()
Dim SQL As String
SQL = "SELECT name "
SQL = SQL + " From name"
SQL = SQL + " Where code = "
SQL = SQL + txtCode.Text
Adodc1.RecordSource = SQL
Adodc1.Refresh
End Sub
我的代码是这样的：
Private Sub Form_Load()
txtCode.DataField = "code"
txtName.DataField = "name"
End Sub
Private Sub txtCode_Change()
Dim SQL As String
SQL = "SELECT name "
SQL = SQL + " From name"
SQL = SQL + " Where code = "
SQL = SQL + txtCode.Text
Adodc1.RecordSource = SQL
Adodc1.Refresh
End Sub
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
sunshinecom21 2001-09-18
其实这样也可以
当然不要把txtcode绑定
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
If Adodc1.Recordset.Fields("code").Value = txtCode Then
txtName = Adodc1.Recordset.Fields("name").Value
Exit Sub
End If
Adodc1.Recordset.MoveNext
Next i
当然不要把txtcode绑定
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
If Adodc1.Recordset.Fields("code").Value = txtCode Then
txtName = Adodc1.Recordset.Fields("name").Value
Exit Sub
End If
Adodc1.Recordset.MoveNext
Next i
minmin 2001-09-18
谢谢帮助
pengcheng 2001-09-17
同意楼上的。
starbattler 2001-09-17
哈哈终于被我找到原因了！！！
首先你要保证adodc1.recordsource属性设置为命令类型1-adCmdText 在命令文本中写如
select 需要字段名 from name
然后我建议不要把修改记录的代码放在txtCode_Change()事件中，不然你想输入15，结果刚输了1事件就被执行了，不好！！用个command好了。在command1()事件中写入以下修改代码Dim SQL Dim SQL As String
SQL = "SELECT name ,code "
SQL = SQL + " From name "
SQL = SQL + " Where code = "
SQL = SQL & Text1.Text
Adodc1.RecordSource = SQL
Adodc1.Refresh
Set Text1.DataSource = Adodc1
Text1.DataField = "Au_ID"
Set Text2.DataSource = Adodc1
Text2.DataField = "author"
我已经在我机器上通过了，呵呵！！
首先你要保证adodc1.recordsource属性设置为命令类型1-adCmdText 在命令文本中写如
select 需要字段名 from name
然后我建议不要把修改记录的代码放在txtCode_Change()事件中，不然你想输入15，结果刚输了1事件就被执行了，不好！！用个command好了。在command1()事件中写入以下修改代码Dim SQL Dim SQL As String
SQL = "SELECT name ,code "
SQL = SQL + " From name "
SQL = SQL + " Where code = "
SQL = SQL & Text1.Text
Adodc1.RecordSource = SQL
Adodc1.Refresh
Set Text1.DataSource = Adodc1
Text1.DataField = "Au_ID"
Set Text2.DataSource = Adodc1
Text2.DataField = "author"
我已经在我机器上通过了，呵呵！！
lovercat 2001-09-17
Private Sub txtCode_Change()
for i=1 to len(textcode.text)
.....
if not adodc1.eof then
...
adodc1.close
else
adodc1.close
end if
next
对不？大概就这思路
for i=1 to len(textcode.text)
.....
if not adodc1.eof then
...
adodc1.close
else
adodc1.close
end if
next
对不？大概就这思路
sunking 2001-09-17
1,你用绑定文本框的方法时，当文本框中的内容改变时，数据库是要更新的，所以你应该把第一个绑定去掉：txtCode.DataField = "code"去掉
2,你的查询语句不应放txtCode_Change里面，或者放在Keypressed中当按回车时开始查询，或者另外设置一个查询的按钮
3,在做字符串连接时不要用“＋”，应该用“&"否则容易错误的。
2,你的查询语句不应放txtCode_Change里面，或者放在Keypressed中当按回车时开始查询，或者另外设置一个查询的按钮
3,在做字符串连接时不要用“＋”，应该用“&"否则容易错误的。
sonicdater 2001-09-17
在 Private Sub txtCode_Change()
中 重新 binding 一次 ,即 txtCode.DataSource= ADODC1:txtName.DataSource= ADODC1
试试
中 重新 binding 一次 ,即 txtCode.DataSource= ADODC1:txtName.DataSource= ADODC1
试试
shawls 2001-09-17
晴空
lovercat 2001-09-17
Private Sub txtCode_Change()
里边我想应该放入循环。
里边我想应该放入循环。
VB.NET编写的MySql数据库编程工具 摘要:VB源码,数据库应用,数据库编程 2010编写的MySql数据库编程工具，比较详细的使用了MySQL Connector .Net的方法等有关示例。支持生成普通SQL查询、支持快捷查看表内容、支持生成读取DataTable代码、数据绑定代码...
VB编写的MSSQL数据库连接测试工具 数据库应用,数据库编程 VB编写的MSSQL数据库连接测试工具，测试本机或远程的MSSQL数据库是否能够正常连接，程序没有其它的附加功能，需要编程实现连接MSSQL数据库的朋友可以把本程序作为一个功能模块单元来使用。
vs2019 下用 vb.net编写窗体程序连接 mongodb4.2的方法 主要介绍了vs2019 下用 vb.net编写窗体程序连接 mongodb4.2,本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下
VB编写的连接并创建SQL数据库的小工具 内容索引:VB源码,数据库应用,创建数据库 一个简单的VB数据库应用研究，编程实现的小工具，用于MSSQL数据库连接测试，并允许载入SQL脚本文件创建数据库。本程序可用于你的软件项目中，作为一个数据库创建模块，省去...
一个VB医院管理系统6个模块的源码含数据库 内容索引:VB源码,数据库应用,医院,管理系统 一个VB医院管理系统的6个模块的源码，含MSSQL数据库，这6个模块是门诊挂号模块、门诊收费模块、综合数据管理、药房管理、药库管理、院长查询，每一个模块都对我们编程挺...
VB入门实例解析应用编程100例(PDF).rar Visual Basic是基于Basic的可视化...任何具有初步程序设计基础的人，都能在很短的时间内掌握好VB，并有效地编写出各种Windows程序。 VB实例教程100例，基本上能涉及的都涉及了，对VB初学者有很大的帮助。 5分不算多。
VB.net数据库编程中DataGrid控件的使用技巧 如何用同一个DataGrid显示不同的数据表；如何用DataGrid显示主表/明细表的内容；如何用DataGrid分页显示或编辑数据表的记录。...那么,在VB.NET数据库编程中DataGrid控件有哪些使用技巧呢？这就是我今天要谈的内容。
vb6 sqlite 事务方式数据库编程 无需部署即可使用的sqlite演示程序程序用vb6编写，包含sqlite的基本操作及性能测试，直接调用sqlite.dll中的api函数。性能测试中演示了插入操作使用事务提交及不使用事务提交方式在时间上的巨大差异。演示及性能测试...
VB编写的积分管理系统Access版 内容索引:VB源码,数据库应用,管理系统 VB编写的积分管理系统Access版，一个简单的数据库编程实例，完成个人信息、学习积分、纪律积分、卫生积分、宣传积分、劳动积分的管理，并可以进行数据查询 ，刚学习VB的朋友，...
基于VB6开发的轻量级数据库查询客户端工具（附源码和安装） 附源码，对初学数据库编程的童鞋有所裨益！ 1、支持SQLServer、Oracle、Sybase、DB2数据库平台 2、单句执行：可以提交单一的SQL语句给服务器执行。 3、多句一次执行：可以将多个SQL语句用空格或换行的方式进行隔离...
VB网络编程实例
◆ 82.htm 用Sockets发送电子邮件
◆ 83.htm 用VB 创 建 自 己 的 通 信 程 序
◆ 84.htm 用VB5.0开发通信软件的技巧
◆ 85.htm 用VB5开发IE
◆ 86.htm 用VB编写网络寻呼
◆ 87.htm ...
VB.NET数据库编程基础教程 关键词：作者罗姗 众所周知，VB.NET自身并不具备对数据库进行操作的功能，它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的...要了解VB.NET的数据库编程，首先要明白ADO.
VB动态创建访问数据库的DSN 摘要:VB源码,数据库应用,DSN VB动态创建访问数据库的DSN，编写过程中调用了诸多的API函数，也定义了比较多的变量，同进还涉及一些窗体编程的小技巧，对于VB初学者来说，是个不错的参考小实例。
VB编写的简单药品查询工具 简单药品查询工具，VB源码编写，源代码完整供下载参考，对学习VB各个方面的编程都有帮助。方便对一些常用药品进行查询。对药品进行了分类查询，比如化学药、中药、民族药、生物制品等，另外还有一个抓老鼠的小游戏，...
VB.net数据库编程pdf 第一部分包括3章，是基础部分，介绍VB.NET调用sQL语句操作Access、SQL Server数据的方法，每章后面都配有一个短小而综合的例子，在此基础上，可以针对简单的需求，编写一些应用程序。第二部分包括5章，从5个不同的...
VB.Net数据库编程 众所周知，VB.NET自身并不具备对数据库进行操作的功能，它对数据库...要了解VB.NET的数据库编程，首先要明白ADO.NET的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍ADO.NET数据库访问对象以及V
