zhu2017的博客

引用msjro.dll控件 ' 压缩数据库 Public Function compactDatabase(ByVal DataBase As String) On Error GoTo err1 Dim str As String Dim Flag As Integer, FileName As String Dim FIXDB As New JRO.JetEngine Flag = InStrRev(DataBase, "\", , vbBinaryCompa.

引用控件msxml6.dll Private Sub doReadDataPost() '????soap??? ????????????webservice???ù????á??????????soap12:Body Dim strtest, strxml As String On Error GoTo Z strtest = "<?xml version=""1.0"" encoding=""utf-8""?> " strtest =