excel保存到mysql

最新推荐文章于 2024-07-18 19:13:23 发布

建超sunny

最新推荐文章于 2024-07-18 19:13:23 发布

阅读量57

点赞数

文章标签： excel mysql java

本文链接：https://blog.csdn.net/weixin_49998777/article/details/134602774

版权

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