B4J Code Snippet jtds jdbc driver with standalone package

1. Download the attached zip. Put the jar file in the additional libraries folder and Charsets.properties in your project folder.
2. jtds-1.3.1-a.jar replaces jtds-1.3.1.jar.

#AdditionalJar: jtds-1.3.1-a
#CustomBuildAction: After Packager, %WINDIR%\System32\robocopy.exe, ..\ temp\build\bin\ Charsets.properties

Full example:

#AdditionalJar: jtds-1.3.1-a
#CustomBuildAction: After Packager, %WINDIR%\System32\robocopy.exe, ..\ temp\build\bin\ Charsets.properties
Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    Dim sql As SQL
    sql.Initialize("net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://localhost:1433/test;instance=SQLEXPRESS;?user=test&password=test")
    For i = 1 To 10
        sql.AddNonQueryToBatch("INSERT INTO table1 VALUES(?, ?)", Array(i.As(String), i))
    Next
    Dim SenderFilter As Object = sql.ExecNonQueryBatch("SQL")
    Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
    Log("NonQuery: " & Success)
End Sub

If you get an error such as: "SSO Failed: Native SSPI library not loaded" then you should download the package: https://sourceforge.net/projects/jtds/files/latest/download
Copy x64\sso\ntlmauth.dll to Windows\System32.

 

[Johan Schoeman]

1. Download the attached zip. Put the jar file in the additional libraries folder and Charsets.properties in your project folder.
2. jtds-1.3.1-a.jar replaces jtds-1.3.1.jar.

#AdditionalJar: jtds-1.3.1-a
#CustomBuildAction: After Packager, %WINDIR%\System32\robocopy.exe, ..\ temp\build\bin\ Charsets.properties

Full example:

#AdditionalJar: jtds-1.3.1-a
#CustomBuildAction: After Packager, %WINDIR%\System32\robocopy.exe, ..\ temp\build\bin\ Charsets.properties
Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    Dim sql As SQL
    sql.Initialize("net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://localhost:1433/test;instance=SQLEXPRESS;?user=test&password=test")
    For i = 1 To 10
        sql.AddNonQueryToBatch("INSERT INTO table1 VALUES(?, ?)", Array(i.As(String), i))
    Next
    Dim SenderFilter As Object = sql.ExecNonQueryBatch("SQL")
    Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
    Log("NonQuery: " & Success)
End Sub

If you get an error such as: "SSO Failed: Native SSPI library not loaded" then you should download the package: https://sourceforge.net/projects/jtds/files/latest/download
Copy x64\sso\ntlmauth.dll to Windows\System32.

What can I say......picture perfect! Thanks Erel - it is working 100%

 

[Erel]

BTW, why do you prefer jtds over Microsoft JDBC driver?

 

[Johan Schoeman]

BTW, why do you prefer jtds over Microsoft JDBC driver?

Erel, in all honesty - just because I am a dummy at networking and I knew you would find a solution. I am now also using jtds on my mobile device to connect to the MSSQL server and can query and assemble some nice reports - needed to connect to the server making use of Forticlient that I installed on my mobile. Thanks for your kind assistance - much appreciated.

Rgds

JS

 

[Johan Schoeman]

And just by the way - did you amend code in original jtds and compiled it to 1.3.1-a?

 

[Johan Schoeman]

For mobile I got it to work with 1 2.27 (as far as what I can recall) - 1.3.1 gave errors on mobile.

 

[Erel]

And just by the way - did you amend code in original jtds and compiled it to 1.3.1-a?

Yes, a small change related to the way the Charsets.properties file is loaded.