VB 2010 （62）初识Linq to SQL

程序员文章站 2022-07-04 11:07:59

...

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