extraction des données sur views avec linq to sql

Version imprimable

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:

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

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:

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.

02/05/2012, 09h49
GuruuMeditation

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

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

Citation:

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:

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

02/05/2012, 14h24
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:

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

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

Code:

ava.ProductID =Int32.Parse(val)

Essai donc avec ceci

Code:

Dim avail = From ava In db.AvailablaStocks Where ava.ProductID = val And ava.StoreID = Me.ComboBox1 .SelectedValue Select ava
02/05/2012, 15h27
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