Skip to content

C
core
Kaydet (Commit) 9e634331 authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure
Dosyalara gözat
Seçenekler

Access2Base - Improve precision of query typing 

Change-Id: I6c5246809cb533a2c69978008ea996392e2fbe6a
üst e2a1e222
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
wizards/source/access2base/DataDef.xba
Dosyayı görüntüle @ 9e634331
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment