精华内容
下载资源
问答
  • 再谈vb中SQL语句中单引号和双引号的区分

    千次阅读 热门讨论 2013-11-21 20:12:31
    当看红皮书的时候看到过vb中SQL语句中的单双引号的使用,上网查了一下,但是当时还是不是理解到的太好,但是在处理机房收费系统的时候发现一只要连接数据库,然后又差了一下,也许是用的多了的缘故吧,查了一下什么...

           当看红皮书的时候看到过vb中SQL语句中的单双引号的使用,上网查了一下,但是当时还是不是理解到的太好,但是在处理机房收费系统的时候发现一只要连接数据库,然后又差了一下,也许是用的多了的缘故吧,查了一下什么都明白了。

                txtSQL = "select * from charge_info where card_id = '" & Trim(txtCardno.Text) &"'"
           相信大家一定都知道Label.Caption="您好",那么红色的双引号是什么意思我想就简单不过了,只是告诉vb Txtsql这个字符串包含的信息。

               然后把红色双引号中的内容分一下为

          select * from charge_info where card_id = ' "

        & Trim(txtCardno.Text) &

         " ' "

         单引号内是输入sql中的信息的,双引号来判断里边的东西是一个字符串。

              简单地说,双引号是给VB用的,单引号是给SQL语句用的。
    展开全文
  • VB中sql语句的拼接

    2012-09-04 08:56:55
    VB中sql语句如下: Dim strSql As String = "select * from " & tableName & " where " & codeRowName & " like '%" & mark & DateTime.Now.ToString("yyyyMMdd") & "%'" 其中...
  • 简单地说,双引号是给VB用的,单引号是给SQL语句用的。 a= "b" 表示a为b a=" " b " " 表示a为" b " a=" " " " & "b" & " " " 表示a为 " b " a=" ' b ' " 表示a为 ' b ' a=" ' " & " b " & " ' " ...

     

    例如:strsql =" selcet * from  sp_table where xm= '  "  & Text1.Text & " ' "

    用 & 连接字符串的时候会有些麻烦," "之间是一个字符串," " 和 " " 用& 连接

    假如Text1.Text的值是:李四

    那么应该写成:

    strsql =  "select * from sp_where sp_table where xm= ' " 李四 " ' "

    现在把它分为三部分

              "select * from sp_table where xm= ' "

              李四

              " ' "

    李四换成 & Text1.Text &

    简单地说,双引号是给VB用的,单引号是给SQL语句用的。

    a= "b"                                表示a为b

    a=" " b " "                          表示a为" b "

    a=" " " " & "b"  & " " "         表示a为 " b "

    a=" ' b ' "                           表示a为 ' b '

    a=" ' " & " b " & " ' "           表示a为 ' b '

    推荐文章:

    http://www.sudu.cn/info/html/edu/20080415/278459.html

    转载于:https://www.cnblogs.com/liu765023051/archive/2011/08/12/2813672.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中sql查询语句理解

    热门讨论 2019-01-19 20:04:16
    在我敲机房的时候发现有的人对VB中sql查询语句中大的双引号的理解存在误解。 首先是说明一下,其实我想也不用说明,我想大家都知道,...如下面这个简单的VB中sql语句 txtsql = "select * from student_info whe...

    在我敲机房的时候发现有的人对VB中sql查询语句中大的双引号的理解存在误解。
    首先是说明一下,其实我想也不用说明,我想大家都知道,在VB中字符串使用双引号引起来的,然而在sql中字符串是用单引号引起来的。所以理解VB中的sql语句的关键是理解VB中字符串的作用和sql中字符串的作用。
    如下面这个简单的VB中sql语句

    txtsql = "select * from student_info where cardno=' " & Trim(txtCardno(0).Text) & " ' "
    

    关于这段代码,首先这是在VB中的代码,在VB中的作用就是让它成为字符串,所以在每个连接符的前后一定要保证它是字符串,对象的text属性默认为是字符串,所以不用双引号引起。那就分解一下这句话的四个个双引号,前两个双引号是将select * from student_info where cardno='化作字符串,后两个双引号只是将最后的单引号化作字符串。最后将三个字符串链接起来赋值给txtsql
    其次是说明单引号的作用。先说一下txtsql此时的值是select * from student_info where cardno=’ 1 '(1是TXTcardno(0).text的值)将此字符串放入sql中,这句话中唯一要用字符串标识的只有1,也就是TXTcardno(0).text所以才在它的两边加上双引号。上面这句sql语句更容易理解的写可以写成txtsql = “select * from student_info where cardno=” & " ’ " & Trim(txtCardno(0).Text) & " ’ "
    最后说一句除了对象的text属性不加双引号意外变量也不用加双引号。

    展开全文
  • VB读取显示Access数据库的数据,并运用SQL语句查询的实例,超简单的代码,刚学习VB不久的新手适合参考。
  • VBSQL语句

    千次阅读 2011-08-08 08:58:36
    机房收费系统差不多快做完了,在vb中建立sql语句让我着实头疼了不少时日,因为没有真正理解,所以致使自己焦头烂额。也只有经历过了才有收获。这是一个零碎的知识点,细节的东西也是很重要的。还是把代码贴出来,...
  • 摘要:VB源码,数据库应用,SQL查询  VB进行SQL语句查询的演示程序源代码,适合输入SQL查询语句,即可对数据库进行查询。测试注意:需要先打开VB工程,重新设置窗体AdoData控件的ConnetionString属性数据库路径...
  • 一、简单查询简单的Transact...例如,下面的语句查询testtable表姓名为“张三”的nickname字段和email字段。SELECT nickname,emailFROM testtableWHERE name=‘张三‘(一)选择列表选择列表(select_list)指出所查询...
  • 关于vb中SQL语句

    2014-09-10 17:06:20
    iflag = 0 insert_eyeinfo = "insert into Eyeinfomation(personID,farRqiujing,farRyuanzhujing,farRyuanzhuzhou,farRsanlengjing,...执行的时候会提示有SQL语法错误 想问问各位大神 上面的SQL语句哪里有错误啊
  • SQL数据库介绍时间宝贵不忘初心,继续前行今天我们来学习VB与...在vb中,对数据库进行操作有两种方法:1、使用查询生成器2、直接使用SQL语句今天我们来学习SQL语言的相关知识。1.SQL命令SELECT命令:用于在数据库...
  • vb中如何使用sql语言以姓名和科目为条件查询学生成绩,并判断优秀,良好?该用什么控件来显示呢?
  • SQL数据库介绍国庆假期美好而短暂现已正式结束不忘初心,继续前行今天我们来...在vb中,对数据库进行操作有两种方法:1.使用查询生成器2.直接使用SQL语句今天我们来学习SQL语言的相关知识。1.SQL命令SELECT命令:用...
  • 请教在VB中SQL语句该如何处理 比如:SQL=(SELECT distinct [CheckItems].[ID], [Customer].[Name] + case when Customer.SexID =1 then '[男]' when Customer.SexID =2 then '[女]' end as 姓名, [Customer]....
  • 在写用户登录发现直接用Select语句,同时搜索用户密码时候,发现密码的大小写不是区分的,例如密码是a,输入... '=============根据ComboBox1.Text的选项返回给ComboBox2.Text用户的默认语言=============== Dim myco
  • SQL数据库介绍转眼已进入12月下旬不忘初心,继续前行今天我们来学习VB...在VB中,对数据库进行操作有两种方法:1、使用查询生成器2、直接使用SQL语句今天我们来学习SQL语言的相关知识。图:VB与数据库实际开发点餐系...
  • vb6.0执行sql语句

    千次阅读 2013-11-05 14:30:19
    objSQLConn.Execute strSQL
  • SQL数据库介绍转眼已进入12月下旬不忘初心,继续前行今天我们来学习VB...在VB中,对数据库进行操作有两种方法:1、使用查询生成器2、直接使用SQL语句今天我们来学习SQL语言的相关知识。图:VB与数据库实际开发点餐系...
  • 依次将sql语句中的txt里面的sql语句复制到查询分析器依次执行即可(也给备份了一个数据库 在文件夹下面xsbook_backup) 加载数据源文件DSN 数据源名为:xsbook 登录名:sa 密码:空 有问题给我留言
  • sql语句vb中的使用

    2013-03-21 09:28:31
    小弟新手小白啊,想请教各位大大一个非常基础的问题,就是sql语句vb中怎么使,应该放在哪个位置。。。。。。。今天我查了两句通过vb6.0删除sql2000中整个表数据的语句。。。1是delete from table where 1=1 2是...
  • SQL数据库介绍时间宝贵不忘初心,继续前行今天我们来学习VB与...在vb中,对数据库进行操作有两种方法:1、使用查询生成器2、直接使用SQL语句今天我们来学习SQL语言的相关知识。1.SQL命令SELECT命令:用于在数据库...
  • 数据库常用操作命令语句大全一、删除表 drop table 表名称二、修改表alter table 表名称 add 列名 数据类型(add表示添加一列)alter table表名称 drop column 列名称(column表示列 drop表示删除)三、删除数据库drop ...
  • 在搜索使用LINQ TO SQL 添加数据后获得自增长ID的方法时,发现C#可以使用DebuggerWritter把使用Linq to SQL执行的SQL语句显示到即时窗口,于是在网上搜索到在VB.NET下实现的方法,共享给大家: 1、首先在项目内添加...
  • 我用sql语句查询一个textbox的输入值,找到则datagridview显示,但没有的话如何接收返回值-1?我想接收这个返回值存取后用if条件语句做msgbox,请问如何接收,最好有代码,这样看得懂,查询语句如下 Dim sqlstr1= ...
  • SQL语句中使用VB控件的属性或变量

    千次阅读 热门讨论 2012-08-11 20:12:08
    Dim strSQL As String ...  以上两句话的意思即为给字符串变量strSQL赋值,右边的值则是通过select语句实现。   在SQL语法,字符串需要用单引号' '括起来,select语句应为: select 口令 fr
  • SQL语句中的WHERE子句遇到NULL值的参数绑定问题现在我有一个SQL语句 SELECT NAME FROM TABLE WHERE COUNTRY=:mcountry 其中mcountry为绑定的变量 在给mcountry赋值的时候,当mcountry为空则赋mcountry=DBNull....
  • SQL语句调用MDB数据库多表演示,VB源代码。演示不同表的基本情况表.姓名,基本情况表.学号,学生成绩表.课程,学生成绩表.成绩,学生成绩表,基本情况表,学生成绩表之间的混合调用,其实也就是SQL复合语句的一个操作...

空空如也

空空如也

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

vb中sql语句