都是反安装制作软件惹得祸，请各位帮我想想办法！

Question

我用VB写了一个程序，用GP-Install软件做了个安装程序，在机子上安装后再
卸载，发现该安装程序把系统自带的控件和动态链接库都给卸了，事实上我在卸载
时也选择了保留共享组件，搞得我再次用VB打开程序时许多控件都加载不了了。
不知道哪位能够给我提供一个解决方案。谢谢！

Answer 1

说实话，我试过了，还是不好使。总是出现这样那样的错误。比如我有这样一段程序
Public Sub CreateDB()
    Dim cat As New ADOX.Catalog
    Dim strCn As String
    Dim strSQL As String
    
    On Error Resume Next
    If Dir(App.Path & "\DB\temp.mdb") <> "" Then
        Kill App.Path & "\DB\temp.mdb"
    End If
    strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\DB\temp.mdb"    cat.Create strCn    Set g_TempCn = New ADODB.Connection
    g_TempCn.Open strCn    strSQL = "CREATE TABLE fc_prod (" & _
            "hs_code smallint NOT NULL ," & _
            "m_num smallint NOT NULL ," & _
            "c_flod int NOT NULL ," & _
            "CONSTRAINT 旬资料配置 PRIMARY KEY(hs_code,m_num))"
    g_TempCn.Execute strSQL
    strSQL = "CREATE TABLE interbasin_prod (" & _
            "hs_code smallint NOT NULL ," & _
            "m_num smallint NOT NULL ," & _
            "c_flod int NOT NULL ," & _
            "CONSTRAINT 旬资料配置 PRIMARY KEY(hs_code,m_num))"
    g_TempCn.Execute strSQL
    strSQL = "CREATE TABLE outflow_prod (" & _
            "hs_code smallint NOT NULL ," & _
            "m_num smallint NOT NULL ," & _
            "c_flod int NOT NULL ," & _
            "CONSTRAINT 旬资料配置 PRIMARY KEY(hs_code,m_num))"
    g_TempCn.Execute strSQL
    Set cat = Nothing
End Sub其中一句cat.Create strCn执行了。可是它就是不生成临时数据库文件temp.mdb.

Answer 2

Dim cat As New ADOX.Catalog
Dim tbl  As New ADOX.Tablecat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"没有啥问题
看看路径有没有问题

Answer 3

还是不行呀，我不知道是不是我ADOX动态库有问题。

Answer 4

GP-Install 太老了，几年都没更新过了，在现在的新系统上难免不出问题。
换一个吧。

Answer 5

我记得 GP-install 对 VB 是比较友好的，你添加的文件如果是VB的运行库文件，它会自动设置为永不卸载。
可能是GP-install的bug.