Android Question MSSQL Query

[DataProtec]

Hello
After days Reading ALL Threads of the Forum and checking the Internet finaly i can connect to a MSSQL DB
But it is imposible to make a query and get a Result back
my code

#AdditionalJar: mysql-connector-java-5.1.34-bin.jar

Sub Process_Globals
    Public msSQL As JdbcSQL
    Private driver As String = "net.sourceforge.jtds.jdbc.Driver"
    Private jdbcUrl As String = "jdbc:jtds:sqlserver://192.168.5.21:1433/DB_Datas"
    Private Username As String = "user"
    Private Password As String = "1234"
end sub


Sub cmdConnect_Click

msSQL.InitializeAsync("msSQL", driver, jdbcUrl, Username, Password)
Wait For msSQL_Ready (Success As Boolean)
    If Success = True Then
        Log("Connected")         '***Get the message is connected
    End If
    
    Log(msSQL.IsInitialized)   '****get the message is Initialized
    
        '***** here i do NOT get any Error
    Dim sf As Object = msSQL.ExecQuery("SELECT UserID, Name FROM UserInfo_Table WHERE UserID = '5'")
    
    '***** But here it stucks and NO way to make it running, no Error Msg
    Wait For (sf) msSQL_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
    If Success Then
        Do While Crsr.NextRow
            Log($"Name: ${Crsr.GetInt("Name")}"$)
        Loop
        Crsr.Close
    End If
end sub

Please can you provide the proper code, is NOT to make my job, i usesd all i could do
Please give me a help, searching the Forum or the Internet is done more then a few times.
With C, C#, VB, Delphi no problem, but V4A not working and i have no idea what i can do
thanks
Uli - Dataprotec

 

[DonManfred]

finaly i can connect to a MSSQL DB

You want to connect to a MS SQL Server but you are using a MySQL connector?

#AdditionalJar: mysql-connector-java-5.1.34-bin.jar

maybe this post helps
https://www.b4x.com/android/forum/posts/573443

 

[emexes]

I am no SQL expert, but what I did spot is that in this tutorial here:

https://www.b4x.com/android/forum/threads/b4x-sql-with-wait-for.79532/

the sample query code is using ExecQueryAsync whereas your code uses ExecQuery, which presumably does not generate a QueryComplete event:

Dim SenderFilter As Object = sql.ExecQueryAsync("SQL", "SELECT * FROM table1", Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
    If Success Then

 

[DataProtec]

I did what was recommended but won't work

I added #AdditionalJar: jtds-1.3.1.jar but if i upload to the device i get thousends of error Mgs, but the file is in the Libary Folder

'*** This have no error
Dim sf As Object = msSQL.ExecQueryAsync("msSQL", "SELECT UserID, Name FROM UserInfo_Table WHERE UserID = '5'", Null)

'*** but this is red underlined ad say "Unknown Type" why
Wait For (sf) msSQL_ExecQueryAsync(Success As Boolean, rs As ResultSet)

'*** I have to use instead only msSQL_QueryComplete and not msSQL.ExecQueryAsync
Wait For (sf) msSQL_QueryCompleteAsync (Success As Boolean, Crsr As JdbcResultSet)
If Success Then
        Do While Crsr.NextRow
              Log($"Name: ${Crsr.GetInt("Name")}"$)  '*** but don't get nothing
      Loop
Crsr.Close

End If

 

[DonManfred]

but if i upload to the device i get thousends of error Mgs

It does not help if you just hide the full errors from us. Create a new thread for any issue you have, post the full error and best upload a small project which shows the issue.

 

[emexes]

I did what was recommended but won't work

Is this the actual code you ran?

'*** I have to use instead only msSQL_QueryComplete and not msSQL.ExecQueryAsync
Wait For (sf) msSQL_QueryCompleteAsync (Success As Boolean, Crsr As JdbcResultSet)
If Success Then

What's with the QueryCompleteAsync?

It's like you took a good idea and ran with it ... too far

 

[DataProtec]

i don't hide any errors, the one with #AdditionalJar: jtds-1.3.1.jar is gone, i restarted the B4A now have without errors
What i'm doing wrong ????
Why this want give me a Result, where is the mistake

i changed

'****here the full code again
#AdditionalJar: jtds-1.3.1.jar

Sub Process_Globals
    Public msSQL As JdbcSQL
    Private driver As String = "net.sourceforge.jtds.jdbc.Driver"
    Private jdbcUrl As String = "jdbc:jtds:sqlserver://192.168.5.215:1433/DB_Garbaman"
    Private Username As String = "sa"
    Private Password As String = "@Xmallahi"
End Sub

    '*** Works without any Error, but no Result ***
Sub cmdConnect_Click
    msSQL.Close
    msSQL.InitializeAsync("msSQL", driver, jdbcUrl, Username, Password)
    
        Dim sf As Object = msSQL.ExecQueryAsync("msSQL", "SELECT UserID, Name FROM UserInfo_Table WHERE UserID = '5'", Null)
        Wait For (sf) msSQL_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
        
    If Success Then
        Do While Crsr.NextRow
            Log($"Name: ${Crsr.GetInt("Name")}"$)
        Loop
        Crsr.Close
    End If
End sub

 

[emexes]

i changed

'*** Works without any Error, but no Result ***
Sub cmdConnect_Click
    msSQL.Close
    msSQL.InitializeAsync("msSQL", driver, jdbcUrl, Username, Password)
   
        Dim sf As Object = msSQL.ExecQueryAsync("msSQL", "SELECT UserID, Name FROM UserInfo_Table WHERE UserID = '5'", Null)
        Wait For (sf) msSQL_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)

What happened to waiting/checking the msSQL_Ready "return" status from the msSQL.InitializeAsync call??? eg from post #1

msSQL.InitializeAsync("msSQL", driver, jdbcUrl, Username, Password)
Wait For msSQL_Ready (Success As Boolean)
    If Success = True Then
        Log("Connected")         '***Get the message is connected
    End If

I think this might be another case of one-step-forward-one-step-back. Then again, we've all done stuff like this when under pressure ;-)

 

[DataProtec]

ok copy to a new thread :-(

 

[OliverA]

What i'm doing wrong ????

If you get no errors, then

Dim sf As Object = msSQL.ExecQueryAsync("msSQL", "SELECT UserID, Name FROM UserInfo_Table WHERE UserID = '5'", Null)
Wait For (sf) msSQL_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)

Just happens to return with an empty result set! To verify, change

    If Success Then
        Do While Crsr.NextRow
            Log($"Name: ${Crsr.GetInt("Name")}"$)
        Loop
        Crsr.Close
    End If

to

    If Success Then
        Dim count as int = 0
        Do While Crsr.NextRow
            Log($"Name: ${Crsr.GetInt("Name")}"$)
            count = count + 1
        Loop
        If count = 0 Then Log("Nothing was returned!!!!")
        Crsr.Close
    End If

Update: I finger fudged something and posted this before completing my code!!! Make sure you see this update, and the code should be all there (untested, but pretty sure it works)

 

[OliverA]

Oh yeah, you also should read my mini-rant on this whole B4a and MSSQL subject: https://www.b4x.com/android/forum/threads/mssql-jdbc-minimalistic-example.90548/#post-659321. It's really prevalent to this situation (since it's pretty much the same situation that evoked the rant to begin with).

With C, C#, VB, Delphi no problem, but V4A not working and i have no idea what i can do
thanks

You cannot compare Android to a Desktop environment and the tools that are available on a Desktop environment, so the comparison is bunk. Just saying.

 

[DonManfred]

@OliverA
The TO did created an new Thread about this issue. This time the issue is solved.