mdsk.net
当前位置:首页 >> vB 在文本框中输入数值,点击查询,在下面几个文本... >>

vB 在文本框中输入数值,点击查询,在下面几个文本...

Private Sub Command1_Click() With Adodc1 .RecordSource = "select * from [你的表名] where [学号]='" & Text1.Text & "'" .Refresh Text2.Text = .Recordset("[学号]") Text3.Text = IIf(IsNull(.Recordset(["姓名"])), "没有姓名", .Record...

先判断文本框是否有内容 if Trim(Text1.text)="" then msgbox "请输入查询内容!" exit sub End if 再判断查询结果是否为空 If Adodc1.Recordset.EOF Then 改成: If Adodc1.Recordset.EOF or Adodc1.Recordset.BOF Then

Private Sub Command1_Click() If Text1 = "" Then Exit Sub For i = 1 To Len(Text2) If Mid(Text2, i, Len(Text1)) = Text1 Then Text2.SelStart = i - 1 Text2.SelLength = Len(Text1) Text2.SetFocus Exit For End If NextEnd Sub 上面的是t...

PasswordChar 属性 返回或设置一个值,该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来;返回或设置用作占位符。 语法 object.PasswordChar [= value] PasswordChar 属性的语法包含下面部分: 部分 描述 Object 对象表达式,其值...

Private Sub Command1_Click() If Val(Text1.Text)

用SQL语句就可以了 insert into 表 (字段) VALUES ( '内容')

既然你一个一个写可行,那么你肯定是会连接数据库了,一次写多个就问题也不大; 第二文本框出错很大可能是数据类型不匹配; 你的第二个文本框输入的是年龄,想必数据库表中字段对此的格式限定应该是数字型吧,我推想你应该是未转换数据类型直接...

作个提示: 问题1的解决: 这个是数据库的最基本的查询功能,采用Select语句可以实现: select * From 表名 Where 字段名=字段值 问题2的解决: 根据使用问题1的方法,先进行查询,如能查询到相同姓名或其他信息的记录,已经存在,就不添加。

vb的text文本框中输入的是字符串,如果要运算的话,需要进行数据转换。 转换成数值的函数是val(),如果是直接使用这个字符串,可以用alltrim()函数去掉两端的空格,直接使用。 vb中输入的函数,inputbox(),返回的也是字符串,所以也需要...

Private Sub Command1_Click() Dim sz As Integer, zm As Integer For I = 1 To Len(Text1.Text) Select Case Mid(Text1.Text, I, 1) Case "A" To "Z", "a" To "z" zm = zm + 1 Case "0" To "9" sz = sz + 1 End Select Next I Text2.Text = "字...

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com