关于数据库对接的，帮帮忙吧！！（分数可以加，谢谢）

[buddydeus]

我现在要做一个从数据库中读东西，并显示出来，但是对于读什么数据库、数据库有些什么字段，我都不知道
所以我想做一个运行的时候可以供用户选择和填写那些必要内容的，请大家知道得帮个忙吧，给点提示，如果能给我个事例那就更好了，谢谢阿

ps：主要要支持sql7.0，哎~~~~~~~~`我没接触过那东西，不知道谁有知道的阿？他和access和sql2000有什么区别阿？在读取和导入的时候一样吗？

[jhtaiyang]

你可以通过DRIVELISTBOX，DIRLISTBOX，FILELISTBOX查询要打开的数据库，然后连接。我一两句也说不好，可以和我联系。我这里有具体的例子。QQ：6099655

[buddydeus]

我的邮箱是：[e-mail]，[e-mail]
谢谢大家了，有事例的请发到我邮箱里，谢谢了

[3661512]

把你的邮箱留下来,我给你发个示例程序,你看过后就知道了

[lanslotliu]

可以使用文件方式或者使用注册表纪录数据库的连接信息
设置adodb.connection就可以了，要纪录的信息是：
数据库驱动
服务器
用户名
密码

[kimurakenshin]

连数据库用ADO或DAO都可以.
至于按选择的东西来显示就是SQL的问题了.把SQL语句写好就可以了...

[xzp1030]

'列出数据中的所有表L
sub opendatabase( datapath as string)
dim link1 as new adodb.connection
dim biaoming as new adodb.recordset
link1.open "provider = microsoft.jet.oledb.4.0;data source=" & datapath
set biaoming = link1.openschema(adschemacolumns) '创建记录集。
tablename = ""
do while not biaoming.eof
if biaoming("table_name") <> tablename then ' 列出表名
tablename = biaoming("table_name")
me.listview1.listitems.add,,tablename
end if
biaoming.movenext
loop
set biaoming = nothing
end sub