VB中可以得到ORACLE某个数据库里所有的表和每个表的具体字段吗?

ebrmp 2002-02-26 03:09:32
谢谢?
如可以能否告诉我哪里有相关文章、例子或者MAIL给我?(ebrmp@sina.com)
...全文
46 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
baoxiang 2002-02-26
  • 打赏
  • 举报
回复
使用adox
Microsoft ADO Ext.2.5 for DDL and Security

Dim cat As New ADOX.catalog
Dim tblname() As String
Dim fieldname() As String
Dim i As Integer
Dim j As Integer
cat.activeconnection = ""
ReDim tblname(cat.Tables.Count) As String
For i = 0 To cat.Tables.Count - 1
tblname(i) = cat.Tables(i).Name
ReDim fieldname(cat.Tables.Count, cat.Tables(i).Columns.Count)
For j = 0 To cat.Tables(i).Columns.Count - 1
fieldname(i, j) = cat.Tables(i).Columns(j).Name
Next
Next

可能会有些小出入,你在查一下吧。
dbcontrols 2002-02-26
  • 打赏
  • 举报
回复
在你硬盘搜索ado210.chm看看ADOX部分
除连接字符串外没什么差别
shawls 2002-02-26
  • 打赏
  • 举报
回复
谁用了魔法门英雄无敌吗?mail一个reg文件如何??
我重装系统以后就不行了,注册表里面要一个文件,大家mail一个给我号码?

我得是死亡阴影简体中文版!!!

求助!!!


shawfile@163.net

shawls 2002-02-26
  • 打赏
  • 举报
回复
谁用了魔法门英雄无敌吗?mail一个reg文件如何??
我重装系统以后就不行了,注册表里面要一个文件,大家mail一个给我号码?

我得是死亡阴影简体中文版!!!

求助!!!


shawfile@163.net

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧