oledb database updates on joined queries

       Dim oledbDA As System.Data.OleDb.OleDbDataAdapter
        Dim oleFillComm As System.Data.OleDb.OleDbCommand
        Dim oleUpdComm As System.Data.OleDb.OleDbCommand

        Dim oleDS As DataSet

        oleFillComm = New System.Data.OleDb.OleDbCommand
        oleUpdComm = New System.Data.OleDb.OleDbCommand
        oleDS = New DataSet

        oleconn = New System.Data.OleDb.OleDbConnection
        oledbDA = New System.Data.OleDb.OleDbDataAdapter
        oleconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ShopHand\ShopHand\ShopHand\slspro.mdb;" & _
            "Persist Security Info=True"
        oleconn.Open()

        oleFillComm.Connection = oleconn

        oleFillComm.CommandText = "SELECT        Stock.VIN, Customers.LastName, Customers.FirstName, Customers.MiddleInitial, Customers.Address1, Customers.Address2, Customers.City, " & _
        "Customers.State, Customers.Zip, Customers.EmailAddress, Customers.CellPhone, Customers.HomePhone, Customers.WorkPhone, Customers.Fax, Customers.County, " & _
        "Stock.StockNum, Stock.Make, Stock.Model, Stock.ModelCode, Stock.[Memo], Stock.Body, Stock.Color, Stock.Engine, Stock.MilesIn, Stock.ExistingPlate, Stock.DeliveryDate, " & _
        "Customers.Do_Not_Call, Customers.IsBusiness, Customers.IsCurrent, Customers.BaseAddressID, Customers.ActiveDate, Customers.SocialSecurity, Customers.CountyCode, Customers.DateOfBirth, Customers.DriversLicense, " & _
        "Customers.DriversLicenseState, Customers.LastWriteCount, Customers.DriversLicenseExpiration, Stock.InventoryID, Stock.AdjustedCost, Stock.AdjustedMsrp, Stock.Adv, Customers.IsEmployee, Customers.Notes, Customers.PayrollDeduction, " & _
        "Stock.AppendTimeStamp, Stock.BookValue, Stock.BrokerAmount, Stock.BrokerID, Stock.Buyer,Stock.ColorCode, Stock.Cost, Stock.DMVType, Stock.EquipmentOptions, " & _
        "Stock.Freight, Stock.HoldBack, Stock.Ignition, Stock.IgnitionLocation, Stock.InvoiceDate, Stock.InvoiceNumber, Stock.Location, Stock.MileageType,  Stock.MilesOut, " & _
        "Stock.MSRP, Stock.NewVehicle, Stock.Pack, Stock.PictureFilename, Stock.PurchasedFrom, Stock.SellingPrice, Stock.SoldToBrokerAmount, Stock.SoldToBrokerID, Stock.StockDate, " & _
        "Stock.TitleNumber, Stock.TitleType, Stock.TradeACV, Stock.TradeAddToStock, Stock.TradeAllowance, Stock.TradeBookValue, Stock.TradeLien, Stock.Transmission, Stock.Trunk, " & _
        "Stock.TrunkLocation, Stock.WebPrice, Stock.Weight, Stock.[Year], Stock.VehicleStatus, Stock.IsOnFloorPlan, Stock.WasDemo, Stock.ExistingPlateExpires, " & _
        "Stock.FloorPlanCompanyOID, Stock.FloorPlanCompanyName, Stock.FloorPlanRate, Stock.FloorPlanGrace, Stock.FlooredAmount, Stock.IncludeFloorPlanInAdjCost, Stock.FloorPlanEndDate, Stock.FloorPlanAccum, " & _
        "Stock.InspectionStationNumber, Stock.WebDescription1, Stock.WebDescription2, Stock.WebDescription3, Stock.WebDescription4, Stock.WebDescription5, Stock.WebDescription6, Stock.WasWholesale, " & _
        "Stock.FormattedStockNum, Stock.IsRepo, Stock.NumCylinders, Stock.NumDoors, Stock.FuelType, Stock.InteriorColor, Stock.InteriorType, Stock.IsCertified, Stock.AutoRevoEquipment, " & _
        "Stock.AutoTraderEquipment, Stock.IsSpecial, Stock.SpecialExpires, Stock.SpecialPrice, Stock.SeatingCapacity, Stock.LastWriteCount AS Expr1, Stock.VehicleNotes, Stock.DataFeeds_DoNotSend, Stock.VideoURL, " & _
        "Stock.SegmentationCode, Stock.QRCode, Stock.TitleOrigin, Stock.VIN + ' ' + Customers.LastName + ',  ' + Customers.FirstName + ' ' + Customers.MiddleInitial AS VINDisplay, " & _
        "Customers.LastName + ',  ' + Customers.FirstName + ' ' + Customers.MiddleInitial + ' ' + Stock.VIN AS LastNameDisplay, Deals.DealID, Deals.ApprovalNumber, Deals.Buyer AS Expr2, Deals.CoBuyer, " & _
        "Deals.CoSigner, Deals.CustomerSource, Deals.DealDate, Deals.DealNumber, Deals.DealStatus, Deals.DealType, Deals.DeliveredDate, Deals.FinanceInfo, Deals.FinancingType, Deals.InsuranceCompany, " & _
        "Deals.InsurancePolicyNum, Deals.IsDelivered, Deals.LenderApprovalNumber, Deals.LenderID, Deals.ManagerID, Deals.Misc, Deals.PayrollDeductID, Deals.PlateExpireDate, Deals.PlateLevelWt, " & _
        "Deals.PlateMonth, Deals.PlateNumber, Deals.PlateType, Deals.PolicyNumber, Deals.SalesmanID, Deals.TaxExemptID, Deals.Trade1, Deals.Trade2, Deals.VehicleSold, Deals.TempReg, Deals.Trade1Leinholder, " & _
        "Deals.Trade2Leinholder, Deals.BuyerCurrentAddress, Deals.InsuranceEffectiveFrom, Deals.InsuranceEffectiveTo, Deals.CreditApp, Deals.CreditAppGUID, Deals.DrivewayAppID, Deals.DrivewaySubmissionDate, " & _
        "Deals.LocalLenderAppID, Deals.FundingStatus, Deals.FundingDate, Deals.LastWriteCount AS Expr3, Deals.LicensePlateCode, Customers.CustomerID " & _
"FROM            ((Customers INNER JOIN " & _
                         "Stock ON Customers.CustomerID = Stock.PurchasedFrom) INNER JOIN " & _
                         "Deals ON Stock.InventoryID = Deals.VehicleSold) " & _
"ORDER BY Customers.LastName"

        oledbDA.SelectCommand = oleFillComm
        oledbDA.Fill(oleDS)

        Me.DataGridView1.DataSource = oleDS.Tables(0)


        oleconn.Close()

Select allOpen in new window