Vb6 !

[Pytzamarama]

eho ena listbox(a) to opoio to gemizo me strings(apo ena allo list box( xrisimopoiontas ena button gia tin eisagogi tou string sto listbox(a) kai ena allo gia na afero apo to listbox(a) opoio string thelo).Thelo opoia string afino sto listbox(a) na grafontai se ena table tis access.

[onLINEr]

tha paixeis me recordsets meso Visual Basic<P>des <A HREF="http://www.insomnia.gr/cpubb/Forum8/HTML/000193.html" TARGET=_blank>edo</A> na pareis mia idea

[apoc]

mesa sto form sou rikse ena datacontrol<BR>me thn access fiakse mia database pou na exei ena pinaka(table).<BR>o pinakas as exei ena mono field onomase to opws thes kai prosexe na einai string to type tou...<BR>sthn sinexeia phgaine sta option tou datacontrol kai kane to referenced sto sigkekrimeno database kai table.<P>sto command button pou exeis gia na metafereis ta strings prosthese kai antistoixo kwdika opws parakatw<P>estw data1 exeis onomasei to datacontrol<BR>kai dbString to field tou pinaka<P><BR>data1.Recordset.AddNew<BR>data1.Recordset.Fields("dbString") = <BR>tempstring<BR>data1.Recordset.Update<P>estw oti to tempstring einai mia metavlhth<BR>pou krataei to selected string pou pernas esi apo to ena listbox sto allo..<BR>mporeis na to kaneis kai allios ...dhladh pernwntas katheuthian to selected item apo to list box mesa apo ta properties tou list box.<P>etsi kathe fora pou tha ginetai h metafora tha kanei kai ena new record ston pinaka me to onoma tou string pou pernas<P>elpizw na voithisa<P>Apoc<P>sthn sinexeia sto command pou exeis gia na kaneis thn metafora

[Pytzamarama]

To provlima mu einai to eksis:<BR>Eho ena pinaka me proionta ta opoia mesa sth forma ta emfanizo mesa se ena listbox.O xristis epilegei oti thelei apo to listbox (ena ti fora) kai me ena koympi ta stelnei se ene deftero listbox.Ama metaniosei gia kapoia eisagogi sto deftero listbox ,to epilegei kai me ena koumpi to diohnei apo to deftero listbo.Otan meinoun mono ta proionta pou ton endiaferoun thelo me ene koumpi na grafontai se ena pinaka.TO provlima einai oti grafo sto kodika tou koumpiou<BR>.....<BR>For g = 0 To List2.ListCount - 1<BR>Data3.Recordset.AddNew<BR>Data3.Recordset.Fields(1) = List2.Text<BR>Data3.Recordset.Update<BR>List2.Refresh<BR>Next<BR>....<BR>kai mu grafei oti to field den mporei na einai zero length.<BR>Fovamai pos me afto to for next pou eho den mporo na prospelaso sosta ta periehomena tu listbox

[subzero]

To problima einai oti den xrisimopoieis mesa sto list box sou kapoio sosto poperty..!!!<BR>To opoio bebaia tha enalasetai analoga me to for next pou exeis..!!!<P>To index property mallon me tin morfi pinaka..!!!Psaksto ligo ...!!!<BR>Den thimamai ti properties pernei to list box..Epeisis yparxei property pou sou ypologizei posa paidia exeis mesa sto list box sou...!!!<BR>Ksekina me auto sto for kai meta kane enalagi me to parapano property..!!!!<P>Autin tin stigmi grafo apo tin Etairia kai den eimai sto PC mou gia na sou doso kodika..!!An thes steile e-mail...!!!!<P><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm21.gif" border=0>

[apoc]

file<P> Data3.Recordset.Fields(1) = List2.Text<P> to field tou pinaka to exeis onomasei 1?<BR>mou fainetai ligo parakseno an to ontws to exeis onomasei 1 tote agnohse to post mou<P>Data3.Recordset.fields("NameOfField") = list2.text<BR>

[Pytzamarama]

paidia i lisi ine:<BR>List2.Refresh<BR>Data3.Refresh<P>For g = 0 To List2.ListCount - 1<BR>List2.ListIndex = g<BR>Data3.Recordset.AddNew<BR>Data3.Recordset.Fields(1) = List2.Text<BR>Data3.Recordset.Update<BR>List2.Refresh<BR>Next<BR>thanx gia ta hints!