我用VB的datalogin控件 数据库连接access数据库，查询的时候只能显示第一条记录

来源：蜘蛛抓取(WebSpider) 时间：2012-05-11 05:21 标签： login控件 数据库
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1426)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'如何用VB打开一个Access数据库查看一个表里的内容',
blogAbstract:'VB本身支持数据库编程，查看Access内容的最好办法是使用Data控件和DBGrid控件进行绑定。基本步骤如下：
&&&&1、向工程上添加Microsoft Data Bound Grid Control控件，即DBGrid控件。
&&&&2、在窗体上添加DBGrid控件DBGrid1和Data控件Data1。
&&&&3、设置Data1的DatabaseName属性为你要看的数据库的名字。
&&&&4、设置Data1的RecordSource属性为表的名字或合法的SQL Select语句。
&&&&5、设置DBGrid1的DataSource属性为Da',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:8,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}一个DataGrid和一个adodc，还有一个查询按钮。
按钮的编程为
If Optn1.Value = True Then
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\超市管理.Persist Security Info=False"
Adodc3.RecordSource = "select * from 库存清单 where 库存清单.商品编号= '" & Text4.Text & " '"
一个DataGrid和一个adodc，还有一个查询按钮。
按钮的编程为
If Optn1.Value = True Then
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\超市管理.Persist Security Info=False"
Adodc3.RecordSource = "select * from 库存清单 where 库存清单.商品编号= '" & Text4.Text & " '"
Adodc3.Refresh
Set Form3.DataGrid4.DataSource = Adodc3
Text4.Text = ""
If Adodc3.Recordset.EOF Or Adodc3.Recordset.BOF Then
MsgBox "无此商品！"
End If
end if
这些是代码，在文本框中输入商品编号，然后点击按钮，最后在DataGrid中显示查询结果。我这样运行后，总提示from子句语法错误。我又检查不出来那里错了。请高手帮我看看，库里面有表access是2000格式的
LZ:如果商品编号字段是数字的话,请将字段值前后2个单引号去除.
Adodc3.RecordSource = "select * from 库存清单 where 库存清单.商品编号=" & Val(Text4.Text) & ""
delete from 表名 where 字段名=条件值 比如想删除table1种的id=1的纪录 语句这样写delete from table1 where ...
选中所要删除的数据行，点击右键——删除记录，即可。
只要你确信所有的数据库链接已经关闭就可以了。*.ldb文件不消失有可能是系统的某些缓存的文件还在访问这个access文件。不要紧的。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区君，已阅读到文档的结尾了呢~~
用VB中的Data控件访问数据库
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
用VB中的Data控件访问数据库
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口

我要回帖

更多关于 login控件 数据库 的文章

 

随机推荐