VB 9 linq to sql实做1

 前两天刚刚下载了Orcas beta 1，今天来玩一下传说中的linq，看看怎么通过linq语法来操作数据库。

首先创建一个Console Application，然后创建一个名称为DBForums.mdf的Service-based Database。然后在

DBForums.mdf中添加一个名称为UserInfo的表，表结构如下：

字段名称	字段属性	字段说明
UserID	int	PK，自增加字段
UserName	Varchar(50)
CreateTime	DateTime
LastLoginTime	DataTime
Password	Varchar(50)
Address	Varchar(100)

 添加完成后在工程中添加一个Linq to SQL项，项名称设置为DBForums.dbml，然后在Server Explorer中将

DBForums.mdf中的UserInfo拖放到DBForums.dbml的设计界面上。在程序中就可以访问DBForums数据库了

 

         Private  db  As   New  DBForumsDataContext

         Dim  users()  =  { _
                        New  UserInfo  With  {.UserName  =   " chenrui " , _
                         .Password  =   " 12345 " , _
                         .Address  =   " HU " , _
                         .CreateTime  =  Now}, _
                        New  UserInfo  With  {.UserName  =   " Li " , _
                         .Password  =   " 223344 " , _
                         .Address  =   " Bei " , _
                         .CreateTime  =  Now}, _
                        New  UserInfo  With  {.UserName  =   " Zhang " , _
                         .Password  =   " 223344 " , _
                         .Address  =   " Bei " , _
                         .CreateTime  =  Now} _
                       }

         ' Select
         Dim  UserFromBei  =  From UserInfo  In  users Where UserInfo.Address  =   " Bei "
         For   Each  u  In  UserFromBei
            Console.WriteLine(u.UserName)
         Next

         ' Insert
         For   Each  u  In  users
            db.UserInfos.Add(u)
         Next
        db.SubmitChanges()

         ' select from db
         Dim  q  =  From c  In  db.UserInfos  Select  c.UserName
         For   Each  uName  In  q
            Console.WriteLine( " Selected :  "   +  uName)
         Next

        Console.ReadLine()

 

因为在DBForums.dbml中定义了UserInfo，因此在代码中可以访问。首先定义了一个UserInfo数组，然后

可以通过Linq查询，通过DBForums.dbml的DBForumsDataContext对象执行插入和数据库查询操作。