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="data source=D:\WindowsAppVBSQLite\WindowsAppVBSQLite\bin\Debug\Northwind.db;version=3"" 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