Dim conn As ADODB.Connection
Dim Linkdata As New SuperLinkMysql ’ ???
Linkdata.connMySQLserver ‘???
Linkdata.conn.Open Linkdata.strcnn
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
‘Set rs = New ADODB.Recordset
Dim strSQL_insert As String
Dim strSQL_find As String
Dim strSQL_update As String
Dim test_p_str As String
test_p_str = "(’" & pn_test & " ‘,’" & point_str & "’)"
conn.Open Linkdata.strcnn
‘???
Dim delpoint, sqlpoint As String
delpoint = “Delete from flex_test_point where gulpn = '” & pn_test & "’"
Set rs = New ADODB.Recordset
With rs
.Open delpoint, conn
End With
sqlpoint = " insert into flex_test_point value" & test_p_str
Set rs = New ADODB.Recordset
With rs
.Open sqlpoint, conn
End With
'???
Set rs = Nothing
conn.Close
Set conn = Nothing
excel保存到mysql
最新推荐文章于 2024-08-24 23:25:41 发布