-
VB使用select case选择法实现课程表查询.rar
2019-07-10 12:09:35VB使用select case选择法实现课程表查询,原以为这是一个数据库程序,后来发现是把查询的内容写入case语句中,主要练习Vb中的select case语句的用法,下载后,直接在VB6.0下编译即可看到效果。 -
VB中如何使用select case语句
2020-01-04 14:46:35近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select case的讲解甚少(可能是查找方向有误),遂,作此,如有不足还望评论去添补 语法 Select Case <指示变量或表达式> Select Case...近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select case的讲解甚少(可能是查找方向有误),遂,作此,如有不足还望评论去添补
语法
Select Case <指示变量或表达式>
Select Case不是循环语句,是条件选择语句,与IF...ELSEIF...ELSEIF...END IF类似
<默认语句组,以上语句组都因情形不符合实际时执行>End Select其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时,语句的执行,会直接到达End Select。如果在执行语句的时候,有需要跳过没有必要再执行的语句而直接结束Select Case的情况时,请使用exit select
Option explicit dim digital,hours,minutes,seconds,dn,ctime digital = time hours = Hour(digital) minutes = Minute(digital) seconds = second(digital) Select Case True Case hours<6 dn= "it is time to dream!" Case hours>=6 dn= "get up and say good morning!" Case hours>12 & hours<14 dn= "let's have a rest!" Case else dn="I don't know what to do!" End Select msgbox dn
注意在“<指示变量或表达式>”不是True或False关键字时,逻辑运算(And、Or、Not)会没有意义。因为逻辑运算的结果是True或False,不是表述具体情况的值或者范围。
-
VB.NET中TextBox的select和selectall的比较
2016-08-10 11:26:31vb.net textbox select selectall楔子
IDE:VS2013语言:VB.NETSelect和SelectAll
select
功能:在选中文本框的同时,将光标移动到文本框内容的末尾selectall
功能:只是选中文本框,且没有明显的提示。比较
相对于SelectAll,Select多了一个Focus的功能。感谢您的宝贵时间,祝生活愉快,谢谢~~—joker -
vb.net中select sum(列名) from 表名,赋值方法
2019-12-10 19:37:09利用select sum(列名) from 表名,查询数据并求和,怎么赋值给text控件 -
vb.net 执行mysql语句_如何解决VB.net中的MySQL Select语句错误?
2021-02-11 14:06:44我正在使用以下代码试图从两个表中检索数据并使用该信息填充ComboBox。然后,当用户从ComboBox中选择一个值时,我想用从ComboBox的值匹配的数据库中检索到的数据填充表单上的所有控件(仍然没有...这是抛出的VB异常:...我正在使用以下代码试图从两个表中检索数据并使用该信息填充ComboBox。然后,当用户从ComboBox中选择一个值时,我想用从ComboBox的值匹配的数据库中检索到的数据填充表单上的所有控件(仍然没有弄清楚如何做到这一点)。
注:错误中显示的1090是我从InputBox控件收到的帐号,然后将TextboxAccount.Text值设置为它。所以我不确定这是否是我的问题所在。
这是抛出的VB异常:
"You have an error in your SQL syntax; check the manual that
corresponds with your MySQL version for the right syntax to use near
'customer.accountNumber = '1090" at line 1"
这是我的代码:
Private Sub RetrieveMySQLdata()
Try
'FOR MySQL DATABASE USE
Dim dbConn As New MySqlConnection
Dim dbQuery As String = ""
Dim dbCmd As New MySqlCommand
'Dim dbData As MySqlDataReader
Dim dbAdapter As New MySqlDataAdapter
Dim dbTable As New DataTable
If dbConn.State = ConnectionState.Closed Then
'dbConn = New MySqlConnection
dbConn.ConnectionString = String.Format("Server={0};Port={1};Uid={2};Password={3};Database=accounting", FormLogin.ComboBoxServerIP.SelectedItem, My.Settings.DB_Port, My.Settings.DB_UserID, My.Settings.DB_Password)
dbConn.Open()
End If
dbQuery = "SELECT *" & _
"FROM cc_master INNER JOIN customer ON customer.accountNumber = cc_master.customer_accountNumber" & _
"WHERE customer.accountNumber = '" & TextBoxAccount.Text & "'"
With dbCmd
.CommandText = dbQuery
.Connection = dbConn
End With
With dbAdapter
.SelectCommand = dbCmd
.Fill(dbtable)
End With
Dim i As Integer
For i = 0 To dbTable.Rows.Count - 1
ComboBoxCard.ValueMember = "cc_Number"
Next
Catch ex As Exception
MessageBox.Show("A DATABASE ERROR HAS OCCURED" & vbCrLf & vbCrLf & ex.Message & vbCrLf & _
vbCrLf + "Please report this to the IT/Systems Helpdesk at Ext 131.")
End Try
End Sub
-
vb.net中select 语句的运用--字符串变量语法及多重SELECT语法
2009-11-22 23:26:00昨天才解决了SELECT中的时间变量语法,今天又碰到了字符串变量的问题。在进行了N次尝试后得出了以下的可以得出正确结果的语法。同时也是一个双重SELECT的语法。 Dim d1, d2 As Date d1 = Date_quest_buy_buybl_...昨天才解决了SELECT中的时间变量语法,今天又碰到了字符串变量的问题。在进行了N次尝试后得出了以下的可以得出正确结果的语法。同时也是一个双重SELECT的语法。
Dim d1, d2 As Date
d1 = Date_quest_buy_buybl_start.Value.Date
d2 = Date_quest_buy_buybl_end.Value.Date
Dim sup As String
sup = ComboBox_quest_buy_buybl_supplyer.TextOleDbConnection2.Open()
OleDb_quest_taobao_buybl.SelectCommand.CommandText = "select * from (select * from buy_bl where buy_date between #" + d1 + "# and #" + d2 + "#) where [supplyer] = '" + sup + "'" *这里的红色部分是关键,字段名要加[],后面的字符串变量是 一个单引号再加双引号和+ 变量名。[],' ', " " , + + 这4个符号缺一不可。 同时这也是一个双重SELECT的语句。
OleDb_quest_taobao_buybl.Fill(DataSet_quest_taobao_buybl1)
OleDbConnection2.Close() -
【转载】理解VB中选择语句Select Case结构的最好例子
2015-12-23 11:31:361.Select Case结构格式: Select Case e Case e1 A组语句 Case e2 B组语句 …… Case Else n组语句 End Select 2.说明 ?e为测试表达式,可以是算术表达式或字符表 -
vb.net 中select用法---like 字符串对比
2009-11-26 16:31:00OleDb_quest_taobao_buybl.SelectCommand.CommandText = "select * from buy_bl where [blno] like '%" + key + "%' " ‘作用是提取blno中包含key变量字符串的项 OleDb_quest_taobao_buybl.Fill(DataSet_quest_... -
vb.net中select 语句的运用--DATE变量语法及基本输出方式
2009-11-21 23:45:00这个问题其实昨天就遇到了,但弄了2个晚上,刚刚才解决了这个问题。以前我解决的方式是用多建一个临时表,然后一条条把工作表的记录读到...一个是SQL语句用在vb.net中的语法问题,另一个是把结果输出到DATAGRIDVIEW控 -
vb.net中,select count(*) from 函数返回值一直为一
2016-11-06 15:18:20Dim Conn As OleDb.... Dim adp As New OleDb.OleDbDataAdapter("select count(*) from 事故案例统计 where 等级 = '一般事故' ", Conn) adp.Fill(dt) TextBox1.Text = dt.Rows.Count 为何返回值总是一 -
vb.net中 这条select语句怎么修改?
2014-07-24 08:49:57objcomm.CommandText = "select * from VibrationData where cdate(日期) between #" + CDate(txtStart.Text) + "# and #" + CDate(txtOver.Text) + "#", 测点名 = " & Trim(TextBoxX1.Text) & " '" 不知道... -
在VB6中用Select语句检索记录
2014-06-24 13:16:30在VB数据库程序设计中经常要检索记录,常用的是把一条SELECT语句传送给Recordset对象的Open方法或Execute方法。下面就SELECT语句做一比较全面的阐述。 1.简单SELECT语句 “SELECT *” 的意思是:返回在所指定... -
求问vb连接数据库,select form where中的问题
2019-07-21 14:17:52在VB中查找access中的数据, 这个句子MeSql = "SELECT 屈服强度 FROM 材料数据库 WHERE 材料编号 = '" & Combo1(1).Text & "'" 哪里出错了?求解 其中,屈服强度 材料数据集 材料名称在access中都是短文本... -
delete select语句_总结 | VB与数据库开发中常用的SQL语句总结
2020-11-29 12:38:14SQL数据库介绍转眼已进入12月下旬不忘初心,继续前行今天我们来学习VB...在VB中,对数据库进行操作有两种方法:1、使用查询生成器2、直接使用SQL语句今天我们来学习SQL语言的相关知识。图:VB与数据库实际开发点餐系... -
VB中通过oo4o进行Oracle数据库操作-Select
2008-10-06 16:37:00[SQL Select]通过OO4O取得数据 Select*********************************************************************** 通过oo4o进行连接数据库,通过执行Select语句选择数据后,断开DB*******************************... -
vb中查询mysql_vb数据库查询语句-vb中使用sql语句-vb读取sql语句的字段
2021-02-04 23:24:44关于vb中删除数据库记录的语句Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"rsd.Open Sql, conn, adOpenStatic, adLockOptimisticYN = MsgBox("确定删除", vbYesNo)If YN = 6 ... -
vb select求助!!!!!!在线等
2017-06-06 11:47:11strsql = "select * from 用户表 where name='" & user & "'and pwd='" & pwd & "'and usertype='" & usertype & "'" Set rs = cn.Execute(strsql) 怎么在visdata中添加表,使得上面的语句可以执行,name,pwd,... -
在VB中sql查询语句理解
2019-01-19 20:04:16在我敲机房的时候发现有的人对VB中sql查询语句中大的双引号的理解存在误解。 首先是说明一下,其实我想也不用说明,我想大家都知道,在VB中字符串使用双引号引起来的,然而在sql中字符串是用单引号引起来的。所以... -
VB.net能不能在Select case语句中调用某段case过程
2015-07-14 10:47:41比如如下语句 select case i case 0 代码段a case 1 代码段b 代码段a 怎么才能在case 1的代码部分写完代码段b后,直接调用case 0的代码?而不用重复再把代码段a写一遍? -
ActiveSheet.Shapes.AddChart.Select是VBA中的代码,放在VB中如何才能确保不会出错?
2012-08-01 20:49:59ActiveSheet.Shapes.AddChart.Select[color=#FF0000] 这句经常任打开了一个其他的EXCEL文件时,再执行下面代码都会报错91 对象变量或with块变量未设置错误[/color] Private Sub test() Dim i As Integer Set ... -
仿制简单的SQL select查询语句,用于对二维数组的查询,建立环境-Excel Vba,可移植到VB环境中
2020-04-10 02:17:31建立运行环境-Excel Vba,可移植到VB环境中(需修改一些代码) '仿制简单的SQL查询语句,用于对二维数组的查询 '参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle] ' '... -
vb.net Linq 筛选(像 select distinct) DateTable 日期数据中的年份
2013-08-19 13:53:00Select DateTime.Parse(r( " create_date " ).ToString()).ToString( " yyyy " )).Distinct For Each y In years ddlByYear.Items.Add( New ListItem(y.ToString, y.ToString)) Next End If ... -
VB中换行问题
2020-02-22 14:54:48Select Case Cbo1.Text Case "李白" Lbl3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟," & Chr(13) & Chr(13) & "遥看瀑布挂前川。" & Chr(13) & Chr(13) &... -
[VB.NET]VB2005+ACCESS中,如何获得select count(1) from tb的返回值?
2008-12-26 23:35:00VB2005+ACCESS中,如何获得select count(1) from tb的返回值? 我想取得某table的行数,用的方法如下,希望大家能帮我补充/纠正下: Dim MyConnection As New OleDbConnection(...) Dim SQLString As String = "SELECT ... -
vb mysql 查询语句_VB中使用SQL查询语句
2021-02-11 04:11:24一、简单查询简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的...SELECT nickname,emailFROM testtableWHERE name=‘张三‘(一)选择列表选择列表(select_list)指出所查询... -
vb mysql添加字段_VB中向数据库添加字段问题
2021-02-04 17:39:57Dimshili(100)PrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from人物信息where人物名字='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfText1.Text...Dim shili(100)... -
VB中数据库的模糊查询
2017-07-28 23:57:48求助!想把Text1里的内容作为查询...rs.Open "select*from 表1 where 单位 like '%&Text1.Text&%'", conn, adOpenKeyset, adLockOptimistic MSHFlexGrid1.FixedCols = 0 Set MSHFlexGrid1.DataSource = rs rs.Close -
如何理解vb中的单引号
2017-08-05 02:35:19如何理解 txtSQL ="select * from student_Info where student_ID='" & comboSID .Text & "'" 中的两个单引号 -
vb退出窗体代码_【知识总结】细说VB编程中与END有关的语句
2020-12-11 15:11:54大家好,不知大家在平时学习VB的过程中,有没有总结过VB编程中与END有关的语句有多少...VB中与END有关的语句1End2End Sub3End If4End Select5End Function6End Type7End With现在分别对这7种End语句,做归纳整理。E... -
vb 中recordset提示对象关闭时不允许操作
2019-10-08 21:01:35vb中执行查询后,一般要判断是否为空,只要执行的查询执行了select,都可以用rs.eof 或者 rs.recordcount来判断, 但是,如果执行的sql中加了逻辑判断,导致没有执行任何select语句,则用rs.eof 或者rs.crcordcount...