Visual Basic .NET and SQLite Database using Entity Framework 6

on


Visual Studio 2019 Visual Basic .NET and SQLite Database using Entity Framework 6
- เขียนโปรแกรม VB .NET กับฐานข้อมูล SQLite โดยใช้ Entity Framework 6 หรือ EF 6

Free VB.NET Source Code by iBasskung.

Configuration File: App.config

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <configSections>
    <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
  </configSections>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
  </startup>
  <entityFramework>
    <providers>
      <provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
      <provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
      <provider invariantName="System.Data.SQLite" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
    </providers>
  </entityFramework>
  <system.data>
    <DbProviderFactories>
      <remove invariant="System.Data.SQLite.EF6" />
      <add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".NET Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
      <remove invariant="System.Data.SQLite" />
      <add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".NET Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
    </DbProviderFactories>
  </system.data>
  <connectionStrings>
    <add name="mainNorthwindEntities" connectionString="metadata=res://*/edmNorthwind.csdl|res://*/edmNorthwind.ssdl|res://*/edmNorthwind.msl;provider=System.Data.SQLite.EF6;provider connection string=&quot;data source=D:\WindowsAppVBSQLite\WindowsAppVBSQLite\bin\Debug\Northwind.db;version=3&quot;" providerName="System.Data.EntityClient" />
  </connectionStrings>
</configuration>

Form: Form1.vb

Public Class Form1

    Dim db As New mainNorthwindEntities()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim pro = From p In db.Products
                  From c In db.Categories
                  From s In db.Suppliers
                  Where (p.CategoryID = c.CategoryID) AndAlso (p.SupplierID = s.SupplierID)
                  Order By p.ProductID Ascending
                  Select New With
                      {
                          p.ProductID,
                          p.ProductName,
                          c.CategoryID,
                          c.CategoryName,
                          c.Description,
                          s.SupplierID,
                          s.CompanyName,
                          s.ContactName
                      }

        If pro.Count() > 0 Then
            DataGridView1.DataSource = pro.ToList()
        Else
            MessageBox.Show("Sorry, No records found.", "SQLite Entity Framework 6 : iBasskung.", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

    End Sub

End Class

Comments

Post a Comment