Visual Basic :: Data Control To Display Only Certain Records

Display Records Into Two Column In Data Report
Good day!

I'm trying write a program that would allow me print the data on the database using Data Report. I have no problem in connecting as well as displaying the data, but i do have a concern regarding on how can i split my the data in to two columns, for example: The field name, number, how can i display the first 25 records on the first column and another 25 records in the second column.

Hope you can help me figure this things out.

Thanks in advance...

How To Vertically Display Of Records Using Data Report
Is there a possibility of displaying records in a data report vertically? Pls help!

How To Display Records From Access To DBgrid Control?
hi guys,
i want to access records from MsAccess and display it in DBgrid control... i need coding

Display Multiple Records In Columns Using Data Report
i know how to display records and grouping it but im having trouble creating a report with mutiple records in columns arrange in some like this way

Boys: Girls:

name1 name2
name3 name4
name5

where either the boys column or the girls column would exceed the other

can anyone help me?

Two Child Records From A Single Parent Record - SQL Data Shape-display To Datareport
Anybody knows how to display below codes in datareport, i can display both child records in the same details section, error i "rsothwage.nm" not found... Pls help....

rs.Open "SHAPE {SELECT * FROM calcutbl WHERE emp_id='" log_grid.TextMatrix(log_grid.Row, 0) & "' AND period1='" log_grid.TextMatrix(log_grid.Row, 12) & "' AND period2='" log_grid.TextMatrix(log_grid.Row, 13) & "'} " & _
" APPEND({SELECT dednm,dedamt,emp_id,date1,date2 FRO othded WHERE emp_id='" & log_grid.TextMatrix(log_grid.Row, 0) "' AND date1='" & log_grid.TextMatrix(log_grid.Row, 12) & "' AN date2='" & log_grid.TextMatrix(log_grid.Row, 13) & "'} A rsothded " & _
" RELATE emp_id TO emp_id)AS rsothded,({SELEC nm,amt,emp_id,date1,date2 FROM othwage WHERE emp_id='" log_grid.TextMatrix(log_grid.Row, 0) & "' AND date1='" log_grid.TextMatrix(log_grid.Row, 12) & "' AND date2='" log_grid.TextMatrix(log_grid.Row, 13) & "'} AS rsothwage" & _
" RELATE emp_id TO emp_id)AS rsothwage", conn

Set PayslipRpt.DataSource = rs
PayslipRpt.Show

Display A Form Control's Text/caption To A Data Report Control
Hi to all!!!

Any idea on how to display a form control's text property/caption to a data report control?

Say, I have a form(frmProcessCustomer) that accepts a customer name in a textbox.Then I would like to display the customer name from the textbox(.text property) to my data report using rpttextbox/rptlabel when I view the report...

When I Select In Combo Related Records Display In Grid, Few Records Are Not Displaying
I think this is the right place to post this, without knowing i place this in other discussion.
I am new.

Actually my project's Purpose [in the Form1, two combo boxes listing ItemCode and Description from two tables, where ItemCode is equal in both tables, after selecting in combo, the related record displayed in the Form2-MSHflexgrid]

   Everything is working perfectly except one thing. Only three records is not displaying the details among the 1600 records
OFFICE 2000 W32 EN INT'L
MONEY 2000 W32 ENG INT'L
COMPAQ PRESARIO MV500 15" MONITO . this 3 records are in the present in the table and the ItemCode is also equal. The 3 belongs to Description field. I check through in another way, by giving the Itemcode in the first combobox, it displays correctly the details of all records. where as in the second combobox only these three is strucking up.

where as PRESARIO MV500 15" MONITOR is also a record similar to the three records but it is displaying.
I don't know this is because of any string error or something else. What's the problem, Kindly reply me.

Form_Activate()

    If Form1.optItemcode.Value = True Then
sqls= "selecttab1.Itemcode,tab1.Description,tab1.Product,tab2.warehouse,tab2.Qty,tab2.Amt,tab2.Amt * 5/100 from tab1,tab2 where tab1.Itemcode=tab2.Itemcode AND tab1.Itemcode='" & Form1.cmbItemCode.Text & "'"
    End If

    If Form1.optDesc.Value = True Then
sqls="select tab1.Itemcode,tab1.Description,tab1.Product,tab2.warehouse,tab2.Qty,
tab2.Amt,tab2.Amt * 5/100 from tab1,tab2 where tab1.Itemcode=tab2.Itemcode AND tab2.Description='" & Form1.cmbDescription.Text & "'"
    End If

    rst.Open sqls, cnn, adOpenStatic, adLockReadOnly, adCmdText
If rst.RecordCount = 0 Then
       Me.Hide
       Form1.Show
       MsgBox "No Matching RECORDS !", vbExclamation, " * Invalid Entry"
End If

because of this I am not able to finish my project. Kindly help me. My mail id is

itchocks@rediffmail.com

Thank you very much,
CHOCK.

Hai !!!
Question:Also send it to my mail ID. I did'nt get practice with forums, I don't know where to search this again.

<HTML>
<B><font color="#008000">HAVE A NICE DAY !</font></B>
<HTML>

How To Extract Records And Display Report Of Records That Are Blank
I am using the databound control in a new vb 6 program for a database of complaints. I have name , address, team, response number, open date, assigned date and completed date and some other fields that are all bound to a data2 control. I need a query that will return a report that lists all the records for a specified month (using a drop down box)with no Date_Complete (nothing entered into the field). So if the user selects March -- 2000 in two different drop down boxes. I need fields that have nothing in the Date_Completed field to print in a report. Only the records that have nothing in the Date_Complete fields should print or make the report. So the user can go back and make sure these complaints get completed. I would really appreciate the help; desperate to finish my program and it is overdue; Also, I have been using the data report feature but am open to suggestions. I don't know crystal reports at all so I need some exact and specific code here -- thanks!!!

even help w/ code using the drop down boxes to extract the data -- for example if the user select March in one drop down box and 2000 in another drop down box. I need the records that are not completed (Date_Completed) field to only show up in the report for March 2000.

Deleting Records Via Data Control
I am deleting a record from an access database via a visual basic form.
the delete works but when I move to the end of the record there is a blank record and the count is still the same. there is a statusbar on the form that show the total records in the database something like this" Record 1 of 20" After I delete the record is and update the status bar It still says "Record 1 of 20" Any suggestion on how I can fix this? Thanks. I am using the Data control and the database interface. this is how I am deleting the record and updating the record count.

Case cmdDelete '-- delete the current record
Dim iResponse As Integer
Dim sAskUser As String
sAskUser = "Are you sure you want to delete this record?"
iResponse = MsgBox(sAskUser, vbQuestion + vbYesNo + vbDefaultButton2, "Delete")
If (iResponse = vbYes) Then
With datDict.Recordset
.Delete
StatusBar1.Panels(2).Text = "Record " & .RecordCount + 1 & _
" of " & lTotalRecords
If (lTotalRecords > 0) Then
If .BOF Then
.MoveFirst
Else
.MovePrevious
End If
End If
End With
End If

Deleting Records Using A Data Control
Hi ,

I am trying to delete all records in a table that has been populated at run-time.
i am using a normal data control

datCurrent - linked to a table called Current Team

and the following code has been put into the cmd_click function of a button

datCurrent.Recordsource = "DELETE * FROM Current Team"

it doesn't work though. anyone know why? I think it is because i am not using an ADO data control. anyone know how to do this.

thanks

Multiple Records Using Data Control
is it possible to add multiple records at one from a vb application to a table in access. What i mean by this is, i have a form called 0rders and have many text boxes where orders are in, how can i add all these orders from vb into my orders table in access?

An example would be helpful

thanks

nod31

Counting Records In Data Control...
How do you count and add up all the records in one field of the Microsoft Access using data control?...

Situation:

I made a database using MSAccess. I made two forms. One for inputting the quantities for selling and the other one is for checking how many quantities have been sold out. So every time that you sell, the record gets save. And when I go to the second form, I will see how many things I've been sold..

Serach For Records With Data Control
I would like to search in Microsoft access database for specific records, and the result must be in dbgrid.

I am using :
Data1.recordsource = "SELECT * from Information where Age >= '" & textsearch.text & "'"
Data1.refresh

When i use this, a message is showing : Type incompatible...

Thanks.

Data Control Not Showing Records
Hello,

I put a data control on a form. I set the appropriate properties: the Connect, DatabaseName and
it must be finding the database because under the recordsource it found the table name I want to use, so I click that.

However when I start the form up, there is nothing in the datacontrol (it isn't showing any records).. any ideas?

Thanks!

Deleting Records Using A Data Control
Hi again,

I am trying to delete all records in a table that has been populated at run-time.
i am using a data control called

datCurrent - linked to a table called Current Team

and the following code has been put into the cmd_click function of a button

datCurrent.Recordsource = "DELETE * FROM Current Team"

it doesn't work though. anyone know why?

thanks

Edited by - jamesloi on 12/22/2002 11:16:53 AM

Data Control Display?
I have just learned how to use a data control to change info for my football pool program. Primarily the weekly schedule of games, yet I don't know how toomake the controls' text display the week # that i've switched to. I would like it to display "'Week 2" when I change to that week. What am I missing here?

Fill Combo Box With Records From ADO Data Control
Hi VB gurus,

I know how to fill a combo box with records from a DAO data control but i am clueless as to how to do this thru a ADO data control.....Im sure its really simple but i cant seem to find this in any of my lousy VB books. Please help!

Thanx in advance,

Clint

Adding Records Problem With Data Control
Hey y'all

I have a stupid problem that drives me crazy for few days now. I am trying to add a record to a table in a database, and it alway replaces the first record in that table after i execute .addnew. i have a field in the database that is an AutoNumber and i have no idea if that might cause some problem, cuz i might be missing to update its value as well.

any help would be greatly appreciated.

ks

Data Display In The DataReport Control
Hi,

I have a DataReport control that I use to show certain records on a Recordset, which has a field with boolean (true-false) values. On a regular Access database, this would be -1's and 0's. So what I need to do is not to show the -1 and 0's but to show something instead of that. I mean, something like "This is true" instead of -1 and "This is false" instead of 0. How can I do this?

Thanks,
- Lucas

Data Display Using Control Array
Hi All,

I have a backend Access 2000 database. The front end is in Visual Basic 6.0.
Using a standard form I have retrieved records from the access database based on a specified condition. The data retrieved is displayed in the form using control arrays ( mainly labels ). But the problem is that some part of the data which does not fit in the form is not displayed.

Can the above problem be solved using vertical scrollbars? Please do not suggest using data reports because my requirement is using a form.

Any help in this regard will be highly appreciated.

Thanxs in advance.

How To Display Data In DataGrid Control
please tell me how to display data in DataGrid control, the simplest way to do it. please this is very urgent to me

Simple Data Display Control?
I’m trying to coerce the DataGrid control into displaying output from my application – there are no databases involved; I just want to display (8) columns of output with headers in an orderly fashion so that it can be viewed and printed. Is there an MS control that’ll do it simply? The help system is, as usual, as helpful as the proverbial chocolate teapot - or perhaps I'm just too thick to ask the right questions .....

Dave

What Control To Display Data As A Report ?
I need to display data from database like a report but I don't know what control is the most useful ? If I use MSFlexGrid, how to insert data after select from database ? Thanks for help.

ADO Data Control : Loopig Through An Access DB And Deleting Records
Hi there! Suppose I've an Access database as follows :
PHP Code:

Rank      Name

1            Xeon
2            Peter
3            Jane
3            Jana
4            Dennis
5            Janet
6            Amelia
6            June
6            Lynn
6            John

Now, is it possible to use the ADO data control to loop through this database table and delete those records whose Rank field is value 6?
Can someone show me some sample code etc.?

Please and thanks a lot!
Xeon.

Display Of Tabular Data--Control Needed.
Hi,
I am trying to display a set of tabular data which sometimes can
run long.At present I use Heirarchial Flex Grid and it does not
provide a gud User Interface and the readability is poor.I am
thinking of displayin them in a HTML page in the VB application
itself with some good GUI(Say like hyperlinks, etc.).So please
suggest a method to acheive the same ASAP.
Thanks in Advance.

Huge Data Display In Listview Control
In my project there is a situation where in i may have to display one lakh to 10 lakh records in listview control.the code i have written takes 5 min to display the one lakh records but the problem the form that has the listview control appears as though it is hung and user cannot do anything on the form.
So i want to display the data in chunks so that the system is not hung and user can actually start seeing the records that are fetched and scroll.(similar to find files dialog where in if some files are found it keeps on displaying and still the search is on and i can still scroll top and bottom)

if anyone can help me i would be glad

Can Data List Control Display More Than One Field?
I currently have a data list control that is bound to a table in my access database. It displays one field for each row in the table. I would like to display two fields of each row. Can a data list control display more than one field in each list item or do I have to retrieve each row and create my own list?

Thanks,
Tracy

DAta Grid Using Adodc Control Doesn't Display Sorted Record Why?
Please Help me any coding suggestions...I have a datagrid using AdodcControl as a datasource cant display sorted record but instead the record is jumbled every time I load the form...I have tried using an SQL statement with Order BY [FIELD] ASC but still it wont work...Please can somebody help me about this problem...Thanks...

Display Records
I have a database with address and phones. The phones table looks like this:

Phone / Description / Type
555-55555 / Phone in kitchen / Home
555-55551 / Phone in car / Mobile

How do I display this on a form?

Help Me Display All My Records
My simple VB program is designed to grab information from a very simple Access table and display the names of 12 baseball players in a text box. I can do it when I use a Data Grid, but can only display the last record when I use a text box to display my output. Can anyone fix my program/tell me what I'm missing so that I can display all 12 records in my text box?

Here is my code:
(i always try but my files never upload for some reason - it's a simple file called players.mdb)

--------------------------------------------------

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdGetLine_Click()
Call GetLines
End Sub

Private Sub Form_Load()
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset

CN.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=c:anakinvbGetPlayersplayers.mdb;"
End Sub

Public Function GetLines() As Boolean

Dim oneLine As String

If RS.State = adStateOpen Then RS.Close
RS.Open "Select * FROM TblPlayers", CN, adOpenStatic, adLockBatchOptimistic

RS.MoveFirst

Do Until RS.EOF
oneLine = vbNullString

oneLine = (RS("PlayerName")) & ","
oneLine = oneLine & (RS("Team")) & ","
oneLine = oneLine & (RS("Position"))
txtPlayers.Text = oneLine

RS.MoveNext

Loop

End Function

Public Function GetJString(ByVal JValue As Variant) As String

If IsNull(JValue) Then
GetJString = ""
ElseIf IsEmpty(JValue) Then
GetString = ""
Else
GetString = CStr(JValue)
End If
End Function

--------------------------------------------
thx,
Anakin

How To Display Records If There Is.....
Hi everyone

I have one table in sql server. there is null values in fields of this table. When i try to display records in combobox. it doesnt display anything.

using this code

while not rst.eof
combo1.additem rst!cust_name
rst.movenext
wend
rst.close
set rst =nothing

it is not working. Also i am trying to display records in text box then it is displaying that invalid use of null.

So please help me out

Thanx in advance

Display Records
I have a CommandButton & a Label in a VB Form. When a user clicks the CommandButton, I want the records from a database should get displayed in the label. Can this be done? This is what I tried but am getting an error:

Private Sub Command1_Click()
    Dim objConn ' As ADODB.Connection
    Dim objRS 'As ADODB.Recordset
    Dim connString 'As String
    Set objConn = New ADODB.Connection
    Set objRS = New ADODB.Recordset
    connString = "Provider=SQEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SQLServerName;Data Source=DBName"
    objConn.Open connString
    objRS.Open "tblProducts", objConn
    Do Until (objRS.EOF)
        Label1.AddItem objRS("ProductName")
        objRS.MoveNext
    Loop
    objRS.Close
    Set objRS = Nothing
    objConn.Close
    Set objConn = Nothing
End Sub

The error is being thrown in the line in blue color.

Thanks,

Arpan

Display Records
,Hi all, i have a huge access database and i want to display all the records in a grid,actuallyi'm using Datagrid,but i wana 2 know which one is best to use "datagrid" Or "MsFlexGrid", could anyone advice me,which will better suite my huge database for displaying the record,thanks advancely all

Display 10 Records At A Time
Can anyone help?
Ive been trying but cant seem to figure it out.

Here is the code that displays all the records , how would i go about display 10 records and a time

---------------
Do While Not rcst.EOF 'check for the end
flashtext = rcst.Fields(0).Value
xWin.SetVariable "r" & recordnumber, flashtext
recordnumber = recordnumber + 1
rcst.MoveNext 'goto the next record

Loop
-------------------
//This writes the records to the fields i want, but i dont know how to set up a button to display 10 at a time

TIA

Can't Display All Records In Flexgrid...help!!!
I'm having ploblems loading an access db of about 4000 records into a flexgrid. For some reason the listings stop at ~700, although the recordset.recordcount = 4093. When I sort the list, records from later in the database show up, but it still won't list more than 700. My flexgrid does not have a maxrecords setting; infact, I set it to 4093, and every row after 700 was blank. It's like the command to set the grid to the recordset is cutting off it's loading process. Access does the same thing to me, by the way: It will open the file to about 700 records, and then it will finish the listing about a second later. Here's the code I'm using, if anyone can help. Thank you very much in advance!

Code:
Private Sub Form_Load()
Dim dbConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cMonth As String
Dim cYear As String
Dim fileString As String
If Trim(Dir("c:Program FilesAPPCIMdbLog.txt")) <> "dbLog.txt" Then
cMonth = "august"
cYear = "2002"
Else
Open "c:Program FilesAPPCIMdbLog.inf" For Input As #10
Line Input #10, fileString
cYear = Mid(Trim(fileString), 2, (Len(Trim(fileString)) - 2))
Line Input #10, fileString
cMonth = Mid(Trim(fileString), 2, (Len(Trim(fileString)) - 2))
Close #10
End If
Set dbConn = New ADODB.Connection
dbConn.Open modConnManager.ConnManager((cMonth & ".mdb"), ("clients" & cYear & ""))
Set rs = New ADODB.Recordset
rs.MaxRecords = 5000
rs.Open "SELECT * FROM Clients", dbConn, adOpenKeyset, adLockOptimistic
rs.Update

grdData.Clear
Set grdData.DataSource = rs
frmDebug.txtDebug(4).Text = dbConn.ConnectionString
End Sub

Restricting The Display Of Records
Restricting the display of records

I created an application for a doctor in VB6 and Access 2000.

In a screen - lots of listboxes are loaded with data and siplayed to the doctor - so that the doctor can click a listitem in respective listbox and save the data. An example would be 5 listbox in AddPatient screen.

With the passage of time, the data that the lisboxoes display has increased tremendously. Now when a form is loaded one of the listbox displays 20 thousand appx. records, while other listboxes display 20 thousand appx. Records. In total at the moment some 40 thousand records are being displayed. Consequently when the application is run without this screen it occupies 8078 KB space in the memory (as seen in Task Manager) and when this screen is displayed the memory space occupied goes upto 26000 KB.

I have tried the following solutions:
1. In ADO recordset:- setting MaxRecords property. However, this property doesn't work with Access.
2. Using "Top" keyword in SQL statement. However, this only returns a selected no. of records and when the user surfs through the listbox rest of the records are not displayed.
3. Cachesize property in AD) Recordset, but of no help.

Limitations:
Have to display all records, so that the doctor can choose from the list. So I don’t have the option to use "Where" clause.

Can anybody help with a good solution?

Limiting Records To Display
Hi to all,

I have used MySQL's LIMIT feature when displaying records for a limited size say 50 per page. I want to know if MS Access has this kind of feature, or ADO itself? I have read about the PageSize, PageXxX properties of ADO, but many says that it does retrieve all the records in a table.

I found MySQL's LIMIT keyword excellent in displaying the "required" records only, and by dividin it by pages, you can be able to save overhead. What about MS Access? Does using the TOP keyword and by having a specified ORDER BY clause in my query will solve the trick?

Thanks and god bless.

How To Display Records In Flexgrid And When ...
Hi evryone

I have developing s/w.I want records to be displayed in flexgrid and when i double click on flexgrid the selected records must be displayed in related textbox.

Please help me

Waiting for positive reply.

Thnax in advance

Display Records In Datagrid And Others
HI

I want to be displayed records in datagrid. i tried it using given code but it gives error like "rowset in not bookmarkable"

rs3.Open "select * from billauto", cn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs3 ' here it gives error
datagrid1.refresh

and i want to update,delete addnew records directly from datagrid

Please help me

waiting for reply
Thanx a lot

How To Display Records In Combo
HI

i want to display records in combobox

i tried it like as given below but nothing is coming in combo box
private sub form_load()
dim i
rs.movefirst
for i=1 to rs.recordcount
combo1.additem rs.fileds(0).value
rs.movenext
next
end sub

but doesnt work
Please help me

waiting for reply
thanx in advance

How To Display Records In Combo
Hi everyone

I amdeveloping s/w regarding that one question,
How to display records of data in combobox. I have written it down program runs properly but records do not come in combo

Private Sub Form_Load()
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "autodata.mdb;Persist Security Info=False"
rs.Open "select * from billauto", cn, adOpenDynamic, adLockBatchOptimistic
Dim i
rs.movefirst
For i = 1 To rs.RecordCount
combo1.additem rs.Fields(0).Value
rs.MoveNext
Next i

Please help me

Display Records In Datagrid
hi all,

i want to type some name in my textbox. when i start type something ( i feel in textchange itselft) the datagrid should fill with those records from the table starting with letter i typed in the text box. how can i go about. which grid control is best suit here. i need some suggestions. and the beginning code if possible.

another query is can i able to display the records of two tables in a grid

thanx in advance
saj

Use DTPicker To Get Records From DB And Display It
Hi! I'm new to DTPicker. I have two DTPicker named dtpstart and dtpend.
I would like to use the DTPicker to get data from Database table and display it in listview.

After displaying the data in listview i would like to create a report using crystal report 9.

Need help to get started with it.

Thanks!

Display Records In Flexgrid
hi,
i m new to vb.i wanted to know how to display records in a flexigrid.just a sample code.plz help me

regards

Display Certain Table Records In VB6
Hi,
i am trying to have VB display records based on one field within a Access table. I have a page of movie genre buttons, so that when clicked, it displays all of the movies from that genre. Genre is a field within each record of the table.

Also, if I have an ADO that lets users browse movies, how can I allow the user to select the current movie and display more info on another page.

Thanks,
Amanda

Display All Records In A Combo Box
I am using a bound combo box to display records.  However, only the first record of the recordset is being displayed.  How do I display all records?

    Set cnnProvType = New ADODB.Connection
    cnnProvType.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CustSvc;Data Source=POKEMON"
    cnnProvType.Open

    Set recProvType = New ADODB.Recordset
    recProvType.Open "SELECT DISTINCT VendorType FROM VendorType " _
    & "ORDER BY VendorType", cnnProvType, adOpenStatic, _
                    adLockOptimistic, adCmdText

    Set dbcProviderType.DataSource = recProvType
    Set dbcProviderType.RowSource = recProvType
    dbcProviderType.DataField = "VendorType"
    dbcProviderType.ListField = "VendorType"
    dbcProviderType.BoundColumn = "VendorType"

Thanks,
Leroy