aspower_(我知道楼下就欣赏偶的分)大大进来一下

Question

刚才那贴有人在和我说话，结果点错了对不起，重开一贴孝敬您！！！

Answer 1

我还有一点问题
CreateDSN_Click方法里面，dsnname = Dapp.Dsn这句报了“编译错误 未找到方法或数据成员”

Answer 2

自己下吧
我压缩了个包
http://www.91ting.com/1.rar

Answer 3

您有没有MSN啊，您很有耐心而且人很好，想和您交个朋友，不置可否

Answer 4

有不过我很少上的
[email protected]
你要加的话快哦

Answer 5

弱弱的问您一下
您最后给的获取dsn列表的方法，需要引用的odbc driver & data source name functions全名是什么，我现在找不到这两个，实在不好意思 >.<

Answer 6

就是这个Private Sub Command1_Click()
    Dim oODBC As New ODBCTool.Dsn
    Dim aDSN() As String
        '通过GetDataSourceList方法来获取DSN列表
        oODBC.GetDataSourceList aDSN
        For i = LBound(aDSN) To UBound(aDSN)
            List1.AddItem aDSN(i)
        Next
        List1.ListIndex = 0
    Set oODBC = Nothing
End Sub
这个是获取dsn列表的需要引用 odbc driver & data source name functions

Answer 7

Dim oODBC As New ODBCTool.Dsn
这里的ODBCTool和Dsn是窗口和textbox名吗？