vb中查询mysql_vb数据库查询语句-vb中使用sql语句-vb读取sql语句的字段

关于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是数据库名称 Ca