Error code handling incorrect?

Hello,

What am I doing wrong with this code? The database is created,but I also get the message that the code is not generated.

regards,
Dennis
Function Create_DataBase()
Dim name
Dim ok As Boolean
name = Text3.Text
 
'Update Status window
Text2.Text = Text2.Text & vbCrLf & "Creating Database"
DoEvents
 
Set ado = New ADODB.Connection
' setup connectionstring to master database
ado.Open "Driver={SQL Server Native Client 10.0};Server=SCHUTTENVISTA\SQLEXPRESS;Database=master;Uid=sa;Pwd=d27021973;"
 
'First delete the existing database
On Error GoTo err_handler
 ado.Execute ("DROP DATABASE " & name)
On Error GoTo 0
 
 
 
err_handler:
' DATABASE DOES NOT EXIST so move on to the next statement
On Error Resume Next
'Create New database
On Error GoTo err1_handler
ado.Execute "CREATE DATABASE " & name
MsgBox ("Database Created")
On Error GoTo 0
 
'ado.Close
 
err1_handler:
MsgBox ("Database cannot be created, please check if SQL server is running")
Exit Function
 
End Function

Open in new window

SchuttendAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
Daniel WilsonConnect With a Mentor Commented:
At line 31 you need
Exit Function

It's falling through to the error handler routine.
0
All Courses

From novice to tech pro — start learning today.