Discussion :

[Lendcap]

Bonjour,
sur mon datagridview, j'aimerai remplir une colonne à partir d'une valeur disponible sur une vue que j'ai mappé au dbml avec le cocepteur. J'utilise donc ce code dans l'editeur visual basic

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
Private Sub TransfertDetailDataGridView_CellEndEdit_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TransfertDetailDataGridView.CellEndEdit
        Dim db As New EasyContextDataContext
        If Me.TransfertDetailDataGridView.CurrentCell.ColumnIndex = DataGridViewTextBoxColumn2.Index Then
            Me.tsansitbox.Text = TransfertDetailDataGridView(1, CInt(TransfertDetailDataGridView.CurrentRow.Index)).Value
 
            Dim avail = From ava In db.AvailablaStocks Where ava.ProductID = CInt(Me.tsansitbox.Text) And ava.StoreID = Me.ComboBox1.SelectedValue Select ava.AvailStock, ava.ProductID
            Dim availa = (From av In db.AvailablaStocks Where av.StoreID Like ComboBox2.SelectedValue And av.ProductID Like CInt(Me.tsansitbox.Text) _
            Select av.AvailStock).First
            Try
                TransfertDetailDataGridView(4, CInt(TransfertDetailDataGridView.CurrentRow.Index)).Value = avail.First.AvailStock
                TransfertDetailDataGridView(5, CInt(TransfertDetailDataGridView.CurrentRow.Index)).Value = availa.Value
 
            Catch ex As Exception
                MsgBox(ex.Message, , "EasyPharma")
            End Try
 
        ElseIf Me.TransfertDetailDataGridView.CurrentCell.ColumnIndex = DataGridViewTextBoxColumn3.Index Then
            Try
                Me.Validate()
                Me.TransfertDetailBindingSource.EndEdit()
                Me.StockTransfertBindingSource.EndEdit()
                Me.TableAdapterManager.UpdateAll(Me.Productlinkset)
 
            Catch ex As Exception
                MsgBox(ex.Message & "  " & "Pas enregistré, recommencer et renseigné toutes les rubriques depuis le haut du formulaire", , "EasyPharma")
                TransfertDetailDataGridView.Rows.Remove(TransfertDetailDataGridView.CurrentRow)
 
            End Try
 
        End If
    End Sub

seulement, je reçois le message d'erreur : ................ne supporte pas la traduction en sql

comment pourrais je remedier à la situation ? Votre aide me soulagerai beaucoup svp.

Merci d'avance
Lendcap

[Reward]

Bonjour,

A priori, l'une de tes requêtes (ou les deux) semblent poser problème lors de leur génération en sql:

Code :

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

1
2
3
Dim avail = From ava In db.AvailablaStocks Where ava.ProductID = CInt(Me.tsansitbox.Text) And ava.StoreID = Me.ComboBox1.SelectedValue Select ava.AvailStock, ava.ProductID
            Dim availa = (From av In db.AvailablaStocks Where av.StoreID Like ComboBox2.SelectedValue And av.ProductID Like CInt(Me.tsansitbox.Text) _
            Select av.AvailStock).First

Mets en une commentaire pour tenter d'isoler le problème histoire d'y voir plus clair.

A priori un like est possible du C# vers sql, avec notammement SqlMethods.Like (http://msdn.microsoft.com/fr-fr/libr...hods.like.aspx).

Par contre, à vue de nez, je dirais que ce qui pose problème, c'est peut-être la convertion en int dans la requête. Essaie en plaçant cette convertion avant la requête. Peut-être que le CInt ne se traduit pas du C# vers sql.

[GuruuMeditation]

+1, je pense aussi au CInt. Avec Int.Parse ça peut aller.

[Lendcap]

Bonjour,
Merci bien pour vos promptes reponses.
J'ai essayé les deux solutions mais l'exeption persiste

La methode system.ObjetCompareObjetEqual(System.Objet, System.Objet, Boolean)ne prend pas en charge la traduction en sql

Voici ce que j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
Dim val As Decimal
            val = Int32.Parse(Me.tsansitbox.Text)
 
 
            'TransfertDetailDataGridView(4, CInt(TransfertDetailDataGridView.CurrentRow.Index)).Value = db.Function2(CInt(tsansitbox.Text), ComboBox2.SelectedValue)
            'Dim prod = (From pro In db.Products Where pro.ProductID = CInt(Me.tsansitbox.Text) Select pro.PublicPrice, pro.SecurityStock)
 
            Try
                Dim avail = From ava In db.AvailablaStocks Where ava.ProductID =Int32.Parse(val) And ava.StoreID = Me.ComboBox1.SelectedValue Select ava

[Reward]

Je pense que c'est parce que tu fais ta convertion dans la requête Linq.

Au tout début de ton code, tu fais déjà la convertion en int avec

Code :

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

 val = Int32.Parse(Me.tsansitbox.Text)

Alors pourquoi le refaire dans la requête avec ça ?

Code :

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

ava.ProductID =Int32.Parse(val)

Essai donc avec ceci

Code :

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

Dim avail = From ava In db.AvailablaStocks Where ava.ProductID = val And ava.StoreID = Me.ComboBox1 .SelectedValue Select ava

[Lendcap]

Bonjour,
j'ai essayé à nouveau en suivant le dernier conseil mais la situation reste la même.

Je crois que le problème devrait être ailleurs.

Je demeure penché sur vos écrits.

Merci d'avance

Lendcap