[分享]ADO SQL查询、汇总、删除、导入工具(通用于ACCESS/EXCEL)

jjw530

QUOTE:

以下是引用彭希仁在2007-9-13 19:27:36的发言：

Private Sub ComboBox7_Enter()
On Error GoTo ren
    If TextBox3.Text = "" Then Exit Sub
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    ComboBox7.Clear
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TextBox3.Text & ";Jet OLEDB:Database Password=" & TextBox4.Text
    Set rst = cnn.OpenSchema(adSchemaTables)
    Do Until rst.EOF
        If rst!TABLE_TYPE = "TABLE" Then
            ComboBox7.AddItem rst!TABLE_NAME
        End If
        rst.MoveNext
    Loop
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
ren:
End Sub

换了一种写法，不知是否可行。

见下图，很想学习这个，请彭兄帮忙：

43379677

我这里试没有问题啊，最好换台电脑试试．

彭希仁

QUOTE:

以下是引用jjw530在2007-9-14 9:13:17的发言：

 

见下图，很想学习这个，请彭兄帮忙：

我很想帮助你，因为我也很想知道出错的原因，可我试了很多台电脑都试不出来你所描述的故障。

 要不你引用一下这几个控件试试

[此贴子已经被作者于2007-9-17 11:18:26编辑过]

jjw530

谢谢彭兄，我这几天也在看代码，争取找到问题再请教。

wskwsk1

未什么不执行呢

fjnfhxp

挺好的，谢谢！

hhzjxss

彭希仁真厉害！[em17]

wsri

这么强的帖子一定要顶！愿论坛里高手越来越多啊！

jjw530

QUOTE:

以下是引用jjw530在2007-9-17 12:38:29的发言：
谢谢彭兄，我这几天也在看代码，争取找到问题再请教。

有可能是我系统的问题，我直接选择数据-导入外部数据-导入数据，选择EXCEL文件后跳不出选择表格的窗口，修复OFFICE之后还是不行。

还在测试中。

qimi8657

高手真的很多啊