vb6.0
zhu2017
这个作者很懒,什么都没留下…
展开
-
vb6压缩Access数据库使用JRO.JetEngine
引用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.原创 2022-01-07 14:43:51 · 939 阅读 · 0 评论 -
vb6调用webservice
引用控件msxml6.dllPrivate Sub doReadDataPost() '????soap??? ????????????webservice???ù????á??????????soap12:Body Dim strtest, strxml As String On Error GoTo Z strtest = "<?xml version=""1.0"" encoding=""utf-8""?> " strtest =原创 2020-08-21 14:16:50 · 1311 阅读 · 1 评论