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
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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()
j'ai modifié le code et maintenant il fonctionne: le voici:
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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()
Quelqu'un a-t-il une solution ?
Merci d'avance,
K
Partager