1.创建控制台
2.引用空间:
Imports System.Data.SqlClient
Imports System.Data.Linq
Imports System.Linq
3.添加新类:Linq to SQL类
4.把pubs中的titles表拖入O/R设计器
5.完整代码:
Imports System.Data.SqlClient
Imports System.Data.Linq
Imports System.Linq
Module Module1
Private Function GetConnection() As SqlConnection
Return New SqlConnection(My.Settings.pubsConnectionString)
End Function
Private Sub testdbml()
Dim dc As New pubsDataContext
'Dim query As Table(Of titles) = dc.titles
Dim query = dc.titles
For Each item In query
Console.WriteLine("{0}:{1}", item.title_id, item.title)
Next
Console.WriteLine("Press Enter to exit")
End Sub
Sub Main()
testdbml()
Console.Read()
End Sub
End Module