gaqbranding.blogg.se

ProductID " ' create an OleDbDataAdapter Dim datAdp As OleDbDataAdapter = New OleDbDataAdapter(InvSql, strCon) & " ON Employees.EmployeeID = Orders.EmployeeID) " _ & " (Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID) " _ & " FROM Products INNER JOIN ((Employees INNER JOIN " _ & " Orders.OrderID, Orders.OrderDate, " _ & " Employees.FirstName + Space(1) + Employees.LastName AS Salesperson, " _ & " 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, " _ & 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=" _ Copy Code ' following lines to connect with access database file 'Northwind.mdb' Dim MyPass As String = " " Dim MyDataFile As String = Application.StartupPath & " \DataFile\Northwind.mdb" Dim strCon As String = " provider=.4.0 data source=" _