Android Code Snippet SQL Server with no-ip

Good morning everyone,
I would like to thank you for the library, it helped me a lot.
I don't know if anyone has done this but I managed to adapt it on my system to access SQL SERVER remotely.
Using no-ip and dynamic port ...
I know the use of dynamic Port has already been explained, but maybe it will help someone.

#AdditionalJar: jtds-1.3.1.jar

Sub Process_Globals
    Public msSQLDADOS As JdbcSQL
    Private MSLocation As String
    Private MSUsername As String
    Private MSPassword As String
    Private MSPort As String
    Private lbMyConexion as Label
End Sub

Sub Globals
    Private driver As String = "net.sourceforge.jtds.jdbc.Driver"
    Private bdDADOS As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    MSLocation = "test.ddns.net"
    MSUsername = "sa"
    MSPassword = "******"
    MSPort = "51434"

    ProgressDialogShow("Conectando ao Banco de Dados")
        bdDADOS = "jdbc:jtds:sqlserver://" & MSLocation & ":" & MSPort & "/DADOS"
        msSQLDADOS.InitializeAsync("msSQLDADOS", driver, bdDADOS, MSUsername, MSPassword)
    ProgressDialogHide
End Sub

Sub LoadVendedor
    ProgressDialogShow("Loading...")
        Dim sf As Object = msSQLDADOS.ExecQueryAsync("msSQLDADOS", "SELECT * FROM Vendedores", Null)
        Wait For (sf) msSQLDADOS_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
        If Success = True Then
            Do While Crsr.NextRow
                lbNomeVendedor.Text = Crsr.GetString("Nome do Vendedor")
            Loop
        End If
    ProgressDialogHide
End Sub

Sub msSQLDADOS_Ready (Success As Boolean)
    If Success = False Then
        ToastMessageShow("Error connecting to " & bdDADOS, True)
        Log(LastException)
        Return
    End If
    lbMyConexion.Text = MSLocation & ":" & MSPort

    ProgressDialogHide
End Sub

Espero que ajude...

 

[Star-Dust]

Good morning everyone,
I would like to thank you for the library, it helped me a lot.
I don't know if anyone has done this but I managed to adapt it on my system to access SQL SERVER remotely.
Using no-ip and dynamic port ...
I know the use of dynamic Port has already been explained, but maybe it will help someone.

#AdditionalJar: jtds-1.3.1.jar

Sub Process_Globals
    Public msSQLDADOS As JdbcSQL
    Private MSLocation As String
    Private MSUsername As String
    Private MSPassword As String
    Private MSPort As String
    Private lbMyConexion as Label
End Sub

Sub Globals
    Private driver As String = "net.sourceforge.jtds.jdbc.Driver"
    Private bdDADOS As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    MSLocation = "test.ddns.net"
    MSUsername = "sa"
    MSPassword = "******"
    MSPort = "51434"

    ProgressDialogShow("Conectando ao Banco de Dados")
        bdDADOS = "jdbc:jtds:sqlserver://" & MSLocation & ":" & MSPort & "/DADOS"
        msSQLDADOS.InitializeAsync("msSQLDADOS", driver, bdDADOS, MSUsername, MSPassword)
    ProgressDialogHide
End Sub

Sub LoadVendedor
    ProgressDialogShow("Loading...")
        Dim sf As Object = msSQLDADOS.ExecQueryAsync("msSQLDADOS", "SELECT * FROM Vendedores", Null)
        Wait For (sf) msSQLDADOS_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
        If Success = True Then
            Do While Crsr.NextRow
                lbNomeVendedor.Text = Crsr.GetString("Nome do Vendedor")
            Loop
        End If
    ProgressDialogHide
End Sub

Sub msSQLDADOS_Ready (Success As Boolean)
    If Success = False Then
        ToastMessageShow("Error connecting to " & bdDADOS, True)
        Log(LastException)
        Return
    End If
    lbMyConexion.Text = MSLocation & ":" & MSPort

    ProgressDialogHide
End Sub

Espero que ajude...

Great job thanks. See also the @Peter Simpson code.

✅ JDBCSQL Connector/J - Connect directly to MySQL, MSSQL, PostgreSQL, MariaDB and Oracle databases

Hello fellow B4X'ers, Here is some example code for connecting your B4J projects to 5 different types of database engines, this tutorial is for learning purposes only and nothing else. Disclaimer: This code with some minor changes may also work in B4A. MySQL and MSSQL connectors definitely do...

www.b4x.com