關于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中查询mysql_vb数据库查询语句-vb中使用sql语句-vb读取sql语句的字段的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。