ddata
CREATE DEFINER=`root`@`localhost` PROCEDURE `ddata`(IN `id` CHAR(50))
LANGUAGE SQL
NOT DETERMINISTIC
CONTAINS SQL
SQL SECURITY DEFINER
COMMENT ''
BEGIN
DELETE FROM scoredata WHERE 學號=id;
END
pname1
CREATE DEFINER=`root`@`localhost` PROCEDURE `pname1`(IN `name` VARCHAR(50))
LANGUAGE SQL
NOT DETERMINISTIC
CONTAINS SQL
SQL SECURITY DEFINER
COMMENT ''
BEGIN
Select * FROM scoredata Where 姓名 LIKE name;
END
udata
CREATE DEFINER=`root`@`localhost` PROCEDURE `udata`(IN `id` VARCHAR(50), IN `name` VARCHAR(50), IN `c1` INT, IN `c2` INT, IN `c3` INT, IN `c4` INT)
LANGUAGE SQL
NOT DETERMINISTIC
CONTAINS SQL
SQL SECURITY DEFINER
COMMENT ''
BEGIN
update scoredata set 姓名=name,國文=c1,英文=c2,數學=c3,地理=c4 where 學號=id;
=======================================================
Private Sub CommandButton6_Click()
Dim lname As String
Dim sql As String
If TextBox9.Text <> "" Then
lname = TextBox9.Text
sql = "call pname1 ('%" & lname & "%')"
Call loaddata(sql)
Else
MsgBox "請輸入資料"
End If
End Sub
=============================================
Private Sub CommandButton7_Click()
Dim com5 As New Ani5
Dim did As String
Dim sql As String
If TextBox7.Text <> "" Then
did = TextBox7.Text
sql = "call ddata ('" & did & "')"
com5.modifydata sql:=sql, dn:="persondb", pw:="12345678"
Call loaddata("select * from dbview1")
Else
MsgBox "請先查詢輸入欲刪除資料學號"
End If
End Sub
==================================================
CREATE PROCEDURE `interdata`(IN `id1` VARCHAR(50), IN `id2` VARCHAR(50))
LANGUAGE SQL
NOT DETERMINISTIC
CONTAINS SQL
SQL SECURITY DEFINER
COMMENT ''
BEGIN
select * from scoredata where 學號 between id1 and id2;
END
沒有留言:
張貼留言