vba:access:classes:sqlscript
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next revision | ||
|
vba:access:classes:sqlscript [24.10.2016 11:40:22] yaslaw |
vba:access:classes:sqlscript [18.01.2017 10:24:56] yaslaw |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| <const> | <const> | ||
| - | version=1.5.0 | + | version=1.5.2 |
| - | vdate=21.06.2016 | + | vdate=18.01.2017 |
| fname=sqlscript.cls | fname=sqlscript.cls | ||
| ns=%NAMESPACE% | ns=%NAMESPACE% | ||
| Line 145: | Line 145: | ||
| Optional ByVal iHeader As String = Empty _ | Optional ByVal iHeader As String = Empty _ | ||
| ) As SQLScript</code> | ) As SQLScript</code> | ||
| + | |||
| + | === instanceSubScript()=== | ||
| + | >Statement | ||
| + | <code>script = SQLScript.instanceSubScript(command [,action])</code> | ||
| + | Erstellt eine Instance für ein einzelnes Script aus einem SQL-Statement heraus. | ||
| + | \\ Siehe Beispiel [[#Ein einsames Script erstellen und ausführen]] | ||
| + | <code vb>'/** | ||
| + | ' * Erstellt eine Instanze eines neuen Subscriptes | ||
| + | ' * @param String SQL-String | ||
| + | ' * @param sqlActions Art des Scriptes. Bei -1 wird die Action ermittelt | ||
| + | ' * @retrun SQLScript | ||
| + | ' */ | ||
| + | Public Static Function instanceSubScript(ByVal iCmd As String, Optional ByVal iAction As sqlActions = saAutomatic) As SQLScript</code> | ||
| ==== Wichtigste Methoden ==== | ==== Wichtigste Methoden ==== | ||
| Line 202: | Line 215: | ||
| ' */ | ' */ | ||
| Public Sub readText(ByVal iScriptText As String)</code> | Public Sub readText(ByVal iScriptText As String)</code> | ||
| - | |||
| - | === instanceSubScript()=== | ||
| - | >Statement | ||
| - | <code>script = SQLScript.instanceSubScript(command [,action])</code> | ||
| - | Erstellt eine Instance für ein einzelnes Script aus einem SQL-Statement heraus. | ||
| - | \\ Siehe Beispiel [[#Ein einsames Script erstellen und ausführen]] | ||
| - | <code vb>'/** | ||
| - | ' * Erstellt eine Instanze eines neuen Subscriptes | ||
| - | ' * @param String SQL-String | ||
| - | ' * @param sqlActions Art des Scriptes. Bei -1 wird die Action ermittelt | ||
| - | ' * @retrun SQLScript | ||
| - | ' */ | ||
| - | Public Static Function instanceSubScript(ByVal iCmd As String, Optional ByVal iAction As sqlActions = saAutomatic) As SQLScript</code> | ||
| ==== Wichtigste Properties ==== | ==== Wichtigste Properties ==== | ||
| Line 334: | Line 334: | ||
| Und heir die Umsetzung für ein kleinen Test: | Und heir die Umsetzung für ein kleinen Test: | ||
| - | <code vb> Dim script As SQLScript | + | <code vb>Sub testSqlScript() |
| + | Dim script As SQLScript | ||
| | | ||
| Dim txt(5) As String | Dim txt(5) As String | ||
| Line 344: | Line 345: | ||
| txt(5) = " 4, JKL , , " | txt(5) = " 4, JKL , , " | ||
| | | ||
| - | Set script = SQLScript.instanceByTableText(Join(txt, vbCrLf), "TBL_TEST") | + | Set script = SQLScript.instanceByTableText(Join(txt, vbCrLf), "TBL_TEST", , tdDropTable + tdSuppressDashLines) |
| - | Debug.Print script.script</code> | + | Debug.Print script.script |
| - | <code sql>CREATE TABLE [TBL_TEST] ([ID] BYTE,[ITEM_NAME] TEXT(3),[ITEM_VALUE] TEXT(5),[CREATE_DATE] DATE) | + | script.execute spIgnore |
| - | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (1,'ABC',123,#01-01-1967 00:00:00#) | + | Debug.Print script.logText |
| - | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (2,'DEF',346.3,#12-11-2010 00:00:00#) | + | End Sub</code> |
| - | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (3,'GHI',10098,#11-17-2016 00:00:00#) | + | <code sql>DROP TABLE [TBL_TEST]; |
| - | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (4,'JKL',NULL,NULL)</code> | + | CREATE TABLE [TBL_TEST] ([ID] BYTE,[ITEM_NAME] TEXT(3),[ITEM_VALUE] DOUBLE,[CREATE_DATE] DATE); |
| + | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (1,'ABC',123,#01-01-1967 00:00:00#); | ||
| + | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (2,'DEF',346.3,#12-11-2010 00:00:00#); | ||
| + | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (3,'GHI',10098,#11-17-2016 00:00:00#); | ||
| + | INSERT INTO [TBL_TEST] ([ID],[ITEM_NAME],[ITEM_VALUE],[CREATE_DATE]) VALUES (4,'JKL',NULL,NULL); | ||
| + | Table droped | ||
| + | |||
| + | Table created | ||
| + | |||
| + | Insert rows | ||
| + | |||
| + | Insert rows | ||
| + | |||
| + | Insert rows | ||
| + | |||
| + | Insert rows</code> | ||
| ==== Script Beispiele ==== | ==== Script Beispiele ==== | ||
vba/access/classes/sqlscript.txt · Last modified: 04.09.2019 11:45:59 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
