ricerca record nome e cognome casella combinata mysql

[joe1955@inwind.it]

Ho la necessità di utilizzare in rete il database precedentemente costruito pertanto l'ho installato su server PHP myadmin, tutto funziona perfettamente tranne la ricerca del record.
qualcuno mi può aiutare?

[charlie]

Ciao dovresti dire come effettui la ricerca, non ti pare?

[joe1955@inwind.it]

La ricerca la faccio tramite una casella combinata collegata ad una macro della quale ti invio il form.

Codice: Seleziona tutto

SUB trova(oEv)
dim oModel as object
dim oForm as object
dim ctlCognome as object
dim ctlNome as object
dim sCognome as string
dim sNome as string

oModel = oEv.Source.Model
oForm=oModel.Parent
ctlcognome =oForm.GetByName("lista_cognomi")

sCognome =ctlcognome.text

'print sCognome
'print sNome

oForm.Filter = " (""anagrafica"".""cognome"" ||' '||""anagrafica"".""nome"") LIKE '%" & sCognome & "%'  AND  (""anagrafica"".""cognome"" ||' '||""anagrafica"".""nome"") LIKE '%" & sNome & "%' "
oForm.reload()
end sub


SUB TogliFiltro()
Dim Doc As Object
Dim DocCrl As Object
Dim Forms As Object
Dim oForm As Object
dim ctlInventario as object
dim ctlEdizione as object

Doc = StarDesktop.CurrentComponent
DocCrl = Doc.getCurrentController()
Forms = Doc.Drawpage.Forms
oForm = Forms.GetbyIndex(0)
ctlInventario = oForm.GetByName("lista_cognomi")
ctlInventario.text = ""
oForm.filter = ""
oForm.reload()
End Sub
sub hideAll()
ThisComponent.CurrentController.Frame.LayoutManager.setVisible(False)
thisComponent.CurrentController.Frame.ContainerWindow.setPosSize(0,0,1920,1080,15)
end sub

Grazie per l'aiuto.

Giuseppe

[charlie]

Sei invitato a correggere il tuo post sostituendo il testo in maiuscolo e facendo uso della codifica per il codice della macro. Grazie.
viewtopic.php?f=1&t=2#p223

[joe1955@inwind.it]

Mi scuso per l'errore nella scrittura del testo, non sapevo che la scrittura in maiuscolo avesse un significato particolare e,
perdona la mia ignoranza ma non capisco il significato di codifica codice della macro.
Giuseppe

[charlie]

Mi scuso per l'errore ...

Per questo invito tutti i nuovi arrivati a leggere il Manuale di sopravvivenza, ma pochi lo fanno .
Per la "codifica" significa formattare il testo del codice della macro selezionandolo e premendo il tasto Code nella barra degli strumenti .

[joe1955@inwind.it]

purtroppo non riesco a formattare il testo in quanto non trovo il tasto code, ti allego la macro salvata con il tasto esporta in basic.

Editato: testo eliminato perchè ripetuto (Admin)

[joe1955@inwind.it]

Purtroppo non riesco a formattare e codificare la macro in quanto le mie conoscenze in merito sono molto limitate, se puoi darmi una dritta te ne sarò grato.
Giuseppe

[charlie]

Ti serve qualcuno che mastichi macro, Mysql e rete. Aspettiiamo per vedere se si fa avanti ...

[joe1955@inwind.it]

Grazie, spero in un aiuto

[Rocky62]

io ho risolto semplicemente con un tasto trova con proprietà impostata "apri pagina web" che mi mostra la stessa marchera di ricerca del binocolo....