Now this one is new problem where to start,

This is the scenario, After searching the record it goes the listbox so from the list box u lick ok and that name appear in the listbox wil go to the form field with data

Hi
What have you tried? Which bit do you have a problem with?


Using Google ("vb6 populate listbox from recordset"), I found:
http://www.vb-helper.com/howto_ado_populate_list.html

Does this help?

[Edited by stickleprojects on 04-02-2008 at 03:18 PM GMT]

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

Will my problem is bak in my project biodata, in my medata.mdb database i have 4 tables the information of person like their adres, age,name etc which is the biodinfo and the other table are the payments example, then i have search box so when i find the name of that person on my search box it will return with answer in my listbox so then click the name of that person and click ok, the ok buton suposed load all the information of that person in my biofrm with the information like adres, age, name etc except the payments,

so the steps still the same right

open connection and the database then call it to the form

so this one is my code

set rs = new recordset   'i already have Public rs as recordset in my module

open db

rs.open (select * from table  _____ what next should i put this is my problem)

biofrm.lnametxt.text = rs("lname")   ' geting the last name of my biodata table
and blah blah blah

which is corect or corect me if im wrong so the main problem to is rs.open (select * from table  _____ what next should i put this is my problem) how will i pupulate this with all the infor in my biodata table to filled that needs in my biofrm

thanks for help

I found this code that opens a recordset, and a database and populates a control on a form (albeit, this is a listbox), interestingly it also finds a record.

http://www.andreavb.com/forum/viewtopic.php?TopicID=8101&page=0#26604



____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

yea i know that already but the problem is how will i split that ^^ and to populate all that records with all the information only information it goes out is lname and fname , what about the rest like adres and age etc

To read the value from a recordset, use the following syntax:

myvalue = rs.fields("fieldname").value

for example:

dim myname as string myname = rs.fields("name").value

to display text in a textbox, draw the textbox on a form and use the following syntax:

me.textbox1.text = myvalue

By mixing these statements with the code already written for you, you should be able to display any given field from a recordset.


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

Thanks for the Update, just back to my training to continue. a little bit busy to my work ^^ so it takes me long time to came back here. ill try ur sugestion thanks a lot ill post the result ASAP ^^ . ive already get the result but my prob is isntead the name i see in the listbox will appear on my form, other name are displayed wew im on it just a little bit more ^^

[Edited by noknok on 14-08-2008 at 09:41 AM GMT]

how are u guys thanks for the help im back again i hope this code will help others with the same problem with mine and to im asking a favor to amin here to change the topic. actually the topic name of this problem "How to get RECORDS FROM DATABASE and DISPLAY THE RESULT TO LISTMENU" and with the help Geniueses here and study and took me months or a year to understand, hope this help to others.


CODE:

Dim rs as Recordset
Dim SqlFind as Integer  ' You can use any String or name you want.

Opendb   ' <=== this Opendb is a connection String to connect from my database and I Declare it to the module

set rs = new recordset    

SqlFind=SearchTxt.Text
    If SqlFind = "" Then
         Msgbox"You Did Not Input Any Name"
End if

rs.open ("select * from biodata where AppLastName like='" & Ucase("SqlFind") & "'"),cn

Do while not rs.EOF
myform.List1.Additem rs("AppLastName") & "" & rs("AppFirstName") & ""
rs.movenext
Loop

set rs=Nothing



Hope This Help to other newbie like me and this code is coded in module