精华内容
下载资源
问答
  • VB使用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.NETTextBox的selectselectall的比较

    千次阅读 热门讨论 2016-08-10 11:26:31
    vb.net textbox select selectall

    楔子

        IDE:VS2013
        语言:VB.NET

    Select和SelectAll

    select

        功能:在选中文本框的同时,将光标移动到文本框内容的末尾

    selectall

        功能:只是选中文本框,且没有明显的提示。


    比较

        相对于SelectAll,Select多了一个Focus的功能。
    感谢您的宝贵时间,祝生活愉快,谢谢~~
                                                —joker
    展开全文
  • 利用select sum(列名) from 表名,查询数据并求和,怎么赋值给text控件
  • 我正在使用以下代码试图从两个表检索数据并使用该信息填充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

    展开全文
  • 昨天才解决了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.Text

           

            OleDbConnection2.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()

     

    展开全文
  • 1.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:00
     OleDb_quest_taobao_buybl.SelectCommand.CommandText = "select * from buy_bl where [blno] like '%" + key + "%' " ‘作用是提取blno包含key变量字符串的项  OleDb_quest_taobao_buybl.Fill(DataSet_quest_...
  • 这个问题其实昨天就遇到了,但弄了2个晚上,刚刚才解决了这个问题。以前我解决的方式是用多建一个临时表,然后一条条把工作表的记录读到...一个是SQL语句用在vb.net的语法问题,另一个是把结果输出到DATAGRIDVIEW控
  • Dim Conn As OleDb.... Dim adp As New OleDb.OleDbDataAdapter("select count(*) from 事故案例统计 where 等级 = '一般事故' ", Conn) adp.Fill(dt) TextBox1.Text = dt.Rows.Count 为何返回值总是一
  • objcomm.CommandText = "select * from VibrationData where cdate(日期) between #" + CDate(txtStart.Text) + "# and #" + CDate(txtOver.Text) + "#", 测点名 = " & Trim(TextBoxX1.Text) & " '" 不知道...
  • VB数据库程序设计经常要检索记录,常用的是把一条SELECT语句传送给Recordset对象的Open方法或Execute方法。下面就SELECT语句做一比较全面的阐述。 1.简单SELECT语句 “SELECT *” 的意思是:返回在所指定...
  • VB中查找access中的数据, 这个句子MeSql = "SELECT 屈服强度 FROM 材料数据库 WHERE 材料编号 = '" & Combo1(1).Text & "'" 哪里出错了?求解 其中,屈服强度 材料数据集 材料名称在access中都是短文本...
  • SQL数据库介绍转眼已进入12月下旬不忘初心,继续前行今天我们来学习VB...在VB中,对数据库进行操作有两种方法:1、使用查询生成器2、直接使用SQL语句今天我们来学习SQL语言的相关知识。图:VB与数据库实际开发点餐系...
  • [SQL Select]通过OO4O取得数据 Select*********************************************************************** 通过oo4o进行连接数据库,通过执行Select语句选择数据后,断开DB*******************************...
  • 关于vb中删除数据库记录的语句Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"rsd.Open Sql, conn, adOpenStatic, adLockOptimisticYN = MsgBox("确定删除", vbYesNo)If YN = 6 ...
  • strsql = "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中字符串是用单引号引起来的。所以...
  • 比如如下语句 select case i case 0 代码段a case 1 代码段b 代码段a 怎么才能在case 1的代码部分写完代码段b后,直接调用case 0的代码?而不用重复再把代码段a写一遍?
  • ActiveSheet.Shapes.AddChart.Select[color=#FF0000] 这句经常任打开了一个其他的EXCEL文件时,再执行下面代码都会报错91 对象变量或with块变量未设置错误[/color] Private Sub test() Dim i As Integer Set ...
  • 建立运行环境-Excel Vba,可移植到VB环境(需修改一些代码) '仿制简单的SQL查询语句,用于对二维数组的查询 '参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle] ' '...
  • Select 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:48
    Select Case Cbo1.Text Case "李白" Lbl3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟," & Chr(13) & Chr(13) & "遥看瀑布挂前川。" & Chr(13) & Chr(13) &...
  • VB2005+ACCESS,如何获得select count(1) from tb的返回值? 我想取得某table的行数,用的方法如下,希望大家能帮我补充/纠正下: Dim MyConnection As New OleDbConnection(...) Dim SQLString As String = "SELECT ...
  • 一、简单查询简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的...SELECT nickname,emailFROM testtableWHERE name=‘张三‘(一)选择列表选择列表(select_list)指出所查询...
  • Dimshili(100)PrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from人物信息where人物名字='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfText1.Text...Dim shili(100)...
  • 求助!想把Text1里的内容作为查询...rs.Open "select*from 表1 where 单位 like '%&Text1.Text&%'", conn, adOpenKeyset, adLockOptimistic MSHFlexGrid1.FixedCols = 0 Set MSHFlexGrid1.DataSource = rs rs.Close
  • 如何理解 txtSQL ="select * from student_Info where student_ID='" & comboSID .Text & "'" 的两个单引号
  • 大家好,不知大家在平时学习VB的过程中,有没有总结过VB编程中与END有关的语句有多少...VB中与END有关的语句1End2End Sub3End If4End Select5End Function6End Type7End With现在分别对这7种End语句,做归纳整理。E...
  • vb中执行查询后,一般要判断是否为空,只要执行的查询执行了select,都可以用rs.eof 或者 rs.recordcount来判断, 但是,如果执行的sql中加了逻辑判断,导致没有执行任何select语句,则用rs.eof 或者rs.crcordcount...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 504
精华内容 201
关键字:

vb中select