精华内容
下载资源
问答
  • VB GoTo语句用法实例

    热门讨论 2010-06-07 13:27:59
    VB GoTo语句用法实例 VB GoTo语句用法实例
  • vb goto 语句标准格式

    2012-04-16 15:53:00
    On Error GoTo x1  ........... x1: ............. 今天在改vb写的程序,写的我脑袋晕 vb难道没有异常处理吗 我的excel进程关不上 每执行一次"导出"操作,生成一个excel进程 关闭程序,excel进程未关闭 哪...

    .......

       On Error GoTo x1

      ...........

    x1:

       .............

    今天在改vb写的程序,写的我脑袋晕

    vb难道没有异常处理吗

    我的excel进程关不上

    每执行一次"导出"操作,生成一个excel进程

    关闭程序,excel进程未关闭

    哪位大侠给我指点一下,脑袋晕晕的

    QQ:317295819

    转载于:https://www.cnblogs.com/IRIS-TK1/archive/2012/04/16/2451855.html

    展开全文
  • 关于vb中删除数据库记录的语句Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"rsd.Open Sql, conn, adOpenStatic, adLockOptimisticYN = MsgBox("确定删除", vbYesNo)If YN = 6 ...

    关于vb中删除数据库记录的语句

    Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"

    rsd.Open Sql, conn, adOpenStatic, adLockOptimistic

    YN = MsgBox("确定删除", vbYesNo)

    If YN = 6 Then

    rsd.Delete

    End If

    rsd.Close

    conn.Close

    如果有多条张三的记录,只能删除第一条记录。

    如果想删除查询到的多条记录,请做一个循环。

    vb中怎幺通过adodc删除数据库表中的所有数据

    VB通过Sql结构化查询语句中Delete子句,赋值给Adodc数据控件的RecordSource 属性,来执行删除数据库一个表的所有记录。

    RecordSource 属性,返回或设置Data控件的基本表、SQL语句。

    SQL 语句:

    SQL 中的以关键字打头、完整描述一个操作的完整的短语。例如:SELECT * FROM Orders。SQL 语句不应和语句混淆。

    以下是删除wd.mdb数据库的jishijilu记录表的所有记录的代码:

    Private?Sub?Command1_Click()

    Dim?sql?As?String

    On?Error?GoTo?error

    sql?=?"delete?*?from?jishijilu"

    Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\data\wd.mdb;Persist?Security?Info=False"

    Adodc1.RecordSource?=?sql

    Adodc1.Refresh

    Exit?Sub

    error:

    End?Sub

    VB中使用SQL语句删除记录

    Private Sub Form_Load()

    Dim 空白 As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    空白.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TEST.mdb"

    空白.Execute ("delete from TEST where NAME_CODE=0567") '此处的0567不是数字类型所以要改为

    空白.Execute ("delete from TEST where NAME_CODE='0567'") '加上单引号

    End Sub

    VB中如何向SQL数据库中的表添加和删除数据

    链接数据库的字符串

    Public Const Conn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _

    "User ID=sa;PWD=sa;Initial Catalog=hr;Data Source=127.0.0.1"

    'hr是数据库名称 Catalong=数据库名称

    Private IsConnect As Boolean 判读数据库是否链接

    Private 空白n As ADODB.Connection 链接数据库的connection对象

    Private rs As ADODB.Recordset 保存结果集的recordset对象

    数据库链接程序

    Public Sub Db_Connect()

    如果链接标记为真 返回

    If IsConnect = True Then

    Exit Sub

    End If

    关键字New用来创建新对象空白n

    Set 空白n = New ADODB.Connection

    设置空白n的链接字符串的connectstring属性

    空白n.ConnectionString = Conn

    打开数据库

    空白n.Open

    判断链接状态

    If 空白n.State <> adStateOpen Then

    如果不成功 显示提示 退出程序

    MsgBox "链接数据库失败"

    End

    End If

    设置链接标记 表示已经链接到数据库

    IsConnect = True

    End Sub

    断开数据库的链接程序

    Public Sub Db_Disconnect()

    如果链接标记为假,表明已经断开 直接返回

    If IsConnect = False Then

    Exit Sub

    End If

    关闭链接

    空白n.Close

    设置链接标记,表明已经断开链接

    IsConnect = False

    End Sub

    '只用来执行Insert,update,delete语句

    Public Sub sqlExt(tmpSql As String)

    创建空白mand对象cmd

    Dim cmd As New ADODB.Command

    连接到数据库

    DbConnect

    设置cmd的ActiveConnection属性,指定其关联的数据库链接

    Set cmd.ActiveConnection = 空白n

    设置要执行的命令文本

    cmd.CommandText = tmpSql

    执行命令

    cmd.Execute

    清空cmd对象

    Set cmd = noting

    断开与数据库的连接

    Db_Disconnect

    End Sub

    执行数据库查询程函数

    Public Function QueryExt(tmpSql As String) As ADODB.Recordset

    创建recordset对象rst

    Dim rst As New ADODB.Recordset

    链接到数据库

    Db_Connect

    设置rst的ActiveConnection属性,指定与其关联的数据库连接

    Set rst.ActiveConnection = 空白n

    设置游标类型

    rst.CursorType = adOpenDynamic

    设置锁定类型

    rst.LockType = adLockOptimistic

    打开记录集

    rst.Open tmpSql

    返回记录集

    Set QueryExt = rst

    End Function

    VB中怎幺对数据库进行添加删除修改的操作

    下面的例子就是对数据库进行添加删除修改的操作:

    Private Sub Command1_Click()

    For i = 0 To 5

    Text1(i).Text = ""

    Next i

    Adodc1.RecordSource = "select * from " & s1 & " order by 编号"

    Adodc1.Refresh

    If Adodc1.Recordset.RecordCount > 0 Then

    Adodc1.Recordset.MoveLast

    Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")

    Else

    Text1(0).Text = "G0001"

    End If

    End Sub

    Private Sub Command2_Click()

    If Adodc1.Recordset.EOF = False Then

    c = MsgBox("您确认要删除该记录吗?", vbOKCancel, "删除提示信息")

    If c = vbOK Then

    Adodc1.Recordset.Delete

    Adodc1.RecordSource = "select * from 人员表"

    Adodc1.Refresh

    End If

    Else

    MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"

    End If

    End Sub

    Private Sub Command3_Click()

    If Text1(0).Text = "" Or Text1(1).Text = "" Then

    MsgBox "请选择需要改动的记录信息!", vbOKOnly, "错误提示"

    Else

    c = MsgBox("确定要修改该记录吗?", vbOKCancel, "提示信息")

    If c = vbOK Then '如果确认修改的话进行修改操作

    If Text1(1).Text = "" Then

    MsgBox "姓名不能为空值!", 48, "修改****"

    Else

    '连接所要修改的数据库

    con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

    '开始修改数据库

    con.Execute ("UPDATE " & s1 & " SET 姓名='" & Text1(1).Text & "',年龄=" & Text1(2).Text & ",学历='" & Text1(3).Text & "',年级=" & Text1(4).Text & ", 入学时间='" & Text1(5).Text & "' where 编号='" & Trim(Text1(0)) & "'")

    MsgBox "信息修改成功", 64, "修改****"

    con.Close

    Adodc1.RecordSource = "select * from 人员表"

    Adodc1.Refresh

    End If

    End If

    End If

    End Sub

    Private Sub Command4_Click()

    Adodc1.RecordSource = "select * from 人员表 where 编号='" + Text1(0).Text + "'"

    Adodc1.Refresh

    If Adodc1.Recordset.RecordCount > 0 Then

    MsgBox "该信息已存在,信息保存不成功", 64, "保存****"

    Else

    cc = MsgBox("您确定要保存该信息吗?", 33, "信息保存提示")

    If cc = vbOK Then

    If Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Or Text1(5).Text = "" Then

    MsgBox "请确认,人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存****"

    Else

    con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

    con.Execute ("insert into 人员表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "', '" & Text1(5).Text & "')")

    MsgBox "信息修改成功", 64, "修改****"

    con.Close

    Adodc1.RecordSource = "select * from 人员表"

    Adodc1.Refresh

    End If

    Else

    End If

    End If

    Set DataGrid1.DataSource = Adodc1

    End Sub

    如何使用Delete语句从VB数据库删除信息?

    用sql语句的删除命令:delete from (表名) where (条件)

    举例如下:(最好系统学一下,因为不知道你用的什幺方法进行vb操作)

    (我为推荐一本书,电大的计算机大专计算机信息方向的《VB程序设计》刘世峰编,通学习你一切都通了)

    Private Sub Command1_Click()

    '定义字符

    Dim strSQL As String

    '定义一个整型变量

    Dim i As Integer

    i = MSHFlexGrid1.Row

    '处理无记录行

    If MSHFlexGrid1.TextMatrix(i, 1) = "" Then

    MsgBox "请选择一个记录!", vbQuestion + vbOKOnly, "信息提示"

    Exit Sub

    End If

    '编定SQ查询语句

    strSQL = "Delete From 通讯簿 "

    strSQL = strSQL + "Where 姓名='" + MSHFlexGrid1.TextMatrix(i, 1) + "'"

    '提示用户要谨慎删除

    If MsgBox("是否要删除,请慎重!", vbQuestion + vbOKCancel, "信息提示") = vbOK Then

    '执行删除命令

    ADO空白.Execute strSQL

    End If

    DisplayGrid1

    End Sub

    利用VB来删除SQL中一行的数据,代码如何编写

    sql="select * from tbluser where username='"&text1.text&"'"

    rs.open sql,conn,1,3

    rs.delete

    VB.NET 里如何给SQL SERVER数据库插入记录和删除记录,插入字段,删除字段

    使用 VB.NET 连接sqlserver执行sql命令会不会? 不会的话去百度搜。

    插入记录和删除记录,插入字段,删除字段 的sql语句会不会写? 不会的话去百度搜。

    用vb怎样删除sql server数据库中一条数据

    简单说就是SQL语句中的引号问题。

    SQL = "delete from Goods where GoodsName='" & Text2.Text & "'" + rsTable.Open SQL, pubConn, adOpenKeyset, adLockOptimistic

    按你原来的写法,执行的SQL语句就是

    delete from Goods where GoodsName='&Text2.Text&'

    这里的Text2.Text被认为是字符串的一部分,不是变量了。

    在vb中删除sqlserver中表的记录,我是想删除查询到底语句,如何实现

    你的查询应该是有条件的,既然如此

    用ado执行删除语句即可,条件就是查询的条件

    示例:connection.Execute "delete from table where 条件"

    展开全文
  • vb.net 教程 2-8 流程控制:跳转语句GOTO

    千次阅读 2017-04-04 13:12:34
    执行GOTO语句将无条件地跳转到过程内的标签所在代码。 需要注意的是:由于GoTo的跳转使代码具有不确定性,而且阅读和维护会变得更加困难,应该尽可能的减少使用。 看以下代码,输出0-100,但是当等于5时,结束输出...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
    执行GOTO语句将无条件地跳转到过程内的标签所在代码。
    需要注意的是:由于GoTo的跳转使代码具有不确定性,而且阅读和维护会变得更加困难,应该尽可能的减少使用。

    看以下代码,输出0-100,但是当等于5时,结束输出。

        Sub main()
            For i As Integer = 0 To 100
                Console.WriteLine(i)
                If i = 5 Then GoTo equal5
            Next
            Console.ReadKey()
            Exit Sub
    
    equal5:
            Console.WriteLine("已经跳转")
            Console.ReadKey()
        End Sub


    我们定义了一个标签:equal5,当i=5时就跳转到此处的代码,不再继续输出数字。运行如下:

    再继续看以下代码:

        Sub Main()
            Dim i As Integer
            Console.WriteLine("请输入一个数字")
            i = CType(Console.ReadLine, Integer)
    
            Select Case i
                Case 0
                    GoTo statements0
                Case 1
                    GoTo statements1
                Case Else
                    GoTo statementselse
            End Select
    
    statements0:
            Console.WriteLine("输入数据为0")
    
    statements1:
            Console.WriteLine("输入数据为1")
    
    statementselse:
            Console.WriteLine("输入数据为其他")
    
            Console.ReadKey()
        End Sub

    运行时如下:

    可以看到并不是我们所希望的输出。修改代码如下:

        Sub Main()
            Dim i As Integer
            Console.WriteLine("请输入一个数字")
            i = CType(Console.ReadLine, Integer)
    
            Select Case i
                Case 0
                    GoTo statements0
                Case 1
                    GoTo statements1
                Case Else
                    GoTo statementselse
            End Select
    
    statements0:
            Console.WriteLine("输入数据为0")
            GoTo endsub
    statements1:
            Console.WriteLine("输入数据为1")
            GoTo endsub
    statementselse:
            Console.WriteLine("输入数据为其他")
            GoTo endsub
    endsub:
            Console.ReadKey()
        End Sub

     

     

     

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看vb.net 教程 目录

     

    展开全文
  • VB里通过跳转语句goto去调用函数里的代码,但是不调用函数的参数是否可以实现?怎么得到跳转调用的函数的返回值?函数会自动退出?
  • VBA :goto语句用法,标签和行号。

    千次阅读 2020-01-03 12:14:27
    1 goto语句 语法:goto 行号/行标签 goto可以跳转到 行号,或行标签 行号:可以查VBE的行数 行标签:需要先定义 例子 line_goto1: goto line_goto1 '可以带: 或没有 2 VBE自带的行号 VBE其实是有默认...

    1 goto语句功能和局限性

    • 用处
    • goto 可以语句跳转
    • 但肯定不如 do while , 还有call function 等更好
    • 坏处
    • 容易导致死循环,如果不加判断条件判断
    • 只能是本过程内,本函数内,不能跨过程等。

    2 goto语句的语法

    语法:goto 行号/行标签

    • goto可以跳转到 行号,或行标签
    • 语法: 标签+冒号(可以省略冒号)
    • 行号:
    •         错误:可以查VBE的行数  (数字)
    •         行号:其实就是数字标签
    • 行标签:需要先定义
    •         可以是 字母开头,甚至是中文都可以

    2.1 正确写法:

    • 带不带冒号都可以
    • lineA: 
    • lineA
    • 1:
    • 2   
    • 哈哈:    '尝试过,中文都可以。。。

    2.3 测试的代码和验证结果

    Sub ft1()
    i = 0
    
    lineA:
    22
    1: i = i + 1
    
    Debug.Print "i=" & i
    
        If i <= 3 Then
            Debug.Print "执行1"
            GoTo 1
        ElseIf i <= 6 And i > 3 Then
            Debug.Print "执行22"
            GoTo 22
        ElseIf i <= 9 And i > 6 Then  'if不给力?
            Debug.Print "执行A:"
            GoTo lineA:
        ElseIf i <= 12 And i > 9 Then
            Debug.Print "执行A"
           GoTo lineA
        End If
    
    End Sub

    代码里用if判断是给力的,之前写的有点画蛇添足了

    用if 或 用 select case 都是可以的

    Sub ft2()
    i = 0
    
    lineA:
    22
    1: i = i + 1
    
    Debug.Print "i=" & i
    
        If i <= 3 Then
            Debug.Print "执行1"
            GoTo 1
        ElseIf i <= 6 Then
            Debug.Print "执行22"
            GoTo 22
        ElseIf i <= 9 Then   'if不给力?
            Debug.Print "执行A:"
            GoTo lineA:
        ElseIf i <= 12 Then
            Debug.Print "执行A"
           GoTo lineA
        End If
    
    End Sub

    4  VBE自带的行号,不是goto的需要 标签/行号

    • VBE其实是有默认行号显示的,只是如果窗口不宽时,可能会被自动隐藏
    • 但是没直接显示在左边行首,而是显示在上面
    • 但是这个行号没法用在goto 语法里
       

    VBE如果想加其他编辑器一样的左边行首行号

    下面有很多大牛讨论过

    VBA代码编辑器中显示行号-Excel VBA程序开发-ExcelHome技术论坛 -

    如何在VBA代码中添加行号?-Excel VBA程序开发-ExcelHome技术论坛 -

    5 goto的其他用法  on .... goto

    用来处理报错的

    on error goto 

    on error resume next

    on    goto 

    on  gosub

    还有其他用法,比如

    if  .... then goto

    展开全文
  • 由于goto语句可以让你来回跳转,偶然的,无限循环等待,如果这种情况发生了错误的方式。 可以在一个这样的例子? 编辑:好吧,我见过的答复 CodeGo.net,显然广泛存在有关的“GOTO”,它是坏的。 所以我一直在想:...
  • VB6.0 Select Case语句

    万次阅读 2015-09-12 23:02:41
    注明:百度百科上Select Case语句的最新版本亦是我的作品。 语法 Select Case Case Case .... Case Case Else End Select 其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用...
  • VB语言里能不能用goto语句调用一个函数的一部分呢?如果函数不从开头执行,而从其它地方执行,可以用goto么?
  • goto语句的用法

    千次阅读 2014-08-11 11:14:29
    一个main函数最好只使用一个got
  • 使用行跳转 For a = 0 To 100 For b = 0 To 100 For c = 0 To 100 If Text1.txt = "I Love You" Then Goto OK End If Next c Next b ok: Next a 3.使用变量检查 For a = 0 To 100 For b = 0 To 100 If Ok then Exit ...
  • VB.NET On Error语句(转载)

    千次阅读 2018-08-09 17:32:34
    这里介绍VB.NET On Error语句,其实On Error并不能算是VB的优点,因为使用它会破坏程序的结构,让带有异常处理的程序难以看懂和调试。 经过长时间学习VB.NET On Error语句,于是和大家分享一下,看完本文你肯定有...
  • do...while(0)消除goto语句 宏定义使用do{}while(0)的好处 do{}while(0)的格式: #define MACRO_NAME(para) do{macro content}while(0) 总结了以下几个原因: 1,空的宏定义避免warning: #define foo() do...
  • goto语句进行1到100的和的计算

    千次阅读 2014-07-01 22:48:04
    goto语句进行1到100的和的计算:
  • goto语句在C/C++语言可谓是“臭名昭著”,乃至有的书(或公司的编程规范)提出禁用goto语句的说法。其结果就是,造成有的程序员一看到goto语句在某程序被使用,就本能地认为这个程序写得很“垃圾”。此外,也...
  • 使用vb的函数调用里面的函数的变量不是参数的话怎么调用,使用goto语句能实现么?怎么使用goto语句直接进入定义变量的代码并且调用执行呢?
  • VBAfor next循环语句有哪些?以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!VBAfor next循环语句有哪些?For 循环变量=初值 to 终值 step 步长...
  • 实战技巧:goto语句的替代实现方式

    万次阅读 多人点赞 2011-10-05 00:12:18
    曾几何时,goto只在教科书的示例才会出现 有太多的理由不让用goto,但有时,我们又想使用goto的功能,怎么办? 用try/catch/finally便可实现同等于goto的功能,来看二个示例: try { // operation one if ...
  • C#异常处理“try catch”与vb ”on error goto

    千次阅读 多人点赞 2014-03-14 11:50:02
    C#跟其他语言一样,在编写代码的过程都会或多或少的出现语法或者逻辑上的错误,如果盲目相信自己的技术只能让这些异常的程序继续存在,最终导致系统无法正常运行甚至瘫痪。技术上要保证代码不出错的同时我们也要给...
  • VB中 On error 的用法

    千次阅读 2018-11-25 14:24:25
    1.启动一个错误处理程序并指定该子程序在一个过程的位置;也可用来禁止一个错误处理程序。 2. 如果产生错误则跳到需要跳转的地方,删掉后可能会不能正确运行。 语法: On Error GoTo line 、On Error Resume ...
  • VB6.0 实现循环的continue功能

    千次阅读 2019-03-26 13:52:17
    一个老项目来了个需求,改点东西,VB6的代码,要在循环根据条件跳过某次循环,也就是实现类似其他语言的从continue功能。 网上查了一圈,VB6的语法原因,没有提供continue关键字。 根据一些建议,用了goto,...
  • On Error Resume Next语句 On Error Goto 0语句 Err对象
  • VB中的do while loop语句Do Loop 语句的语法具有以下几个部分:在Do…Loop 中可以在任何位置放置任意个数的 Exit Do 语句,随时跳出Do...Loop 循环。...如果 Exit Do 使用在嵌套的Do…Loop 语句中,则 Exit ...
  • 是用在Print语句中,以紧凑格式用来分隔各输出项,输出的字符之间留一个空格位,输出的数值之间除留一个空格位外还留一个符号位。 Open "TESTFILE" For Output As #1 ' 打开输出文件。 Print #1, "Thi...
  • C# And VB 之流程控制语句

    千次阅读 2014-05-30 17:13:59
    在我们之前学过的VB中也出现了语句这一概念,现在温故而知新一下。 VB基本控制结构:顺序结构内,各块是按照它们出现的先后顺序依次执行图(a);选择结构包含一个判断条件E,当条件成立时执行A,否则执行B图(b...
  • VB中Execute的用法

    千次阅读 2016-11-07 19:27:32
    VB中Execute是指ADO命令之一:Execute 方法。 Execute 方法,执行在 CommandText 属性指定的查询、SQL 语句或存储过程。 语法 对于按行返回的 Command: Set recordset = command.Execute( ...
  • 全国计算机等级考试二级VB学习网具体参考:回答者:wahhltt - 举人 四级 1-14 16:14--------------------------------------------------------------------------------注册一下就可以看了!回答者:fanfan9810 - ...
  • [摘要:]在实际开发,许多人不喜欢使用TreeView,主要是由于默认的TreeView是“只读”的,不支持添加、删除、编辑、调整节点位置等操作。本文通过一个TVEdit工程说明如何解决这些问题。TreeView是最灵活的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,614
精华内容 1,445
关键字:

vb中的goto语句