Ciao a tutti,
sto muovendo i primi passi in B4A... devo leggere dei dati da un db MS SQL e sto provando la libreria MSSQL.
Sono arrivato a questo risultato che funziona ma mi vergogno molto...
C'è un modo più elegante di leggere i dati?
Grazie in anticipo
Luca
Private Sub btnOK_Click
Dim L As List
Barcode = txtInputBarcode.Text
Dim idprodotto As Int
Dim pn As String
sql = "select idprodotto from commesseciclilavorazione where barcode = '" & Barcode & "'"
L = SQLCONN_GP90.Query(sql)
idprodotto = (l.Get(1))
idprodotto = Regex.Replace("\[",idprodotto,"")
idprodotto = Regex.Replace("\]",idprodotto,"")
sql = "select codice from prodotti where id = " & idprodotto & "
L = SQLCONN_GP90.Query(sql)
pn = (l.Get(1))
pn = Regex.Replace("\[",pn,"")
pn = Regex.Replace("\]",pn,"")
MsgboxAsync (pn,"")
End Sub
sto muovendo i primi passi in B4A... devo leggere dei dati da un db MS SQL e sto provando la libreria MSSQL.
Sono arrivato a questo risultato che funziona ma mi vergogno molto...
C'è un modo più elegante di leggere i dati?
Grazie in anticipo
Luca
Private Sub btnOK_Click
Dim L As List
Barcode = txtInputBarcode.Text
Dim idprodotto As Int
Dim pn As String
sql = "select idprodotto from commesseciclilavorazione where barcode = '" & Barcode & "'"
L = SQLCONN_GP90.Query(sql)
idprodotto = (l.Get(1))
idprodotto = Regex.Replace("\[",idprodotto,"")
idprodotto = Regex.Replace("\]",idprodotto,"")
sql = "select codice from prodotti where id = " & idprodotto & "
L = SQLCONN_GP90.Query(sql)
pn = (l.Get(1))
pn = Regex.Replace("\[",pn,"")
pn = Regex.Replace("\]",pn,"")
MsgboxAsync (pn,"")
End Sub