Hallo, ich habe folgendes Problem:
Ich versuche ein Beispiel aus der MSDN Datenbank (http://msdn.microsoft.com/de-de/library/bb907191.aspx) in Visual Basic zu erstellen. Alles funktioniert prächtig, bis auf folgende zwei Fehler an denen ich mir bisher die Zähne ausgebissen habe:
1. "Add" ist kein Member von "System.Data.Linq.Table(Of WindowsApplication1.Customers)".
2. "Remove" ist kein Member von "System.Data.Linq.Table(Of WindowsApplication1.Customers)".
Ich habe leider noch keine Erfahrung mit dem Programm und konnte auch im Internet kein oassendes Hilfethema zu meinem Problem finden.
Wäre nett wenn mir jemand weiterhelfen könnte, schonmal Danke im Vorraus
Habe hier mal meinen Code angefügt, das unterringelte ist fett.
Public Class Form1
Private db As northwindDataContext
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
db = New northwindDataContext()
RefreshData()
End Sub
Private Sub RefreshData()
Dim customers = From cust In db.Customers _
Where cust.City(0) = "W" _
Select cust
DataGridView1.DataSource = customers
End Sub
Private Sub AddButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles AddButton.Click
Dim cust As New Customers With { _
.City = "Wellington", _
.CompanyName = "Blue Yonder Airlines", _
.ContactName = "Jill Frank", _
.Country = "New Zealand", _
.CustomerID = "JILLF"}
db.Customers.Add(cust)
Try
db.SubmitChanges()
Catch
' Handle exception.
End Try
RefreshData()
End Sub
Private Sub UpdateButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles UpdateButton.Click
Dim updateCust = (From cust In db.Customers _
Where cust.CustomerID = "JILLF").ToList()(0)
updateCust.ContactName = "Jill Shrader"
Try
db.SubmitChanges()
Catch
' Handle exception.
End Try
RefreshData()
End Sub
Private Sub DeleteButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles DeleteButton.Click
Dim deleteCust = (From cust In db.Customers _
Where cust.CustomerID = "JILLF").ToList()(0)
db.Customers.Remove(deleteCust)
Try
db.SubmitChanges()
Catch
' Handle exception.
End Try
Registrieren
Login
