HOW TO: Delete a SQL 7.0 database?

[elbimbo]

Hello there,

Does anybody knows how to delete a SQL Server 7.0 or MSDE database using VB. Pls show me some codes..

actually i do have d codes but it only works on SQL 2000
heres d code. (pls try to debug what is wrong)


Dim objRoot As Object
Set objRoot = CreateObject("SQLDMO.SQLServer")

objRoot.LoginTimeout = 60
objRoot.Connect "(local)", user, password
Call objRoot.KillDatabase("MyDatabase")

tried it on MSDE and SQL 7.0
it generates an error #2702-database do not exist

Your help is very much appreciated.

[vb_dba]

You will want to connect to a different database than the one you are dropping.

Dim oConn As Connection
Dim ConStr As String
Dim sSql As String
 
sSql = "Drop Database myDB"
 
ConStr = "Provider=SQLOLEDB.1;" & _
               "Server=myServ;" & _
               "Initial Catalog=master;" & _
               "UID=" & sUID & ";" & _
               "PWD=" & sPWD & ";"
 
Set oConn = New Connection
With oConn
    .CursorLocation = adUseClient
    .CommandTimeout = 10
    .Open ConStr
 
    .Execute sSql
    .Close
End With
 
Set oConn = Nothing

[prashx]

I wonder if elbimbo forgot to mod. these lines!

objRoot.Connect "(local)", user, password
Call objRoot.KillDatabase("MyDatabase")

..

[elbimbo]

Thanks a lot guys.

I solve it my self. My codes works on SQL 2000 and to make it work to MSDE or SQL 7.0 you must use:

objRoot.databases.remove([index],[owner])

thats it. (this code will work both on SQL 7.0 and 2000)

You guys continue helping those who needs our expertise.

until then...

Elbimbo