Datalist Control in VB 6

[WildWester]

Paidia gia alli mia fora xreiazomai ta fota sas (kai tous provoleis sas! <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" /> )

 

katarxin kalo xeimwna se osous girisan apo tis diakopes tous kai kales diakopes se osous tha pane!

 

loipon exoume ena DataList kai ena textbox...otan pliktrologo ena gramma(px 'T') sto textbox thelo to datalist na pigainei kai na mou epilegei to proto record pou ksekinaei apo auto to gramma...otan patiso kai deutero gramma(px 'h') tote na epileksei tin leksi(i pio sosta record) pou ksekina me px me Th... kai paei legontas...(kati paromoio me to help twn windows)

 

auto itan sxetika aplo me to aplo listbox...alla edo ti ginetai?

 

mesa apo tin msdn vrika kapoia pragmata gia ta properties 'MatchEntry' kai 'MatchedWithList' alla den polikatalava kai polla pragmata gia to pos tha mporeso na epilekso ena stoixeio tis listas...

 

edo (tapeina) zitaw tin voitheia sas... <img border="0" title="" alt="[Roll Eyes]" src="images/icons/rolleyes.gif" />

 

euxaristo ek twn proterwn! <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

[kkal]

AUTO EINAI FILE MOU AUTO POU ZHTAS TORA ESU STHN MNHMH MPOREIS NA BALEIS OTI TELEIS...!

XRIAZETE NA BALEIS ENA TEXTBOX KAI MIA LIST

Dim mnhmh(3) As String

Private Sub Form_Load()

mnhmh(0) = "kostas"

mnhmh(1) = "konstantina"

mnhmh(2) = "kostakis"

mnhmh(3) = "akis"

End Sub

Private Sub Text1_Change()

List1.Clear

For i = 0 To 3

If Len(Text1.Text) > Len(mnhmh(i)) Then

If mnhmh(i) = Mid$(Text1.Text, 1, Len(mnhmh(i))) Then List1.AddItem mnhmh(i)

Else

If Text1.Text = Mid$(mnhmh(i), 1, Len(Text1.Text)) Then List1.AddItem mnhmh(i)

End If

Next i

End Sub

[WildWester]

file kkal se euxaristo gia to xrono sou alla distixows den einai auto pou zitousa...auto pou les ginetai an to listbox einai ena aplo listbox...ego thelo na to kano auto se ena datalist control...

kai pali se euxaristo kai an gnorizeis kati parapano min distaseis <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" /> (to idio isxuei kai gia tous ipoloipous!)

<img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

[bandito]

Μπορείς να χρησιμοποιήσεις την 'like' της SQL. Δηλαδή όταν πατάει κάποιος π.χ το Τ, τότε θα κάνεις query στην βάση ώς εξής:

 

"select record_name from table_name where record_name like 'T%'"

 

ενα update και θα έχεις στο record source τις τιμές που θέλεις.

[WildWester]

dokimasa kai auto bandito alla distixws den petixe kai den mporw na katalavo giati...den edeixne kanena apolitws stoixeio sto datalist...

 

na ti ekana:

 

private sub namefind_change()

 

dim rs1 as new adodb.recordset

dim ssql as string

 

ssql = "Select NameID, Name From Name Where Name Like '" & cstr(namefind.text) & "*'"

 

rs1.open ssql,cn

 

set datalist.rowsource = rs1

set datalist.datasource = rs1

datalist.listfield = "Name"

datalist.boundcoloumn = "NameID"

datalist.datafield = "NameID"

 

rs1.close

set rs1=nothing

 

opou cn ena adodb.connection pros mia vasi dedomenwn tis access 2000...

 

auta ekana kai sto datalist den mou emfanize tipota...

any ideas?

euxaristo kai pali <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

[bandito]

ssql = "Select NameID, Name From Name Where Name Like '" & cstr(namefind.text) & " % '"

 

Για δοκίμασε αυτό. Στην sql το * είναι %.

O υπόλοιπος κώδικας μου φαίνεται σωστός.

 

<small>[ 14-08-2002, 15:44: Το μήνυμα επεξεργάστηκε από: bandito ]</small>

[WildWester]

file bandito exeis apolito dikio!

o kodikas leitourgei mia xara tora <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" /> <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

se euxaristo poli! <img border="0" title="" alt="[Wink]" src="images/icons/wink.gif" />

[bandito]

Τίποτα.

Καλό development <img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" /> <img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" /> <img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" />