CRIAR DATABASE NA PRIMEIRA CONEXAO AO SERVIDOR.
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:
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...
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...
Tente conectar no SQL sem informar o nome do banco.
Exemplo:
Caso não resolva, experimente conectar na base MASTER do SQL.
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.
[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
Justamente por precisar estar conectado a alguma base de dados (nesse caso [Ô]Database01[Ô]), bem , é o que acho...
Aceito sugestões para testes
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