création d'une base sql à la volée sous VB 2010 avecSQL Compact
BOnjour,
je tente de créer une base sql directement par le code pour effectuer les sauvegarde (à chaque nouveau profile, une sauvegarde sql, donc un nouveau fichier mdf)
j'ai trouvé un bout de code sur les cours de Philippe Lasserre
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
Protected Const SQL_CONNECTION_STRING As String = _
"Server=localhost;" & _
"DataBase=;" & _
"Integrated Security=SSPI"
Dim strSQL As String = _
"IF EXISTS (" & _
"SELECT * " & _
"FROM master..sysdatabases " & _
"WHERE Name = 'HowToDemo')" & vbCrLf & _
"DROP DATABASE HowToDemo" & vbCrLf & _
"CREATE DATABASE test"
Dim northwindConnection As New SqlConnection(connectionString)
Dim cmd As New SqlCommand(strSQL, northwindConnection)
northwindConnection.Open()
cmd.ExecuteNonQuery()
northwindConnection.Close() |
mais j'ai déjà un soucis: vb m'indique une erreur avec "connectionString". IL me propose de le remplacer par connection state ou sqlconnectionstringbuilder.
j'ai modifié le code et maintenant il fonctionne: le voici:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Dim connectionString As String = "Integrated Security=SSPI;Persist Security Info=False;" & "Initial Catalog=Northwind;Data Source=localhost"
Dim strSQL As String = "IF EXISTS (" & "SELECT * " & "FROM master..sysdatabases " & "WHERE Name = 'HowToDemo')" & vbCrLf & "DROP DATABASE HowToDemo" & vbCrLf & "CREATE DATABASE test"
Dim northwindConnection As New SqlConnection(connectionString)
Dim cmd As New SqlCommand(strSQL, northwindConnection)
northwindConnection.Open()
cmd.ExecuteNonQuery()
northwindConnection.Close() |
Le soucis maintenant c'est qu'il me dit lors de l'execution qu'il ne trouve pas de serfver sql... forcément j'en ai pas. Je souhaite utiliser avec sql server compact qui ne nécessité pas de server.
Quelqu'un a-t-il une solution ?
Merci d'avance,
K
