吳老師教學部落格(痞客邦分站)

1.如何設定XAMPP與MQSQL的安全性

2.如何新增MQSQL資料庫與資料表

建立資料庫

INSERT INTO 問題1 (姓名,身高,體重,性別,標準體重) values ('楊XX',170,72,'男',69.94)

補充：

查詢資料：select * from 問題1 where 性別='女'

修改資料：Update 問題1 set 身高='170' where 姓名='李XX'

刪除資料：DELETE FROM 問題1 where 姓名='李XX'

如何在EXCEL表單中新增一筆資料到MYSQL資料庫中：

   r = Range("B2").End(xlDown).Row

   A = Cells(r, 2)

   B = Cells(r, 3)

   C = Cells(r, 4)

   D = Cells(r, 5)

   E = Cells(r, 6)

   Call 利用ADO新增資料(A, B, C, D, E)

   MsgBox "資料新增成功!!", vbInformation

End Sub

   For i = 3 To Range("B2").End(xlDown).Row

       A = Cells(i, "B")

       B = Cells(i, 3)

       C = Cells(i, 4)

       D = Cells(i, 5)

       E = Cells(i, 6)

       Call 利用ADO新增資料(A, B, C, D, E)

   Next

   MsgBox "資料新增全部成功!!", vbInformation

End Sub

   '1.建立Connection物件

   Set myCon = CreateObject("ADODB.Connection")

   '2.連結資料庫

   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"

   '3.建立Recordset物件&連結資料表

   Sql = "INSERT INTO 問題1 (姓名,身高,體重,性別,標準體重) VALUES ('" & _

   A & "'," & B & ", " & C & ", '" & D & "', " & E & ")"

   'MsgBox (Sql)

   Set myRs = myCon.Execute(Sql)

End Sub

Public Sub 刪除EXCEL資料()

   Range("B3:F" & Range("B2").End(xlDown).Row).ClearContents

End Sub

   '1.建立Connection物件

   Set myCon = CreateObject("ADODB.Connection")

   '2.連結資料庫

   'myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\問題1.accdb;"

   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"

   '3.建立Recordset物件&連結資料表

   Sql = "Select * from 問題1"

   'MsgBox (Sql)

   Set myRs = myCon.Execute(Sql)

   Range("B3").CopyFromRecordset myRs

   '1.建立Connection物件

   Set myCon = CreateObject("ADODB.Connection")

   '2.連結資料庫

   'myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\問題1.accdb;"

   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"

   '3.建立Recordset物件&連結資料表

   Sql = "Delete from 問題1"

   'MsgBox (Sql)

   Set myRs = myCon.Execute(Sql)

End Sub