Discussion :

[sihammaster]

Comment sauvegarder une base de données depuis VB ? j'ai trouvé du trucs sur SQL, des requetes plutot, mais ce que je cherche c'est de le faire en vb.net. Merci D'avance.

[meziantou]

Il existe plusieurs technologies pour accéder aux BDD
- Dataset
- Linq to SQL
- Entity Framework

[Pacane]

Si tu utilises le Dataset, il existe un truc super facile... En fait tu peux exporter le tout sous format XML, avec ou sans schéma xsd... C'est super pour ça

Bonne chance!

[meziantou]

L'intérêt du Dataset est surtout qu'il permet un mode déconnecté.
L'intérêt d'Entity Framework est de pouvoir gérer sa BDD avec un model object et non relationnel. De plus EF évite d'écrire les requêtes SQL à la main.
Depuis l'arrivé d'EF4, je ne vois plus vraiment d'intérêt pour Linq to SQL.

[sihammaster]

S'il vous plait pouvez vous me passé un bout de code, je dois commencé par quoi

[Pacane]

L'intérêt du Dataset est surtout qu'il permet un mode déconnecté.
L'intérêt d'Entity Framework est de pouvoir gérer sa BDD avec un model object et non relationnel. De plus EF évite d'écrire les requêtes SQL à la main.
Depuis l'arrivé d'EF4, je ne vois plus vraiment d'intérêt pour Linq to SQL.

Oui bon, le dataset est beaucoup plus que ce que j'ai dit, mais pour son besoin, cela reste une bonne solution, selon moi. (Le Dataset.WriteXML si je me souviens bien)

[hunteshiva]

Tu veut juste exporter des données sans les réutiliser sous vb par la suite ?

si c'est le cas je veut bien t'aider
*charger puis modifier les données d'une base de données est un peut plus complqué ...*

[sihammaster]

Probleme resolu:
Voila j'ai Trouvé une solution, voila le code:

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
 
 
Dim conect As New SqlConnection("data source=" + My.Computer.Name + "\SQLEXPRESS  ; integrated security=true")
        Dim com0 As SqlCommand = New SqlCommand("SELECT count(*) FROM sys.databases where name =.....", conect)
 
 
        com = New SqlCommand("SELECT name FROM sys.databases where name =.....", conect)
        For j = 0 To GetData(com).Rows.Count - 1
 
            Dim cnString As String = "Integrated Security=true ; Data Source =" + My.Computer.Name + "\SQLEXPRESS"
            Dim dbLocation As String = "C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\"
            Dim dbName As String = GetData(com).Rows(j).Item(0)
            Dim cn As New SqlConnection(cnString)
            cn.Open()
            Dim cmd As New SqlCommand("ALTER DATABASE " & dbName & " SET OFFLINE", cn)
            cmd.ExecuteNonQuery()
            cn.Close()
            RelocateCopiedMDF(dbLocation, dbName)
            cn.Open()
            Dim cmd1 As New SqlCommand("ALTER DATABASE " & dbName & " SET ONLINE", cn)
            cmd1.ExecuteNonQuery()
            cn.Close()
        Next
            MessageBox.Show("Sauvegarde complete.")
 
 Private Sub RelocateCopiedMDF(ByVal dbLocation As String, ByVal dbName As String)
        Dim myMDF As String = dbLocation & "\Data\" & dbName & ".mdf"
        Dim myLDF As String = dbLocation & "\Data\" & dbName & "_Log.ldf"
 
        Dim copyMDF As New FileInfo(myMDF)
        Dim copyLDF As New FileInfo(myLDF)
           copyMDF.CopyTo("C:/"  & dbName & ".mdf")
        copyLDF.CopyTo("C:/"  & dbName & ".ldf")
 
    End Sub

Dans ce code j'ai fai une boucle pour parcourir toutes les bases de données dans sql server evitant les BDDs systeme, puis j'ai arreter les DBBs pour pouvoir les copies, apres le copage je redemarre les BDDs.