|
Uděláte si funkci, která se připojí k databázi a vrátí pžadovanou hodnotu, například takovouto:
Private Function ZiskejHodnotu() As String
Dim d As New SqlDataAdapter("SELECT neco FROM nekde WHERE neco = 'neco'", "váš connectionstring")
Dim ds As New DataSet()
d.Fill(ds)
If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0)(0) Else Return ""
End Function
|