Dim MyPass As String = Dim MyDataFile As String = Application.StartupPath & \DataFile\Northwind.mdb Dim strCon As String = provider=microsoft.jet.oledb.4.0;data source= _ & MyDataFile & ; & Jet OLEDB:Database Password= & MyPass & ; If you are using SQL Server, please replace previous lines with following: Dim strCon As String = provider=sqloledb;Data Source=PC;Initial Catalog= _ & Northwind;Integrated Security=SSPI & ; and replace Data Source=PC with the name of your system Try Get data from tables: Orders, Customers, Employees, Products, Order Details: Dim InvSql As String = SELECT Customers.CompanyName, Customers.City, _ & Employees.FirstName + Space(1) + Employees.LastName AS Salesperson, _ & Orders.OrderID, Orders.OrderDate, _ & [Order Details].ProductID, Products.ProductName, [Order Details].UnitPrice, _ & [Order Details].Quantity, [Order Details].Discount, _ & CCur([Order Details].UnitPrice*[Quantity]*_ (1-[Discount])/100)*100 AS ExtendedPrice, _ & Orders.Freight _ & FROM Products INNER JOIN ((Employees INNER JOIN _ & (Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID) _ & ON Employees.EmployeeID = Orders.EmployeeID) _ & INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) _ & ON Products.ProductID = [Order Details].ProductID; create an OleDbDataAdapter Dim datAdp As OleDbDataAdapter = New OleDbDataAdapter(InvSql, strCon) create a command builder Dim cBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(datAdp) create a DataTable to hold the query results Dim dTable As DataTable = New DataTable fill the DataTable datAdp.Fill(dTable) set DataSource of DataGrid datGrid.DataSource = dTable Catch ex As Exception MessageBox.Show(ex.ToString()) End Try
Posted on: Fri, 14 Mar 2014 08:10:21 +0000
Trending Topics
Recently Viewed Topics
© 2015