1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Dim vReq As String = "SELECT NOM,ADRESSE,TELEPHONE,SITE_INTERNET,ADRESSE_E_MAIL,TELEFAX,TVA,denomination,SAUT,Lat,Lon,moduleID FROM ENTREPRISES,T_activite,ESSAI1 WHERE UPPER(ENTREPRISES.NOM) LIKE UPPER('" & recuperationcom & "%') AND ESSAI1.KeyID LIKE (" & 24 & ") AND ENTREPRISES.id_activite=T_activite.id_activite AND (ENTREPRISES.Lat) <> 0 AND (ENTREPRISES.Lon) <> 0;"
Dim comm2 As SqlCommand
comm2 = New SqlCommand
comm2.Connection = conn2
comm2.CommandText = vReq
Dim lecteur As SqlDataReader
lecteur = comm2.ExecuteReader()
While (lecteur.Read())
If (IsDBNull(lecteur("ADRESSE"))) Then
Label1.Text = " "
Else
Label1.Text = lecteur("ADRESSE")
End If
If (IsDBNull(lecteur("NOM"))) Then
Label2.Text = " "
Else
Label2.Text = lecteur("NOM")
End If
... |
Partager