为什么我在VB里的查询文本框里粘贴文字查询就不可以，必许手动输入才可以查询。哪位高手赐教。_百度知道
为什么我在VB里的查询文本框里粘贴文字查询就不可以，必许手动输入才可以查询。哪位高手赐教。
为什么我在VB里的查询文本框里粘贴文字查询就不可以，必许手动输入才可以查询。哪位高手赐教。
右键菜单里的剪切、复制和粘贴也不可以。粘贴进后必须有手动改动再可以。总之要手动修改。
我有更好的答案
是不是Ctrl+C、Ctrl+X和Ctrl+V这几个快捷键被程序用了，这样的的话，相应的组合键就不好用了，你试一下用右键菜单里的剪切、复制和粘贴看看可不可以，如果可以的话就可能是快捷键的问题了，正常的VB文本框里是可以用粘贴的 那可能是你的VB程序禁用了这几个键的功能，网上有这方面的说明，你到网上找一下
采纳率：49%
记得右键菜单里的剪切、复制和粘贴后要update
为您推荐：
其他类似问题
文本框的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB6.0软件 如何再文本框上查找和查找下一个_百度知道
VB6.0软件 如何再文本框上查找和查找下一个
VB6.0软件 如何再文本框上查找和查找下一个，使用的时候，只能再默认的名字text1 和 text2中可以使用代码是正常的，我把text1和2换成text3和4查找功能就不能用了，请问怎么改，我把text1和text2正确的发出来，帮我改长3和4能用查找就可以了，谢谢。
我有更好的答案
Option Explicit'定义目标位置变量Private TargetPosition As Integer'编写一个查找函数Private Sub FindText(ByVal start_at As Integer)Dim pos As IntegerDim target As String'获取用户输入的要查找的字符串target = Text4.Textpos = InStr(start_at, Text3.Text, target)If pos & 0 Then '找到了匹配字符串TargetPosition = posText3.SelStart = TargetPosition - 1'选中找到的字符串Text3.SelLength = Len(target)Text3.SetFocusElse '没有找到匹配的字符串MsgBox &没找到匹配的字符串！&Text1.SetFocusEnd IfEnd SubPrivate Sub command1_Click()'从第一个字符开始查找FindText 1End SubPrivate Sub command2_Click()'从当前位置继续查找FindText TargetPosition + 1End Sub
采纳率：36%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2467|回复: 7
怎样以随机方式读取文本文件一条记录并显示在文本框中
本帖最后由 望月抚琴 于
22:25 编辑
我想把C盘根目录下的文本文件3.txt用随机文件方式读取其中的第9个记录，并让其显示在文本框里进行修改，最后再保存到这个文本文件的第12个记录中，请问代码怎么写？我是新手，要详细点，最好在每句代码后面加注释，谢谢！
3.jpg (50.72 KB, 下载次数: 27)
22:10 上传
wjdx.jpg (16.13 KB, 下载次数: 25)
22:16 上传
随机文件不是文本文件,数据写了以后,你用记事本打开就不一样了,
写个例子你看看,随机访问是什么样子的.
Private Sub Command1_Click()
Open "e:\cesi.txt" For Random As #1 Len = 20
'打开文件,记录长度为20
For i = 1 To 5
Put #1, i, "数据" & i
Private Sub Command2_Click()
随机文件不是文本文件,数据写了以后,你用记事本打开就不一样了,
写个例子你看看,随机访问是什么样子的.
Private Sub Command1_Click()& &'写入记录
& & Open &e:\cesi.txt& For Random As #1 Len = 20&&'打开文件,记录长度为20
& & For i = 1 To 5
& && &&&Put #1, i, &数据& & i& && &&&'写入记录
& & Close& && && && && && && && && & '关闭文件
Private Sub Command2_Click()& &'读出记录
& & Open &e:\cesi.txt& For Random As #1 Len = 20
& & Get #1, 3, aa& && & '读出第3条记录
& & Text1 = aa
Private Sub Command3_Click()& &'添加记录
& & Dim i As Long
& & Open &e:\cesi.txt& For Random As #1 Len = 20
& & Do While Not EOF(1)
& && &&&i = i + 1
& && &&&Get #1, i, aa
& & Loop& && && && &'取得总记录数
& & i = i + 1
& & Put #1, i, &数据& & i& & '在末尾添加数据
Private Sub Command4_Click()&&'修改记录
& & Dim i As Long
& & Open &e:\cesi.txt& For Random As #1 Len = 20
& & Put #1, i, &修改数据了&& &&&'修改第4条数据
本帖最后由 cwa9958 于
00:14 编辑
上面这个还只是一个例子,真正的随机文件,应该还有定义数据类型的,就是记录,比如:
type&&worker
&&姓名&&as string * 10
&&性别&&as string * 2
&&年龄&&as integer
随机文件不是文本文件,数据写了以后,你用记事本打开就不一样了,
写个例子你看看,随机访问是什么样子的.
Private Sub Command1_Click()& &'写入记录
& & Open &e:\cesi.txt& For Random As #1 Len = 20&&'打开文 ...
cwa9958 发表于
首先要谢谢您，您辛苦了。
但我还有个问题，搞不明白，就是写入记录、添加记录、修改记录必须在文本框内操作，然后再保存到文本文件，请问能实现吗？麻烦您了，再次感谢！
当然可以了,数据用变量代替就是了,
当然可以了,数据用变量代替就是了,
cwa9958 发表于
谢谢!我是新手,不好意思,麻烦您了!
还有个问题不知能否赐教?
我想在文本框一次输入多行文字,比如15行,能不能把这15行文字变成15个记录存入文件?具体怎么做?谢谢!
Option Explicit
Private Sub Command1_Click()
Open App.Path & &\test.txt& For Output As #1
pirnt# 1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
Dim i As Integer
Text1.Text = &&
For i = 1 To 20
Text1.Text = Text1.Text & i & vbCrLf
Next
End Sub
复制代码
(1.17 KB, 下载次数: 326)
09:40 上传
点击文件名下载附件
Option Explicit
Private Sub Command1_Click()
Open App.Path & &\test.txt& For Output As #1
pirnt# 1, Text1.Text
Private Sub Form_Load()
Dim i As Integer
Text1.Text = &&
vbload 发表于
谢谢楼上的答复,辛苦你了,但我需要的是以随机方式保存,不知道怎么办?也就是select from中where子句里的类型匹配问题。
比如：数据库里“产品ID”字段格式为文本，TextBox里输入 01，where子句怎么写？
可以这样写：
select * from 表 where 产品ID='" & text1.text & "'"
希望能帮助你！
定义一数组变量,将TextBox控件的值赋值给数组变量,用Open语句以写文件方式将TextBox控件的内容输入到文本文件中.
Option Explicit
用SQL查询了数据库后返回一个记录集,这个记录集可以看成一个在内存中的数据库集合,里面包含字段名的记录,
你只需把里面的记录读到你的text里面就行了,因为没看...
你可以在vb中设置语句为 如下，比如说达到6之后，Private Sub Text1_Change()
If Len(Text1.Text) = 6 Then ...
Public Sub CreateCommand(ByVal queryString As String, _
ByVal connectionString A...
建议用adodb2.0操作上是一样的ado数据库.打开("连接文本",,,,)ado记录集.打开("查询语句",ado数据库,3,3,1)
'access库建...
答: 乐动力的分享到哪里去了
答: 网络技术电子邮件有了通达全球的Internet后，人们首先想到的是可以利用它来提供个人之间的通信，而且这种通信应能兼具电话的速度和邮政的可靠性等优点
答: 你要卓面连接的软件,在你的电脑系统盘就有了,你打开系统盘设置好就行了,你的系统在C盘的你就打开C盘找出来就行了,下面有图你细心看有助你的,你看图也不理解可以发个...
餐饮业厨房产生的油烟，顾名思义，废气中主要污染物为油烟，一般采用静电除油。
液化气属较清洁能源，废气污染程度不高，主要含二氧化碳一氧化碳吧。
柴油属石油类，废气含二氧化硫和氮氧化物，二氧化硫碱液喷淋即可去除，氮氧化物主要以一氧化氮为主，要催化氧化成二氧化氮才能被碱吸收，造价成本非常高，一般的柴油发电机尾气难以治理，除非大型发电厂。
煤炭废气含二氧化硫多，一般常用的脱硫工艺即可。
根本就没有正式的国际驾照，如果到国外开车，正式的程序：
1、到公证处办理驾照的公证书，可以要求英文或者法文译本（看看到哪个国家而定）；
2、拿公证书到外交部的领事司指定的地点办理“领事认证”，可以登录外交部网站查询，北京有4、5家代办的，在外交部南街的京华豪园2楼或者中旅都可以。
3、认证后在公证书上面贴一个大标志；
4、有的国家还要到大使馆或者领事馆盖章一下。
偶前几天刚刚办过。
铝属于两性金属，遇到酸性或碱性都会产生不同程度的腐蚀，尤其是铝合金铸件的孔隙较多，成分中还含有硅和几种重金属，其防腐蚀性能比其他铝合金更差，没有进行防护处理的铝铸件只要遇到稍带碱性或稍带酸性的水，甚至淋雨、水气、露水等就会受到腐蚀，产生白锈。
解决的办法。
铝铸件完成铸造后，在机械加工前，先要进行表面预处理，如预先对铸件进行喷砂，涂上一道底漆（如锌铬黄底漆），在此基础上再进行机械加工，以避免铸铝件在没有保护的情况下放久了被腐蚀。
一、利息计算公式主要分为以下四种情况，第一，计算利息的基本公式，储蓄存款利息计算的基本公式为：利息=本金×存期×利率；
第二，利率的换算，其中年利率、月利率、日利率三者的换算关系是：年利率=月利率×12（月）=日利率×360（天）；月利率=年利率÷12（月）=日利率×30（天）；日利率=年利率÷360（天）=月利率÷30（天），除此之外，使用利率要注意与存期相一致；
第三，利息计算公式中的计息起点问题，1、储蓄存款的计息起点为元，元以下的角分不计付利息；2、利息金额算至厘位，实际支付时将厘位四舍五入至分位；3、除活期储蓄年度结算可将利息转入本金生息外，其他各种储蓄存款不论存期如何，一律于支取时利随本清，不计复息；
第四，利息计算公式中存期的计算问题，1、计算存期采取算头不算尾的办法；2、不论大月、小月、平月、闰月，每月均按30天计算，全年按360天计算3、各种存款的到期日，均按对年对月对日计算，如遇开户日为到期月份所缺日期，则以到期月的末日为到期日。
二、存期计算规定
1、算头不算尾，计算利息时，存款天数一律算头不算尾，即从存入日起算至取款前一天止；
2、不论闰年、平年，不分月大、月小，全年按360天，每月均按30天计算；
3、对年、对月、对日计算，各种定期存款的到期日均以对年、对月、对日为准。即自存入日至次年同月同日为一对年，存入日至下月同一日为对月；
4、定期储蓄到期日，比如遇例假不办公，可以提前一日支取，视同到期计算利息，手续同提前支取办理。
利息的计算公式：本金×年利率（百分数）×存期
如果收利息税再×（1-5%）
本息合计=本金+利息
应计利息的计算公式是： 应计利息=本金×利率×时间
应计利息精确到小数点后12位，已计息天数按实际持有天数计算。
PS：存期要与利率相对应，不一定是年利率，也可能是日利率还有月利率。
需看您的贷款用途，申请贷款，针对您具体申请贷款的执行利率、金额、贷款期限以及贷款还款方式的信息，需要您申请贷款后经办行在具体审核您的综合信息，贷款审核通过后才能确定。
迪曲及摇滚乐都属于过分激烈的音乐，长期听这种音乐，会使孕妇的神经系统受到强烈的刺激，并破坏心脏及血管系统的正常功能，使人体中去甲肾上腺素的分泌增多，从而使孕妇子宫平滑肌收缩，造成胎儿血液循环受阻，胎盘供血不足，引起胎儿发育不良，同时这也是造成流产或早产的原因之一。
银行卡开通网上银行、手机银行、电话银行等渠道交易时，需要预留一个支付密码，用来对外转账支付用的，这个密码不是查询密码，也不是网上银行的登陆密码。工行手机银行“支付密码”是您通过手机银行（WAP）办理对外转账汇款、缴费付款、消费支付等业务时使用的密码。支付密码包括动态密码和自设密码两种类型。动态密码是指口令卡密码，如果您是自设密码客户，在办理对外支付交易时必须申领电子银行口令卡。
有以下方法进食：
　1.取当归5克、黄芪3克、通草5克，每天用这三味中药煮成一碗药汁，在给产妇吃的各种食物中都加上一勺，这样中药的气味不重，又能起到补气血、通乳的作用。同时，三味中药的用量不大，适合身体虚弱的人慢慢调补，而且不会上火。
　　2.把红枣洗净后放入铁锅炒到表皮发黑，放入瓶中待用，每天取炒过的红枣4-6粒，桂圆4-6粒，冲水泡茶经常饮用。内火重的人，可以加枸杞子6-10粒一同饮用。红枣经铁锅炒制后具有暖胃的作用，同时炒制后的红枣易于泡开，能全面利用其营养成分，所以每天饮用此茶能起到补气血、调脾胃、治失眠、止虚汗的作用。
　　3.取鳝鱼1斤、瘦猪肉半斤，放入生姜5-8片、葱2-3根、蒜10瓣，再加入调味品红烧，经常食用可以起到补肾、去肾寒、补血的作用，可以治疗浑身酸痛、腰膝酸软、四肢无力等。
餐饮企业为了迎合消费者，打造明档厨房成了饭店的发展趋势，增加与顾客的亲和力、现点现做、顾客喜欢的菜会多点，我当时联系的科美瑞公司，他们做点菜柜这块儿，巴奴火锅里面全是用他的柜子，无论是款式还是质量和售后都是挺好的。
学汽车补漆技术建议到专业的汽车修理培训学校自学，自由选择学校时一定要实地考察，不要惧怕别人的话，因为耳听为虚眼见为实，有的时候肉眼看见的都不一定是真的。只有实地考察对比之后才告诉哪个汽车补漆培训学校更合适你。
朋友家用的是优掌柜的，他也推荐我买那个牌子，我在他店里用过一下，真的挺不错的。
成都中山职业技术学校的幼师专业非常好，学校是公办。免学费的，地址在成都双流，我把他们学校李老师电话给你：
QQ和微信：
我用的就是国产的化妆品，伊肤丽佰，效果很不错。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
vb 多条件查询.doc 29页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
vb 多条件查询
你可能关注的文档：
··········
··········
关键词 数据库? 查询? VB? Access? 事件代码
对数据库信息进行查询检索是数据库管理软件的主要功能之一，也是其难点之一。本文以“人事档案”数据库为例，在Visual Basic 6.0 Sp3及Microsoft Access2000环境下，介绍在VB＋ Access系统中实现单项条件查询与多项条件查询的程序设计方法。
二、字段及公共变量
假设“人事档案”数据库Archives.mdb已经生成（位于当前路径下），库中有 “人事档案”表，表中有12条记录。为简化说明，假设表中仅有如下几个字段： [姓名]TEXT(4)，[性别]TEXT(1)，[籍贯]TEXT(8)，[出生年月]DATE，[政治面貌]TEXT(8)，[文化程度]TEXT(8)。
其中“性别、政治面貌、文化程度”三个字段的值只能从列表中选择，以下简称“下拉列表字段”，“性别”的列表值有“男、女”两项；“政治面貌”的列表值有“中共党员、共青团员、民主党员、群众”四项；“文化程度”的列表值有“本科以上、大学本科、大学专科、专科以下”四项。
另外，在模块（Modbas）中定义公共变量如下：
Public QueryStr As String??????????? '查询条件串
Public ConditionNo As Integer??????? '条件数
Public CombOrText As Boolean?????? '选择了Combo项还是Text项（即是否选择了下拉列表字段）
Public Combo(3) As String?????????? '下拉列表字段数组，若增加下拉列表字段数，则增加此数组维数
三、查询主窗体
本查询程序示例包含三个窗体：查询主窗体（FrmQuery）、单项条件查询窗体（FrmSingle）、多项条件查询窗体（FrmMany）。其中查询主窗体（图一）上有如下几类控件：
1、三个文本框Text1(1)、Text1(2)、Text1(3)分别显示姓名、籍贯、出生年月等字段的值；
2、三个下拉列表框Combo1(1)、Combo1(2)、Combo1(3) 分别显示性别、政治面貌、文化程度等字段的值；
3、RichTextBox1控件用于显示个人简历；
4、Data1控件的数据库连接方式（Connect）采用VB系统默认的Access 2000（视Microsoft Office版本而定）。可分别在Data1控件的DatabaseName、RecordSource属性中设置Data1所关联的数据库文件名及数据表名，亦可在主窗体的Form_Load中加入如下代码：
Private Sub Form_Load()
??? Dim FileName As String
??? If Right(App.Path, 1) = "\" Then?????????????? '若 App.Path 为根目录
????? FileName = App.Path "Archives.mdb"
????? FileName = App.Path "\Archives.mdb"
??? End If
??? Set File_db = OpenDatabase(FileName)???????? '打开人事档案数据库
??? Data1.DatabaseName = FileName
??? Data1.RecordSource = "人事档案"???????????? '关联人事档案表
??? Data1.Refresh
5、MSFlexGrid1控件的数据源（DataSource）为Data1，列数由数据源中“人事档案”表的字段数而定（照片字段不予考虑），本例为6列，固定1行用于显示字段名。
6、几个重要的命令键Command1（单项查询）、Command2（多项查询）、Command3（清除条件）。
四、单项条件查询
1、单项条件查询窗体
在查询主窗体中点击“单项查询”将弹出单项条件查询窗体（图二）。
窗体上有Combo1、Combo2、Combo3三个下拉列表框及一个Text1文本框。其中，查询项目下拉列表（Combo1）为查询主窗体上Data1所关联的数据库的字段；条件关系下拉列表（Combo２）为数学关系符“＝、＜＞、＜、≤、＞、≥、Like（包含）、Not Like（不包含）”；查询信息为下拉列表选项（Combo3）或输入值（Text1）。
当查询项目为“性别、政治面貌、文化程度”等列表字段时，隐藏Text1控件，显示Combo3控件，此时查询者可在Combo3中选择要查询的信息项；当查询项目选择“姓名、籍贯、出生年月”等非列表字
正在加载中，请稍后...