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是數據庫名稱 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语句的字段的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Linux基础知识整理
- 下一篇： 面试中有哪些经典的数据库问题？