Aktualisierbare Ansicht gibt Laufzeitfehler in Visual Basic

Question

Ich versuche, ein altes visuelles Basisprogramm, das Legacy-Datenbanktabellen verwendet, in eine modernere und robustere Implementierung zu konvertieren. Es verwendet eine Menge von Varchars, wenn es Floats hätte verwenden sollen, um ein konkretes Beispiel zu geben, es macht den Code sehr schwer zu lesen, da viele Konvertierungen von Float zu String und Reverse benötigt werden, was ich in der neuen Anwendung vermeiden möchte)

Um Abwärtskompatibilität zu erhalten, erstelle ich aktualisierbare Ansichten auf meinen neuen Tabellen, so dass die alte Anwendung in vb noch funktionieren kann oder zumindest das ist die Absicht.

Ich habe eine Ansicht wie folgt:

SELECT   
ArtikelNummer, 
CataloogID, 
Artikel, 
isnull(CONVERT(nvarchar(5), breedte),'') Breedte, 
isnull(CONVERT(nvarchar(5), Hoogte),'') Hoogte, 
isnull(CONVERT(nvarchar(5), Diepte),'') Diepte, 
isnull(CONVERT(nvarchar(5), Aantal),'') Aantal, 
FROM    
Master.Orders_Catalogen_Artikels 

und dann habe ich anstelle des Einsatzes erstellt und statt Update auf dieser Ansicht löst es aktualisierbar und manuell diese Trigger getestet, um zu bestätigen, dass sie in Ordnung sind, und sie arbeiten.

Wenn ich jedoch als letzter Test versuche, das VB6-Programm auszuführen, kann es keine Inserts mehr machen, noch bevor ich den Insert tatsächlich gemacht habe. Der Code nicht in VB sich in der OLE-Material:

With MyDE.rsSelectedArtikel 
.Fields("CataloogID").Value = Orders.cCataloogID 
.Fields("Artikel").Value = Orders.cbArtikel 
.Fields("Aantal").Value = Orders.cAantal ---> fails here 

Die Abfrage hinter dem rsSelectedArtikel ist eine einfache select * from Orders_Catalogen_artikels, die den Namen der Ansicht ist, die ich oben zeigte.

¨Der Laufzeitfehler, den ich bekomme, ist -2147217887 (8004e21), der normalerweise eine falsche Typverwendung oder etwas ähnliches identifizieren würde. Aber der Aantal wird korrekt als ein nvarchar (5) identifiziert, wenn ich die Spalten der Ansicht nachschaue.

Gibt es eine Lösung oder einen Workaround für diese Art von Problem?

Ich könnte natürlich weiterhin die alte Tabellendefinition verwenden Strings für Längen und Breiten und dergleichen, und erstellen Sie eine aktualisierbare Ansicht für die neue Anwendung, aber das scheint für mich das Gegenteil der richtige zu tun.

Oder ich modifiziere die VB-Anwendung leicht, ich habe die Quellen und modifiziere zuerst das Datenmodell, um Floats für Breiten, Höhen und Längen zu verwenden, aber ich bevorzuge, es unberührt zu lassen.

Ich hätte gehofft, dass aktualisierbare Ansichten die Antwort für diese Art von Problem waren.

UPDATE 1: Hinzufügen von Update-Trigger und Insert-Trigger

ALTER TRIGGER [dbo].[V_Orders_Catalogen_Artikels_Update] ON [dbo].[Orders_Catalogen_Artikels] 
INSTEAD OF UPDATE 
AS 
BEGIN 
-- SET NOCOUNT ON added to prevent extra result sets from 
-- interfering with SELECT statements. 
SET NOCOUNT ON; 

-- Insert statements for trigger here 
UPDATE [Master].[Orders_Catalogen_Artikels] 
SET [CataloogID] = inserted.CataloogID 
    ,[Artikel] = inserted.Artikel 
    ,[Breedte] = iif(inserted.Breedte = '',null,inserted.Breedte) 
    ,[Hoogte] = iif(inserted.Hoogte = '',null,inserted.Hoogte) 
    ,[Diepte] = iif(inserted.Diepte = '',null,inserted.Diepte) 
    ,[Aantal] = iif(inserted.Aantal = '',null,inserted.Aantal) 
    ,[OmschrijvingNL] = inserted.OmschrijvingNL 
    ,[Positie] = inserted.Positie 
    ,[EenheidsPrijs] = inserted.EenheidsPrijs 
    ,[Opmerking] = inserted.Opmerking 
    ,[PosNr] = inserted.PosNr 
    ,[Binnenkleur] = inserted.Binnenkleur 
    ,[BKleurFront] = inserted.BKleurFront 
    ,[Frontkantdikte] = inserted.Frontkantdikte 
    ,[Poothoogte] = inserted.Poothoogte 
    ,[BTWcode] = inserted.BTWcode 
    ,[Korpuskantdikte] = inserted.Korpuskantdikte 
    ,[ManuelePrijs] = inserted.ManuelePrijs 
    ,[OpmerkingFr] = inserted.OpmerkingFr 
    ,[OmschrijvingFr] = inserted.OmschrijvingFr 
    ,[ArtikelGroepID] = inserted.ArtikelGroepID 
    ,[ArtikelID] = inserted.ArtikelID 
    ,[VolgNr] = inserted.VolgNr 
    ,[Klaar] = inserted.Klaar 
    ,[ScanDatum] = inserted.ScanDatum 
    ,[ScanOpm] = inserted.ScanDatum 
    ,[OpZaaglijst] = inserted.OpZaaglijst 
FROM inserted 
WHERE [Master].[Orders_Catalogen_Artikels].ArtikelNummer = inserted.ArtikelNummer 

END 

ALTER TRIGGER [dbo].[V_Orders_Catalogen_Artikels_Insert] ON [dbo].[Orders_Catalogen_Artikels] 
INSTEAD OF INSERT 
AS 
BEGIN 
-- SET NOCOUNT ON added to prevent extra result sets from 
-- interfering with SELECT statements. 
SET NOCOUNT ON; 

-- Insert statements for trigger here 
INSERT INTO [Master].[Orders_Catalogen_Artikels] 
     ([CataloogID] 
     ,[Artikel] 
     ,[Breedte] 
     ,[Hoogte] 
     ,[Diepte] 
     ,[Aantal] 
     ,[OmschrijvingNL] 
     ,[Positie] 
     ,[EenheidsPrijs] 
     ,[Opmerking] 
     ,[PosNr] 
     ,[Binnenkleur] 
     ,[BKleurFront] 
     ,[Frontkantdikte] 
     ,[Poothoogte] 
     ,[BTWcode] 
     ,[Korpuskantdikte] 
     ,[ManuelePrijs] 
     ,[OpmerkingFr] 
     ,[OmschrijvingFr] 
     ,[ArtikelGroepID] 
     ,[ArtikelID] 
     ,[VolgNr] 
     ,[Klaar] 
     ,[ScanDatum] 
     ,[ScanOpm] 
     ,[OpZaaglijst]) 
     SELECT 
    [CataloogID] 
    ,[Artikel] 
    ,iif(ISNUMERIC(breedte+'e0')=1,convert(float,[Breedte]),null) as newbreedte 
    ,iif(ISNUMERIC([Hoogte]+'e0')=1,convert(float,[Hoogte]),null) as newhoogte 
    ,iif(ISNUMERIC([Diepte]+'e0')=1,convert(float,[Diepte]),null) as newdiepte 
    ,iif(ISNUMERIC([Aantal]+'e0')=1,convert(float,[Aantal]),null) as newaantal 
    ,[OmschrijvingNL] 
    ,[Positie] 
    ,[EenheidsPrijs] 
    ,[Opmerking] 
    ,[PosNr] 
    ,[Binnenkleur] 
    ,[BKleurFront] 
    ,[Frontkantdikte] 
    ,[Poothoogte] 
    ,[BTWcode] 
    ,[Korpuskantdikte] 
    ,[ManuelePrijs] 
    ,[OpmerkingFr] 
    ,[OmschrijvingFr] 
    ,[ArtikelGroepID] 
    ,[ArtikelID] 
    ,[VolgNr] 
    ,[Klaar] 
    ,[ScanDatum] 
    ,[ScanOpm] 
    ,[OpZaaglijst] 
FROM inserted 

END 

Answer 1

An "aktualisierbar" Ansicht ist eine falsche Bezeichnung. Die Ansicht speichert nichts. Die Alias-Spalten geben ein geändertes Aussehen der Daten in der Tabelle zurück.

In Ihrem Beispiel haben Sie zwei mögliche Codepfade für einen einzelnen Wert (null oder nicht null). Sie versuchen, Code zurück in einen der Codepfade zu senden, um einen Basiswert zu erhalten. Wenn Sie zum Beispiel '' den Pfad hinunter geschickt haben, wie würde SQL wissen, ob das ein Literal sein soll '' oder ein Nullwert, der ersetzt wurde.

Aus diesem Grund können Sie keine Spalten mit einem Ausdruck aktualisieren. Der Ausdruck ist in der Ansicht effektiv schreibgeschützt.