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

唯美的句子唯美句子 06-20 305 0

关于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 cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

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

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

cn.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 cnn As ADODB.Connection 链接数据库的connection对象

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

数据库链接程序

Public Sub Db_Connect()

如果链接标记为真返回

If IsConnect = True Then

Exit Sub

End If

关键字New用来创建新对象cnn

Set cnn = New ADODB.Connection

设置cnn的链接字符串的connectstring属性

cnn.ConnectionString = Conn

打开数据库

cnn.Open

判断链接状态

If cnn.State adStateOpen Then

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

MsgBox "链接数据库失败"

End

End If

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

IsConnect = True

End Sub

断开数据库的链接程序

Public Sub Db_Disconnect()

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

If IsConnect = False Then

Exit Sub

End If

关闭链接

cnn.Close

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

IsConnect = False

End Sub

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

Public Sub sqlExt(tmpSql As String)

创建command对象cmd

Dim cmd As New ADODB.Command

连接到数据库

DbConnect

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

Set cmd.ActiveConnection = cnn

设置要执行的命令文本

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 = cnn

设置游标类型

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 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

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

'执行删除命令

ADOcn.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 条件"