sql = "delete from persondata where 編號='" + id + "'"
Private Sub CommandButton5_Click()
Dim id, sql As String
If TextBox6.Text <> "" Then
id = TextBox1.Text
sql = "delete from persondata where 編號='" + id + "'"
modifydata (sql)
MsgBox "已執行刪除"
Else
MsgBox "請進行查詢後再執行刪除"
End If
End Sub
==================================
Public Function modifydata(ByVal sql As String)
On Error GoTo Label2
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
ConnectionString = "driver={mysql odbc 5.1 driver};database=persondb;server=127.0.0.1;port=3306;uid=root;password=12345678;opt=3;smt=SET NAMES 'gb2312'"
conn.Open ConnectionString
rs.Open sql, conn
conn.Close
Set rs = Nothing
Set conn = Nothing
Exit Function
Label2:
MsgBox "此筆資料已存在"
cleardata
End Function
==================================================
sql = "update persondata set 編號='" + id + "',姓名='" + name + "',血型='" + blood + "',學歷='" + school + "',職務='" + work + "' where 編號='" + id + "'"
where 編號='" + id + "' 為固定指標
=========================================
Private Sub CommandButton4_Click()
Dim sql As String
Dim id As String
Dim name As String
Dim blood As String
Dim school As String
Dim work As String
If TextBox6.Text <> "" Then
id = TextBox1.Text
name = TextBox2.Text
blood = TextBox3.Text
school = TextBox4.Text
work = TextBox5.Text
sql = "update persondata set 編號='" + id + "',姓名='" + name + "',血型='" + blood + "',學歷='" + school + "',職務='" + work + "' where 編號='" + id + "'"
modifydata (sql)
Dim s As String
s = "select * from persondata"
Worksheets("工作表2").displaydata (s)
Else
MsgBox "請進行查詢後再執行更新"
End If
End Sub
=============================
MutiPage元件:
標題1 標題2 標題3
(pages(0) pages(1) pages(2)
Mutipage1.pages(0).caption="標題"
Mutipage1.value=0 啟動時預設頁面
沒有留言:
張貼留言