我已知道，我想知道-----SQL+ADO 专题

sunsoncheng

3楼的工具差一点!

应可以做到如下的效果:

将数据库中的所有表列出一个列表框中,再可选一个张表就得到所的列,

以前我下过一个这样的有类似作用的东东的,中"国宝"后就不见了,

相信楼主也是可以做到的,那样就真的方便了

[此贴子已经被作者于2007-4-10 14:38:49编辑过]

ldy888

这是应用上的偏重。因为手头上的工作有几十个表要设计，所以派生出这个根工具。

楼上所提到应用，还没有大量接触，遇到这种情况，都手工操作。

有机会会把它完善。毕竟作一个工具自己用与作给别人用相比，要考虑的方面要少得多。

向您问好

[fly]支持楼主[/fly]

sunsoncheng

楼主:

看看我这个找出来的并试做的东东?

Sub test()
   
    Dim cat As New ADOX.Catalog
    Dim a As Integer, b As Integer
    Dim s As String
    Dim pths$
   
    pths = "  Provider=SQLOLEDB.1;server=生产五号机;uid=sa;pwd=;database=原数"

    '建立连接
    cat.ActiveConnection = pths
    If CNN.State = 0 Then CNN.Open pths

    a = cat.Tables.Count            '取表数量
    For b = 0 To a - 1
        s = cat.Tables(b).Name      '表名称，其中MS开头的是系统的表
        If InStr(s, "sys") + InStr(s, "dtp") < 1 Then
            Debug.Print s
            strsql = "select top 1 * from " & s
            Set rs = Nothing
            rs.Open strsql, CNN, 1, 1, 1
            For i = 0 To rs.Fields.Count - 1
           
                Debug.Print rs.Fields(i).Name,
           
            Next
            Debug.Print
            Debug.Print
        End If
    Next b
   
    Set rs = Nothing
    Set cat.ActiveConnection = Nothing
   
    '需要引用：微软   ADO   Ext.2.6   for   dll   之后   Dim cat As New ADOX.Catalog这个定义才不会提示错误
   
End Sub

ldy888

  '需要引用：微软   ADO   Ext.2.6   for   dll   之后   Dim cat As New ADOX.Catalog这个定义才不会提示错误
这句对我来说太有用了，ado帮助中有不少 ADOX.Catalog 的示例

一直不知道引用什么。也没找到提示，谢谢楼上

laozwjs

 噢

ldy888

sql是一门专门的语言，让人既熟悉又陌生。

select * from 联系人 where 姓名 like '李%'

翻译成中文： 选择 全部列 从 联系人表 当 姓名 像 李%

对学过一两句英文的人并不难理解，说到陌生 有许多词汇似曾相识，但含义却不同，文化上的差异，看了帮助也云里雾里，跟何况俺的词汇量实在有限。但对英语好的人来说，理解起来要简单的多。

使用VBA却不了解SQl不能不说是一种遗憾，精通SQL？没敢指望。在需要的时候能够运用一部分已经足够了。本贴开了才几天我的一些疑问（甚至不知怎么问！） 就已得到解决。感谢sunsoncheng 希望更多人参与交流 希望看到本贴的人有收获。

sunsoncheng

发现Jet-SQL   与  T -SQL  的又一差别:

Jet-SQL:

strsql=" select * from 表   where 日期 like #" & date & "#"

此处具作体到某一天时,like也可以用=

而在 T-SQL 首先是#号要更换为'号,同时,在上面的情况下,不能用like只能用=,否则得不到相关的结果

写法如下:

strsql=" select * from 表   where 日期 = '" & date & "'"

pengkuo

不太明白阿！是什么东西哦！！？？

gly1126

create table temp(aa varchar(12),bb varchar(12),cc numeric(12,2))

在sql server上执行成功,但在acc上却执行错误?红色为出错的地方,楼主能告知双精度型怎么表示吗?