请问一个关于VB+SQL SERVER的问题！
请问用VB怎样能够检测到SQL SERVER服务器里有哪些数据库！小弟想做个小程序！就是先判断指定的数据库存不存在！如果不存在就新建一个！新建一个数据库用VB又是怎样做啊？还有怎样在刚新建的数据库建立表、建立存储过程等等的！请高手指点一下小弟！万分感谢。。。 问题点数：50、回复次数：6Top
1 楼cryptonym（想裸睡）回复于 2003-11-02 12:56:18 得分 0
这样的帖子太多了，看看以前的吧。Top
2 楼ken517（崔之枫）回复于 2003-11-02 14:20:52 得分 0
我用的是ADO！请问有办法吗？哪些贴啊！我看来看去都看不到啊！Top
3 楼palmkey（原水）回复于 2003-11-02 15:32:27 得分 20
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sDb As String
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
+ "Persist Security Info=False;Initial Catalog=master;Data Source=SERVER"
rs.Open "SELECT name FROM sysdatabases", cn, adOpenKeyset, adLockOptimistic
While Not rs.EOF
sDb = sDb & rs.Fields(0) & vbTab
rs.MoveNext
Wend
MsgBox sDb
Top
4 楼ken517（崔之枫）回复于 2003-11-02 16:08:23 得分 0
谢谢源水兄！那么用VB可不可以创建SQL SERVER的数据库啊？我查看了很多资料！没有介绍用VB+ADO来创建数据库的！请问用VB本身的代码能够创建数据库、表、存储过程等等的东西吗？
小弟感谢各位高手的指点！望能回复~~~Top
5 楼crystal_heart（笑看风云）回复于 2003-11-02 16:57:26 得分 10
ADODB.Connection可以直接执行SQL语句。去参考一下SQL Server的联机帮助什么都可以实现。Top
6 楼busisoft（chunlin）回复于 2003-11-02 17:34:09 得分 20
'引用Microsoft SQLDMO Object Library
'利用 SQL DMO Application 对象查找可用的SQL服务器
Dim oSQLServerDMOApp As New SQLDMO.Application()
Dim namX As SQLDMO.NameList
namX = oSQLServerDMOApp.ListAvailableSQLServers
For i = 1 To namX.Count
'cmbServerName 为服务器名称组合框。
cboDataSource.Items.Add(namX.Item(i))
Next
Top
