fix JuliaDatabases#360 (JuliaDatabases#361)

mahiki · Feb 3, 2023 · 27e02ab · 27e02ab
1 parent 6183a62
commit 27e02ab
Showing 1 changed file with 15 additions and 3 deletions.
diff --git a/src/API.jl b/src/API.jl
@@ -63,23 +63,35 @@ macro odbc(func,args,vals...)
         ret = SQL_SUCCESS
         @static if Sys.iswindows() # odbc_dm[] == odbc32
             # This branch is guarded by `@static` to avoid issues on Apple Silicon
+            counter = -100
             while true
                 ret = ccall( ($func, "odbc32"), stdcall, SQLRETURN, $args, $(vals...))
                 ret == SQL_STILL_EXECUTING || break
-                sleep(0.001)
+                if counter > 0 
+                    sleep(0.000_001*counter)
+                end
+                counter = 1.2*(1 + counter)
             end
         else
             if odbc_dm[] == iODBC
+                counter = -100
                 while true
                     ret = ccall( ($func, iODBC_jll.libiodbc), SQLRETURN, $(swapsqlwchar(args)), $(vals...))
                     ret == SQL_STILL_EXECUTING || break
-                    sleep(0.001)
+                    if counter > 0 
+                        sleep(0.000_001*counter)
+                    end
+                    counter = 1.2*(1 + counter)
                 end
             elseif odbc_dm[] == unixODBC
+                counter = -100
                 while true
                     ret = ccall( ($func, unixODBC_jll.libodbc), SQLRETURN, $args, $(vals...))
                     ret == SQL_STILL_EXECUTING || break
-                    sleep(0.001)
+                    if counter > 0 
+                        sleep(0.000_001*counter)
+                    end
+                    counter = 1.2*(1 + counter)
                 end
             end
         end