[Gambas-user] DataSource
Fabien Bodard
gambas.fr at gmail.com
Mon Nov 23 11:08:14 CET 2020
My question is just about the ability to edit data if I use a filter on the
datasource.
Le lun. 23 nov. 2020 à 09:39, Martin <mbelmonte at belmotek.net> a écrit :
> Hi,
>
> I don't usually use the db.form component but maybe you could use the
> "filter" property to restrict to a single record and then
> Datasource.Filter = DB.Subst ("prenom = & 1", martin)
> If you have a test project to take a look maybe I can think of something
> else.
>
> Anyway this can help too
>
>
> Public Sub Form_Open()
>
> Dim f As ResultField
> Dim res As Result
>
> res = db.Current.Exec("SELECT * FROM tutabla WHERE id='3'")
>
> If res Then
> If res.Fields.Exist("tucampo") Then
> Print res.Fields["tucampo"]
> Endif
> Endif
>
> End
>
> Martin
> On 22/11/20 22:59, Fabien Bodard wrote:
>
> I need help..
>
> I want my datasource reach a given line given one field and not a line
> index... how can I achieve that quickly ... Actually I'm doing it by a
> Force and stupid way.
>
>
> Static Private reference As String
>
> Public Sub Run(Value As String)
>
> reference = Value
> FClientEdit.Showmodal
>
> End
>
> Public Sub Form_Open()
>
> Dim i As Integer
> Dim aGeo As String[]
>
> '----- HERE HOW TO FIND LINE :-/ --------------
> DataSource1.MoveFirst
> For i = 0 To DataSource1.Count - 1
> If DataSource1["reference"] = reference Then Break
> DataSource1.MoveNext
> Next
> '-------------------------------------------
>
> Me.Text = DataSource1["reference"] & " - " & DataSource1["nom"] & "
> " & DataSource1["prenom"]
>
> If Not DataSource1!geo Then
> MapView1.Enabled = False
> Else
> MapView1.Map.AddTile("OpenStreetMap","http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png" <http://%7Bs%7D.tile.openstreetmap.org/%7Bz%7D/%7Bx%7D/%7By%7D.png>, Null).Copyright =
> "© OpenStreetMap " & ("contributors")
> MapView1.Map.Zoom = 12
> MapView1.Map.AddShape("clients")
> aGeo = Split(DataSource1!geo, " ")
> MapView1.Map.Center = MapPoint(aGeo[0], aGeo[1])
> MapView1.Map["clients"].AddPoint(DataSource1!reference,
> MapPoint(aGeo[0], aGeo[1]))
> Endif
>
> End
>
>
>
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20201123/5b7f086e/attachment.htm>
More information about the User
mailing list