This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
vba:access:classes:sqlscript [24.10.2016 11:40:22] yaslaw |
vba:access:classes:sqlscript [04.09.2019 11:45:59] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
<const> | <const> | ||
- | version=1.5.0 | + | version=1.5.4 |
- | vdate=21.06.2016 | + | vdate=04.09.2019 |
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 ==== |