CRIAR DATABASE NA PRIMEIRA CONEXAO AO SERVIDOR.

DANLEONHART 26/02/2011 16:35:45
#366670
Tem como criar um Database na primeira conexão ?

Utilizo o SQL Server Management Studio, onde executo querys para inserir, alterar, deletar e etc...
Porém só quando estou conectado a alguma base...tem como na primeira conexão criar uma nova base ?

Irei utilizar em um aplicativo VB-6, então o script está assim:

Dim Con as ADODB.Connection
Dim StrCriarBD as String

Set Con = New ADODB.Connection

Con.Open [Ô]Provider=SQLOLEDB;Data Source=NEO\SQLEXPRESS;Initial Catalog=bco;Integrated Security=SSPI;[Ô]

StrCriarBD = [Ô]CREATE DATABASE Banco[Ô]

Con.Execute StrCriarBD


Como falei, só consigo criar uma nova Base de Dados se estiver conectado a alguma (no caso estou conectado a base [Ô]bco[Ô])...senão o [Ô]Open[Ô] da conexão não funciona...
TECLA 26/02/2011 18:50:47
#366676
Resposta escolhida
Tente conectar no SQL sem informar o nome do banco.

Exemplo:
Con.Open [Ô]Provider=SQLOLEDB; Data Source=NEO\SQLEXPRESS; Integrated Security=SSPI;[Ô]
StrCriarBD = [Ô]CREATE DATABASE Banco[Ô]
Con.Execute StrCriarBD


Caso não resolva, experimente conectar na base MASTER do SQL.
DANLEONHART 26/02/2011 19:07:34
#366679
[txt-color=#0000f0]@ TECLA :[/txt-color]
Como eu já esperava...funcionou perfeitamente

Só que no caso do [txt-color=#e80000]SQL Compact Edition[/txt-color] não funfa... e é onde estou a testar.
Segue script

Public Sub CriarBanco()
Dim StrCon As ADODB.Connection
Dim StrCriarBD As String

Set StrCon = New ADODB.Connection

StrCon.Open [Ô]Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source= [Ô] & App.Path & [Ô]\Database01.sdf;SSCE:Database Password=123123;[Ô]
StrCriarBD = [Ô]CREATE DATABASE BancoTesteBD[Ô]
StrCon.Execute StrCriarBD

StrCon.Close
End Sub


Justamente por precisar estar conectado a alguma base de dados (nesse caso [Ô]Database01[Ô]), bem , é o que acho...

Aceito sugestões para testes
Tópico encerrado , respostas não são mais permitidas