Solved

Error code handling incorrect?

Posted on 2008-10-28
1
114 Views
Last Modified: 2012-05-05
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

0
Comment
Question by:Schuttend
1 Comment
 
LVL 32

Accepted Solution

by:
Daniel Wilson earned 125 total points
ID: 22824995
At line 31 you need
Exit Function

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

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now