Discussion :

[Massigne]

Salut à tous,

Si je viens vers vous en ce jour c'est parce que j'ai un problème lors du déploiement de mon application avec sql server.
Lorsque j’essaie d'enregistrer des données dans mon application après le déploiement, je rencontre l'erreur suivant:



Mais lorsque je suis dans visual studio l'ajout s'effectue sans problème.

Pouvez vous m'aidez ?
* Merci *

[NULL008]

bonjour

tu as définir la date du naissance dans sql en format datetime donc tu doit respecter la format yyyy-mm-dd hh:mm:ss[.mmm] ou YYYYMMDD hh:mm:ss[.mmm]

alors vous étés entrain d'insérer du format varchar dd/mm/yyyy

https://msdn.microsoft.com/en-us/library/ms187819.aspx

[Massigne]

Merci pour avoir pris le temps de t'intéresser à mon problème j'ai fait ce que tu m'as dit et ça marche bien.
j'ai une autre préoccupation : lorsque j'installe mon application sur une machine ne contenant sql server, la connexion à la base de données ne marche pas. Peux tu m'aider ? Voilà mon code pour la connexion en vb.net

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Imports System.Data.SqlClient
Imports System.IO
Module Procedure
    Public con As New SqlConnection
    Public cmd As New SqlCommand
    Public da As New SqlDataAdapter
    Public ds As New DataSet
    Public dt As New DataTable
    Public bs As New BindingSource
    Public dr As SqlDataReader
    Public i As Integer
    Public a As New OpenFileDialog
    Public Sub connecter()
        Try
            'con.ConnectionString = "Data Source=DESKTOP-1GU82T3;Initial Catalog=LARIVE;Integrated Security=True"
            con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='" & GetpathOfDatabase() & "';Integrated Security=True"
            'con.ConnectionString = ("server=.\ sqlexpress;AttachDbFilename=" & Application.StartupPath & "\GESTIONECOLE.mdf;Integrated Security=True")
            'con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=" & Application.StartupPath & "\LARIVE.mdf;Integrated Security=True"
            ' con.ConnectionString = "Data Source=(localdb)\v11.0;Initial Catalog=gggg;Integrated Security=True"
            'con.ConnectionString = "Data Source=(localdb)\v11.0;Initial Catalog=GESTION_USINE;Integrated Security=True"
            'con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;Initial Catalog=GESTION_USINE;Integrated Security=True"
            con.Open()
            MsgBox("Connection réussit")
        Catch ex As Exception
            MsgBox("Echec de la connection")
        End Try
 
    End Sub
    Function GetpathOfDatabase() As String
        For Each ee As String In My.Computer.FileSystem.GetFiles(".\")
            If ee.Contains(".mdf") Then
                Return ee
            End If
        Next
        Return Nothing
    End Function
    Public Sub deconnecter()
        con.Close()
    End Sub
    Public Sub RemplirGrid(dg As DataGridView, table As String)
        If Not ds.Tables("DT" & table) Is Nothing Then
            ds.Tables("DT" & table).Clear()
        End If
        Call connecter()
        cmd.CommandText = "Select * FROM " & table
        cmd.Connection = con
        da.SelectCommand = cmd
        da.Fill(ds, "DT" & table)
        dg.DataSource = ds.Tables("DT" & table)
        Call deconnecter()
    End Sub
    Public Sub ViderForm(f As Control)
        For Each ctl As Control In f.Controls
            If TypeOf ctl Is TextBox Then
                ctl.Text = ""
            End If
            If TypeOf ctl Is DateTimePicker Then
                CType(ctl, DateTimePicker).Value = Now
            End If
            If TypeOf ctl Is ComboBox Then
                CType(ctl, ComboBox).Text = ""
            End If
            If TypeOf ctl Is PictureBox Then
                CType(ctl, PictureBox).Image = Nothing
            End If
            If TypeOf ctl Is GroupBox Or TypeOf ctl Is Panel Then
                For Each ctl2 As Control In ctl.Controls
                    If TypeOf ctl2 Is RadioButton Then
                        CType(ctl2, RadioButton).Checked = False
                    End If
                    If TypeOf ctl2 Is CheckBox Then
                        CType(ctl2, CheckBox).Checked = False
                    End If
                Next
            End If
        Next
    End Sub
End Module

Edit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='" & GetpathOfDatabase() & "';Integrated Security=True"

[Invité]

j'ai une autre préoccupation : lorsque j'installe mon application sur une machine ne contenant sql server, la connexion à la base de données ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='" & GetpathOfDatabase() & "';Integrated Security=True"

Un indice dans ta chaine de connexion : =(LocalDB)
Forcément si la bd n'est pas en local, ça ne peut pas marcher.
Metter le nom de votre machine dans votre chaine de connexion et assurer vous d'avoir activer les connexions distantes sur votre serveur de bd.

[Massigne]

Salut j'ai copié la base de données que j'ai collé dans mon projet avant le déploiement et c'est dans les propriétés de la base de données sur visual studio que j'ai copié la chaine de connexion avant de modifié certain éléments et sur ma machine cela fonctionne tres bien mais lorsque j'installe sur une autre machine la un message derreur saffiche:

[Massigne]

J'ai en fait compris quelle était le problème: lors du déploiement dans les propriétés du setup de déploiement il fallait sélectionner sql express Localdb avant le déploiement et la maintenant ça marche