Forespørgsel i Access DB
Når jeg kører nedenstående kode kommer VB med fejlen:Poster kan ikke læses fordi der ikke er tilladelse til at læse i "tblComponents".
Hvori består fejlen ?
Dim conn As New ADODB.Connection
With conn
.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Q:\4. Produktafdelingen\Database\DTDBr.mdb;UID=xy;PWD=veri"
.Open
'Delete
.Execute ("DELETE tblComponents.* FROM tblComponents;")
.Execute ("DELETE tblContent.* FROM tblContent;")
.Execute ("DELETE tblFormat.* FROM tblFormat;")
'Insert
.Execute ("INSERT INTO tblComponents ( ComponentID, ComponentName, LineNo, TextID, FormatID, ComponentGroup ) SELECT components.ComponentID, components.ComponentName, components.LineNo, components.TextID, components.FormatID, components.ComponentGroup FROM components;")
.Execute ("INSERT INTO tblContent ( TextID, [Text], ResComp ) SELECT Content.TextID, Content.Text, Content.ResComp FROM Content;")
.Execute ("INSERT INTO tblFormat ( FormatID, FormatName, FontName, FontSize, FontColor, Allignment, Bold, Italic, Underline, Bullets ) SELECT format.FormatID, format.FormatName, format.FontName, format.FontSize, format.FontColor, format.Allignment, format.Bold, format.Italic, format.Underline, format.Bullets FROM format;")
.Close
End With
