Android Question Connect to msslql server - sql.bsite.net\mssql2016

fasilosman · Jan 22, 2024

Hi

I have created a MSSql database in https://freeasphosting.net website
It provided my a mssql database as follows

Server Name: sql.bsite.net\MSSQL2016
SQL database: SampleDB
SQL Username: dbuser
SQL password: xxxxxxx

The examples in the forum helped me in connecting other mssql database. But the above saver name with "\" does not recognized as server.
I can connect with slq server management studio.
Any ideas to overcome this issue

aeric · Jan 22, 2024

Are you referring to jRDC2 server?

fasilosman · Jan 22, 2024

aeric said:
Are you referring to jRDC2 server?

Using JDBC connection

B4X:

net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver

aeric · Jan 22, 2024

Instead of backward slash, have you tried forward slash?

fasilosman · Jan 22, 2024

aeric said:
Instead of backward slash, have you tried forward slash?

Yes I tried. But it didn't work.
If you can pls try it with following credentials

Server Name: sql.bsite.net\MSSQL2016
SQL Database name: phazilosman_SampleDB
SQL Username: phazilosman_SampleDB
SQL Password: 123456

aeric · Jan 22, 2024

Here is my code:

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private SQL1 As JdbcSQL
End Sub

Public Sub Initialize

End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    SQL1.Initialize2("net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://sql.bsite.net;databaseName=phazilosman_SampleDB;instance=MSSQL2016;integratedSecurity=true", "phazilosman_SampleDB", "123456")
End Sub

Private Sub Button1_Click
    Dim strSQL As String = $"SELECT TOP 10 * FROM People"$
    Dim RS As JdbcResultSet = SQL1.ExecQuery(strSQL)
    Do While RS.NextRow
        Log(RS.GetString2(0))
    Loop
    RS.Close
End Sub

fasilosman · Jan 22, 2024

Thank a lot I will check and update

fasilosman · Jan 22, 2024

aeric said:

Here is my code:

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private SQL1 As JdbcSQL
End Sub

Public Sub Initialize

End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    SQL1.Initialize2("net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://sql.bsite.net;databaseName=phazilosman_SampleDB;instance=MSSQL2016;integratedSecurity=true", "phazilosman_SampleDB", "123456")
End Sub

Private Sub Button1_Click
    Dim strSQL As String = $"SELECT TOP 10 * FROM People"$
    Dim RS As JdbcResultSet = SQL1.ExecQuery(strSQL)
    Do While RS.NextRow
        Log(RS.GetString2(0))
    Loop
    RS.Close
End Sub

I tried. But it is not responding anything.

Can you please upload a sample project file.

aeric · Jan 22, 2024

fasilosman said:
I tried. But it is not responding anything.

Can you please upload a sample project file.

Did you try clicking the button?
Just don't forget to add the additionaljars.

fasilosman · Jan 22, 2024

I changed the code as follows

B4X:

        sql1.InitializeAsync("sql1","net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://sql.bsite.net;databaseName=phazilosman_SampleDB;instance=MSSQL2016;integratedSecurity=true", "phazilosman_SampleDB", "123456")

Now its working fine.
Thanks for the support

aeric · Jan 22, 2024

fasilosman said:
I changed the code as follows

B4X:

sql1.InitializeAsync("sql1","net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://sql.bsite.net;databaseName=phazilosman_SampleDB;instance=MSSQL2016;integratedSecurity=true", "phazilosman_SampleDB", "123456")

Now its working fine.
Thanks for the support

You are right. I tested only in Debug mode. In Release mode, it will fail using Initialize2. We need to use Async methods.

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private SQL1 As JdbcSQL
End Sub

Public Sub Initialize

End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    SQL1.InitializeAsync("sql1", "net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://sql.bsite.net;databaseName=phazilosman_SampleDB;instance=MSSQL2016;integratedSecurity=true", "phazilosman_SampleDB", "123456")
    Wait For sql1_Ready (Success As Boolean)
    If Success Then
        Log("Connected")
        ToastMessageShow("Connected", False)
    Else
        Log(LastException)
    End If
End Sub

Private Sub Button1_Click
    Dim strSQL As String = $"SELECT TOP 10 [First Name], [Last Name], [Department] FROM [People]"$
    Dim SenderFilter As Object = SQL1.ExecQueryAsync("SQL1", strSQL, Null)
    Wait For (SenderFilter) SQL1_QueryComplete (Success As Boolean, RS As JdbcResultSet)
    If Success Then
        Dim Columns As String
        For i = 0 To RS.ColumnCount - 1
            Columns = Columns & IIf(i > 0, " | ", "") & RS.GetColumnName(i)
        Next
        Log(Columns)
        Do While RS.NextRow
            Log($"${RS.GetString2(0)} | ${RS.GetString2(1)} | ${RS.GetString2(2)}"$)
        Loop
        RS.Close
    Else
        Log(LastException)
    End If
End Sub

Android Question Connect to msslql server - sql.bsite.net\mssql2016

fasilosman

Active Member

aeric

Expert

fasilosman

Active Member

aeric

Expert

fasilosman

Active Member

aeric

Expert

fasilosman

Active Member

fasilosman

Active Member

aeric

Expert

fasilosman

Active Member

aeric

Expert

Attachments

Similar Threads

Android Question Connect to msslql server - sql.bsite.net\mssql2016

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Active Member

Expert

Active Member

Expert

Attachments

Similar Threads

Privacy & Transparency

Privacy & Transparency