VB Access 数据库 ，已知表名和字段名，怎么列出该字段名称下的所有数据到datagrid1中显示。_百度知道
VB Access 数据库 ，已知表名和字段名，怎么列出该字段名称下的所有数据到datagrid1中显示。
B Access 数据库 ，已知表名和字段名，怎么列出该字段名称下的所有数据到datagrid1中显示。 例如是 producetable1表 下的 worknumber字段
/zhidao/wh%3D600%2C800/sign=18d5a19e912397ddd62ce8f/562c11dfa9ec8a131ecacf99fecc0f3://f.com/zhidao/pic/item/562c11dfa9ec8a131ecacf99fecc0f3.jpg" esrc="http.baidu://f://f.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http.hiphotos<a href="/zhidao/wh%3D450%2C600/sign=d0d9f4cbb2b7d0a27b9c0c99fedf5a3f/562c11dfa9ec8a131ecacf99fecc0f3.baidu
提问者采纳
refreshdatagrid就跟着刷心了.refresh显示某字段adodc1;select * from producetable1&quot：adodc1;adodc1;select worknamber from producetable1&quot.recordsource = &adodc1.recordsource = &quot把datagrid1的数据源ADODC1的COMMANDTYPE = 1显示所有记录
提问者评价
rs.Open &SELECT & & Combo2.Text & &
FROM & & Combo1.Text & &&, m_adoCon, 1, 1
其他类似问题
为您推荐：
其他2条回答
可以写代码实现。VB你直接在datagrid里设置一下关联就好，如果麻烦一点
在下拉列表框的change事件里重新绑定数据源,重新写SQL&SELECT &+ this.dropDownList3.selectValue +& FROM producetable1&
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB使用Adodc连接一个服务器的数据库_百度知道
VB使用Adodc连接一个服务器的数据库
username=&库名; poolsize=& password=&quot.Driver&auth0&quot，请问用VB如何连接它&大侠们帮帮忙; &#47:&#47;driver name=&123&3&&characterEncoding=utf-8&application debug=&&&lt?useUnicode=true&amp.false&quot:3306&#47;connection name=& &&#47;&transformedBitIsBoolean=true&&#47. url=&quot:zeroDateTimeBehavior=convertToNull&123456&quot下面是网面中的数据库信息
提问者采纳
; Adodc1;select * from 表&&nbsp.51 Driver};uid==123：&&nbsp..写你的操作&&Driver={MySQL ODBC 3;&pwd=123456; Adodc1;Server=;&&&nbsp.EOF=false Then&nbsp.;&nbsp.RecordSource=&quot.ConnectionString=& ‘;database=库名&quot.Refresh&nbsp.; Adodc1;&& If Adodc1.RecodeSetVB的ADODC控件就超级简单了;&nbsp.;&&&
还有其它方法吗？我的电脑没MySQL ODBC 3.51 Driver驱动，添加它也不行，
你连接的是oracle我晕，你自己写的 url=&jdbc:mysql:&#47;&#47;不是mysql吗
提问者评价
来自团队：
其他类似问题
为您推荐：
您可能关注的推广
adodc的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁共有 849 人关注过本帖
标题：关于adodc控件操作会错误更新其他字段的求解
等　级：业余侠客
帖　子：209
专家分：271
结帖率：87.5%
&&已结贴√
&&问题点数：40&&回复次数：15&&&
关于adodc控件操作会错误更新其他字段的求解
使用到的控件：datagrid1,datagrid2,adodc1,adodc2,
datagrid1的datasource是 adodc1
datagrid2的datasource是 adodc2
datagrid1.选中要查看的订单编号 按下enter键盘会跳出datagrid2如下图2，请注意上图第一行的订单编号为100001
此图2为datagrid2的明细，按下esc的时候，datagrid2会隐藏，显示datagrid1，如下图3，问题出现了
请看图3，当esc后datagrid2隐藏后，datagrid1显示后，第一行的订单编号变成了上次查看明细的订单编号
注：datagrid1.allowedupdate 是false
数据库中的数据也被更改了。。不知为什么，请求指教，万分感谢！！！
附件: 只有本站会员才能下载或查看附件，请
搜索更多相关主题的帖子:
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
&&得分:40&
DataGrid1_KeyDown事件修改如下：
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
&&& 订单编号 = DataGrid1.Columns(&订单编号&).Value
&&& 酒店名称 = DataGrid1.Columns(&酒店名称&).Value
&&& 厨房 = DataGrid1.Columns(&厨房&).Value
&&& Adodc1.Recordset.Close
&&& Adodc1.Recordset.CursorLocation = adUseServer
&&& Adodc1.Refresh
&&& If KeyCode = 13 Then '以下是在datagrid1上选定按下enter的情况
&&&&&&&&sql1 = &select 订单表.酒店货物名称,订单表.转换酒店单价 as 单价,订单表.送货单数量,订单表.酒店单位,订单表.备注 from 订单表,订单编号表头 where 订单表.id_编号=订单编号表头.id_编号 and 订单编号 ='& & 订单编号 & &' order by id_订单&
&&&&&&&&Adodc2.RecordSource = sql1
&&&&&&&&Adodc2.Refresh
&&&&&&&&Set DataGrid2.DataSource = Adodc2
&&&&&&&&DataGrid2.Visible = True
&&&&&&&&Label7.Caption = &订单编号：& & 订单编号
&&&&&&&&Label3.Caption = &酒店名称：& & 酒店名称
&&&&&&&&Label4.Caption = & 厨房：& & 厨房
&&&&&&&&Frame3.Visible = True
&&&&&&&&Call 初始化datagrid2
&&&&&&&&sql1 = &select count(酒店名称) as a from 订单表,订单编号表头 where 订单表.id_编号=订单编号表头.id_编号 and 订单编号表头.订单编号='& & 订单编号 & &'and 订单表.转换酒店单价 is null &
&&&&&&&&Adodc3.RecordSource = sql1
&&&&&&&&Adodc3.Refresh
&&&&&&&&If Adodc3.Recordset.Fields(&a&) && 0 Then
&&&&&&&&&&&&DataGrid2.AllowUpdate = False
&&&&&&&&&&&&MsgBox &有没有价格的货物，请先确定价格，再来填写送货数量！&, vbOKOnly + vbInformation, & 提示信息&
&&&&&&&&&&&&Exit Sub
&&&&&&&&Else
&&&&&&&&&&&&DataGrid2.AllowUpdate = True
&&&&&&&&End If
&&&DataGrid2.SetFocus
&&&&&&&&SendKeys &{right}&
&&&&&&&&SendKeys &{right}&
&&& End If
[ 本帖最后由 lowxiong 于
00:08 编辑 ]
等　级：业余侠客
帖　子：209
专家分：271
我的数据库中市是有key的，附件的2个表是其中2个表，我复制出来的，订单表的外键市是id编号，订单编号表头主键是id编号，通过这个来连接的，不是没有key的问题，我把adodc1的locktype改成了readonly就解决了，虽然不知道为什么，默认的会出现这种问题
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
我在二楼的代码改了。你数据库的确没key，如果有key的话则那项边上有个钥匙图样，你的都没有，见下图：
附件: 只有本站会员才能下载或查看附件，请
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
改成readonly是掩耳盗铃，除非你不需要改adodc1的数据。
等　级：业余侠客
帖　子：209
专家分：271
回复 5楼 lowxiong
版主，这不是key的问题，，在我的数据库中，有key，但问题依然存在，版主你可以将id_编号设为主键，订单表中的id_编号设为外键，你试试问题依然存在，不知为什么
注：在我esc后停留咋adodc1. recoredset.find 这句的时候，datagrid1.的第一行已被更改，但并没有更新到数据库中
如果我后面执行 adodc1.recordeset.find，第一行数据库中的内容即被更改。很是奇怪，甚是不解！
这2个表是我从数据库中复制大另外一个数据库中的，所以这2个表没有保留结构，版主你可以把key和关系手动加上试一试，问题依旧！
我这个中共有3个adodc控件，起不同的作用
adodc1主要是显示和控制datagrid1的，这个无update需求
adodc2主要是显示和控制datagrid2的，这个有update需求
adodc3主要是备用
附件: 只有本站会员才能下载或查看附件，请
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
我跟踪了，问题正如你所说的，rst.find后更改了数据，换我在2楼的代码后即没有这个问题，我只是将ado的游标类型更换为adUseServer，你默认的是adUseClient，游标类型只是决定数据更改对于远程数据库而言数据更改是否是及时而已，应该不会产生rst.find更改数据的事情，估计这是一个bug。
但如果实际更改数据后还是修改了数据（原来你的代码只要进入后立即esc也会更改数据），估计是你的sql语句有问题，我在看看。
[ 本帖最后由 lowxiong 于
11:50 编辑 ]
等　级：业余侠客
帖　子：209
专家分：271
回复 7楼 lowxiong
Adodc1.Recordset.Close
&&& Adodc1.Recordset.CursorLocation = adUseServer
&&& Adodc1.Refresh
我已将上述代码写入事件中，不过问题依然存在，我觉得这并不是游标的问题，因为我adodc1这个控件不涉及到更新数据库的问题，而它却莫名的修改数据库中的内容，个人认为这是1个bug
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
我的是正常的，见屏幕录像
附件: 只有本站会员才能下载或查看附件，请
等　级：业余侠客
帖　子：209
专家分：271
回复 9楼 lowxiong
版主，你的录像我看了，发现操作问题，见图1，图2
这是版主你选择的方法，这种方法，我试过了，不会出现更改数据的情况，但是这种选择方式只有用鼠标的情况下会生效
这是我用的选择的方式，与版主的不一样，这就导致了会更改数据，版主在试试，不要用图1方式选择数据，图2是较为普遍的选择数据的方式，用键盘就可以实现高亮显示，
所以还请在测试一遍
附件: 只有本站会员才能下载或查看附件，请
版权所有，并保留所有权利。
Powered by , Processed in 0.038280 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved共有 1103 人关注过本帖
标题：求助：adodc:至少一个参数没有被指定值!
等　级：新手上路
帖　子：10
&&已结贴√
&&问题点数：5&&回复次数：6&&&
求助：adodc:至少一个参数没有被指定值!
我想编一个查询小程序，界面是4个文本框的，一个命令按钮，一个adodc1控件，当在第一个文本框输入要查询的字段时，点击按钮，就在其他文本框显示其他相应内容，数据库已连接好，就是运行的时候出现了adodc:至少一个参数没有被指定值!
请问我编的程序有问题吗？还是那个地方有错误啊！
请高手指点！不胜感激！
Private Sub Command1_Click()
Dim condition
condition = Trim(Text1.Text)
Adodc1.RecordSource = &select*from 库存 where & & condition & &='& & Text1.Text & &'&
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(&货物编号&)
Text2.Text = Adodc1.Recordset.Fields(&货物名称&)
Text3.Text = Adodc1.Recordset.Fields(&库存量&)
Text4.Text = Adodc1.Recordset.Fields(&单位&)
Private Sub Form_Load()
Adodc1.RecordSource = &select * from 库存&
Adodc1.Refresh
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：10
我用的是VB6.0
期待着。。。。。。。。。。。。。。。
等　级：贵宾
威　望：79
帖　子：3929
专家分：26520
condition = Trim(Text1.Text)
Adodc1.RecordSource = &select*from 库存 where & & condition & &='& & Text1.Text & &'&
Adodc1.RecordSource = &select*from 库存 where & &&&Trim(Text1.Text)
&& &='& & Text1.Text & &'&
来　自：斗气大陆
等　级：贵宾
威　望：41
帖　子：2174
专家分：13248
你是想根据text1中输入的货物编号来查看货物吗？如果是的话下面的代码就可以 了&&&不是的话我也不懂你是什么意思了
程序代码：Private Sub Command1_Click()
Adodc1.RecordSource = &select*from 库存 where 货物编号='& & Text1.Text & &'&
Adodc1.Refresh
Text2.Text = Adodc1.Recordset.Fields(&货物名称&)
Text3.Text = Adodc1.Recordset.Fields(&库存量&)
Text4.Text = Adodc1.Recordset.Fields(&单位&)
三十年河东，三十年河西。莫欺少年穷！
等　级：新手上路
帖　子：10
回复 3楼 Artless
听从您的建议以后，将程序改为：
Private Sub Command1_Click()
Adodc1.RecordSource = &select*from 库存 where & & Trim(Text1.Text) & &=& & Text1.Text & &&
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(&货物编号&)
Text2.Text = Adodc1.Recordset.Fields(&货物名称&)
Text3.Text = Adodc1.Recordset.Fields(&库存量&)
Text4.Text = Adodc1.Recordset.Fields(&单位&)
Private Sub Form_Load()
Adodc1.RecordSource = &select * from 库存&
Adodc1.Refresh
运行后，界面不出错了，但是当我在第一个文本框里输入1的时候，其他的文本框也显示相应的信息，但是当我输入2的时候，在按命令按钮，还显示原来的1的信息，这是为什么啊？
附件为数据库文件
附件: 只有本站会员才能下载或查看附件，请
等　级：新手上路
帖　子：10
回复 4楼 韶志
你好，我已经按照您写的程序重新试了一遍，但是提示“标准表达式中的数据类型不匹配”，这是为什么啊？
等　级：新手上路
帖　子：10
回复 4楼 韶志
已经解决了，谢谢你啊，哈哈，把单分号去了就行了！十分感谢！
版权所有，并保留所有权利。
Powered by , Processed in 0.019341 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights ReservedVB无法插入空行，行必须至少有一个列值集 Adodc1.Recordset.Update显示问题_百度知道
VB无法插入空行，行必须至少有一个列值集 Adodc1.Recordset.Update显示问题
&#39;Data Source=&quot.Jet.0;End SubPrivate Sub Command1_Click()Adodc1;Adodc1.DataSource = Adodc1Text1.OLEDB.RecordsetPrivate Sub Form_Load()Adodc1.&#92.R + APersist Security Info=mandType = adCmdTextAdodc1.Path + &quot.RecordSource = &select * from 名称&quot.AddNew &#39.Refresh &#39.DataField = & &#39;Set Text1;1;添加新纪录End SubPrivate Sub Command2_Click()Adodc1;保存Adodc1.ConnectionString = &Provider=Microsoft.4;姓名& &#39
提问者采纳
看你的数据库这张表的字段是不是不允许为空？ 如果不允许为空，你现在添加一个空行当然是不允许的。
提问者评价
来自团队：
其他类似问题
为您推荐：
空行的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}