diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-12-28 12:29:26 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-01-12 11:40:49 +0100 |
| commit | 9e634331a760bbca807741674d03f4c593915dd6 (patch) | |
| tree | 61a602d67ca512c02004774cbd531b186618eca7 /wizards | |
| parent | e2a1e22288a4fbe0681a8e33d25816f80799e687 (diff) | |
Access2Base - Improve precision of query typing
Change-Id: I6c5246809cb533a2c69978008ea996392e2fbe6a
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DataDef.xba | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba index 0b8705555d43..bba8e8517d0d 100644 --- a/wizards/source/access2base/DataDef.xba +++ b/wizards/source/access2base/DataDef.xba @@ -490,10 +490,12 @@ Dim sSql As String, sVerb As String, iType As Integer _PropertyGet = Query.Command Case UCase("Type") iType = 0 - sSql = Trim(UCase(Query.Command)) + sSql = Utils._Trim(UCase(Query.Command)) sVerb = Split(sSql, " ")(0) If sVerb = "SELECT" Then iType = iType + dbQSelect - If sVerb = "SELECT" And InStr(sSql, " INTO ") > 0 Then iType = iType + dbQMakeTable + If sVerb = "SELECT" And InStr(sSql, " INTO ") > 0 _ + Or sVerb = "CREATE" And InStr(sSql, " TABLE ") > 0 _ + Then iType = iType + dbQMakeTable If sVerb = "SELECT" And InStr(sSql, " UNION ") > 0 Then iType = iType + dbQSetOperation If Not Query.EscapeProcessing Then iType = iType + dbQSQLPassThrough If sVerb = "INSERT" Then iType = iType + dbQAppend |