https://msdn.microsoft.com/en-us/library/office/ff845049.aspx
Private Sub CommandButton3_Click()
On Error GoTo la1
Dim com5 As New Ani5
Dim sql As String
Dim no, name As String
Dim c1, c2, c3, c4 As Integer
no = TextBox1.Text
name = TextBox2.Text
c1 = CInt(TextBox3.Text)
c2 = CInt(TextBox4.Text)
c3 = CInt(TextBox5.Text)
c4 = CInt(TextBox6.Text)
sql = "insert into scoredata values('" & no & "','" & name & "'," & c1 & "," & c2 & "," & c3 & "," & c4 & ")"
com5.modifydata sql:=sql, dn:="persondb", pw:="12345678"
Exit Sub
la1:
MsgBox "學號不可重複或資料不完整"
End Sub
======================================================
Public Function modifydata(ByVal sql As String, ByVal dn As String, ByVal pw As String)
Dim conn As New ADODB.Connection '資料庫連線
Dim rs As New ADODB.Recordset '資料集
ConnectionString = "driver={mysql odbc 5.1 driver};database=" & dn & ";server=127.0.0.1;port=3306;uid=root;password=" & pw & ";opt=3;smt=SET NAMES 'gb2312'"
conn.Open ConnectionString
rs.Open sql, conn
MsgBox "功能執行完成"
conn.Close
Set rs = Nothing
Set conn = Nothing
End Function
=====================================
沒有留言:
張貼留言