Allow connect on warnings

JoshDavid · JoshDavid · commit 2aa3eb6e8083 · 2021-12-11T16:12:49.000-05:00
diff --git a/APLSource/DB/Connect.aplf b/APLSource/DB/Connect.aplf
@@ -3,10 +3,9 @@
  ⍝ ⍺ ←→ config obj
      c t←⍺
      status←⊃##.SQA.Describe ⍵
-     isConnected←status≠1
-     isConnected:status
+     IsSuccesful status:status
      p←c ##.Config.GetConnectionParameters ⍵
      status←##.SQA.Connect p
-     0≠⊃status:DisplayOdbcError status
+     ~IsSuccesful status:DisplayOdbcError status
      t ##.GUI.AddConnectionTab ⍵
  }
diff --git a/APLSource/DB/IsSuccesful.aplf b/APLSource/DB/IsSuccesful.aplf
@@ -0,0 +1,5 @@
+ IsSuccesful←{
+⍝ ⍵ ←→ status number
+⍝ Treat non-fatal warnings (¯1) as a success
+     ⍵<1
+ }
diff --git a/APLSource/DB/RunQuery.aplf b/APLSource/DB/RunQuery.aplf
@@ -4,11 +4,9 @@
      query←⊃{⍺,' ',⍵}/(session.edit.Text)
      headers←ExtractHeaders query
      r←##.SQA.Do CurrentConnection query
-     dbError←0≠⊃r
-     dbError:DisplayOdbcError r
-     table←⊃3⊃r
-     grid←session.##.##.output.grid ⍝ REVISIT, create ParentForm fn
+     ~IsSuccesful⊃r:DisplayOdbcError r
+     grid←(##.GUI.GetParentForm session).output.grid
      grid.ColTitles←headers
-     grid.Values←table
+     grid.Values←⊃3⊃r
      ##.GUI.AutoSizeCols grid
  }
