Guten Morgen miteinander,
ich baue in meinem vba-script eine verbindung zu einer datenbank auf .. und möchte nun gerne eine neue datenbank anlegen, wenn diese noch nicht angelegt worden ist. habe das ganze auch schon im
mssql-editor getestet und funktioniert einwandfrei .. wenn ich das ganze jedoch in vba schreibe .. und das ganze als string an die variable
SQL" übergebe.. bringt der mir gleich am anfang den fehler .. "incorrect syntax near 'GO'"
was ich von anfang an ausschließen kann .. ist.. dass mir die authorisierungsrechte fehlen .. ich selber bin admin
weiß rein zufällig jemand rat ?
hier der code ..
Code:
Cn.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source=cobw6872;" & _
"Initial Catalog=Master;" & _
"Integrated Security=SSPI"
Set conn = CreateObject("ADODB.Connection")
conn.Open Cn
MsgBox "Verbindung aufgebaut"
SQL = ("USE Master " _
& " GO " _
& " IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'kunde') " _
& " DROP DATABASE [kunde]" _
& " CREATE DATABASE [kunde] ON (NAME = N'kunde'," _
& " Filename = N 'C:\Projects\Databases\kunde.MDF' ," _
& " SIZE = 5," _
& " FILEGROWTH = 10%)" _
& " LOG ON (NAME = N'kunde_Log'," _
& " Filename = N 'C:\Projects\Databases\kunde_Log.LDF' ," _
& " SIZE = 5," _
& " FILEGROWTH = 10%)" _
& " USE kunde" _
& " GO")
MsgBox
SQL
conn.Execute (
SQL)
danke für eure mithilfe !