First thing I had handy, might need some touching up:

Dim mSQLServer

Dim mDatabase

Dim mBackup

Dim strDB

Dim oSQLSupport

Dim strMessage

Dim strExcludeList

Dim sBakPath

Dim oLogFile

On Error Resume Next

sBakPath = "D:\sqldata\backup"

strExcludeList = "TEMPDB/PUBS/NORTHWIND/DISTRIBUTION/MODEL"

Print "The following db's were...

Try this:

http://www.sqlservercentral.com/resourcecenter/Yukon.asp

Andy

http://www.sqlservercentral.com/columnists/awarren/

Of those two its better to always specify the owner.

Andy

http://www.sqlservercentral.com/columnists/awarren/

Should show up as normal blocking. For a 30 second delay you should be able to catch using just sp_who.

Andy

http://www.sqlservercentral.com/columnists/awarren/

The database and logfile objects both support a shrink method.

Andy

http://www.sqlservercentral.com/columnists/awarren/

Maybe you're seeing some contention in tempdb when you test? Tried doing an explicit create table (or use a perm table) instead of select into?

Andy

http://www.sqlservercentral.com/columnists/awarren/

Running with same permissions?

Andy

http://www.sqlservercentral.com/columnists/awarren/

Try this link:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/acdata/ac_8_con_7a_1hf7.asp

Andy

http://www.sqlservercentral.com/columnists/awarren/

The most direct is to create a server side trace that captures the info you need and writes it to a file. Then you can periodically (if you want) pick...

Use the tablockx hint. BOL has more info about all the available hints.

Andy

http://www.sqlservercentral.com/columnists/awarren/

There's no simple way to determine if a record is locked. Typically if you try to select a locked record your request will be "blocked", so you wait until it...

Only if you do it like this:

set @sql='select * from ' + @tblname

exec(@sql)

Andy

http://www.sqlservercentral.com/columnists/awarren/

Good use of the wshell object. This is cleaner than the "shell" command used in VB which normally runs asynchronously. I see in a couple places you're declaring more than...

Just looking at it now. Here are a couple comments:

1) If KeyAscii = 13 Then

Command2_Click

End If

You can do this more cleaning by making...

Hey Antonio,

Great post! It NEVER occurred to me that the name property would be read/write. That's a lot cleaner than trapping the error.

Andy

http://www.sqlservercentral.com/columnists/awarren/