count function

[jung]

Hello!.

can anyone help me?

i have develop a simple program for quering programs and the tables they use.

now, the problem is about how to display the correct total number of tables a specific program is using..

i've used the COUNT FUNCTION but the display is always ZERO..

please check if my codes are correct:

Dim sqlcount

sqlcount = "select count(table_name) from table where prog_name like ' " & txtprogram_name.Text & " %' "

Program.lbltotal.Caption = Val(sqlcount)

please help me with this dilema..

PLEASE..

THANK YOU SO MUCH!.

[sreekandan]

Hello!.

can anyone help me?

i have develop a simple program for quering programs and the tables they use.

now, the problem is about how to display the correct total number of tables a specific program is using..

i've used the COUNT FUNCTION but the display is always ZERO..

please check if my codes are correct:

Dim sqlcount

sqlcount = "select count(table_name) from table where prog_name like ' " & txtprogram_name.Text & " %' "

Program.lbltotal.Caption = Val(sqlcount)

please help me with this dilema..

PLEASE..

THANK YOU SO MUCH!.

First You have to select from the table.
After that you have to write the coding is

selectedrecord.recordcount(FieldName)

[indhu]

First You have to select from the table.
After that you have to write the coding is

selectedrecord.recordcount(FieldName)

same problem. but i want a particular column recordcount to be displayed in a textbox.

[sreekandan]

same problem. but i want a particular column recordcount to be displayed in a textbox.

For that you have to use the following codings

text1.text=recordset.recordcount("columnName")

[indhu]

For that you have to use the following codings

text1.text=recordset.recordcount("columnName")

explain me yeah,

once i click my scenecbo this has to come.
i don't know where to place this code. i ve tried in form load its giving error as object required.

noofpanel.text=recordset.recordcount("panel")

[sreekandan]

explain me yeah,

once i click my scenecbo this has to come.
i don't know where to place this code. i ve tried in form load its giving error as object required.

noofpanel.text=recordset.recordcount("panel")

r u using MSAccess Database?

[sreekandan]

r u using MSAccess Database?

Then U have to write the follwing code

Dim rs as New ADODB.Recordset
rs.open"select * from TableName",con
text1.text=rs.Recordcount("ColumnName")

[hariharanmca]

same problem. but i want a particular column recordcount to be displayed in a textbox.

i think column record count and * record count will be same

[indhu]

i think column record count and * record count will be same

vb 6.0 backend is Ms access

[hariharanmca]

vb 6.0 backend is Ms access

Whatever it will return Same value

[Killer42]

Then U have to write the follwing code

Dim rs as New ADODB.Recordset
rs.open"select * from TableName",con
text1.text=rs.Recordcount("ColumnName")

Don't forget, there was also a filter on the program name to consider.

[Killer42]

...

Dim sqlcount
sqlcount = "select count(table_name) from ..."
Program.lbltotal.Caption = Val(sqlcount)

I'd just like to check - do you understand now, why this code always produces zero?

[indhu]

Whatever it will return Same value

where 2 place the code yeah

[sreekandan]

where 2 place the code yeah

which control have you used for record count, on that you have to use this code.

[indhu]

which control have you used for record count, on that you have to use this code.

Private Sub sequcombo_Click()
 
myconnection
 
myquery = sequcombo.Text
 
Call rLOAD
 Do While storyboard!sequence <> myquery
 storyboard.MoveNext
 If storyboard!sequence = myquery Then
 'scenecombo.Text = storyboard!scene
 panel_txt.Text = storyboard!panel
 action_txt.Text = storyboard!Action
 dialogue_txt.Text = storyboard!dialogue
 Picture1.Picture = LoadPicture(storyboard!Filename)
 End If
 Loop
 
 
 storyboard.Open "select * from panel", CON
noofpanel.Text = storyboard.RecordCount("panel")  error
 
accdb = "SELECT sequence FROM panel WHERE panelid =  '" & myquery & "' "
'Load SQL query into a variable
 
Set storyboard = CON.Execute(accdb, adOpenStatic)
 
End Sub

wrong number of argument or invalid property assignment
when i select this combo i want the record count of panel.

[sreekandan]

Private Sub sequcombo_Click()
 
myconnection
 
myquery = sequcombo.Text
 
Call rLOAD
 Do While storyboard!sequence <> myquery
 storyboard.MoveNext
 If storyboard!sequence = myquery Then
 'scenecombo.Text = storyboard!scene
 panel_txt.Text = storyboard!panel
 action_txt.Text = storyboard!Action
 dialogue_txt.Text = storyboard!dialogue
 Picture1.Picture = LoadPicture(storyboard!Filename)
 End If
 Loop
 
 
 storyboard.Open "select * from panel", CON
noofpanel.Text = storyboard.RecordCount("panel")  error
 
accdb = "SELECT sequence FROM panel WHERE panelid =  '" & myquery & "' "
'Load SQL query into a variable
 
Set storyboard = CON.Execute(accdb, adOpenStatic)
 
End Sub

wrong number of argument or invalid property assignment
when i select this combo i want the record count of panel.

just you try the following code

storyboard.Open "select * from panel", CON
noofpanel.Text = RecordCount("panel")

[indhu]

just you try the following code

storyboard.Open "select * from panel", CON
noofpanel.Text = RecordCount("panel")

Hey sree

where?

[sreekandan]

Hey sree

where?

have you got it?

[indhu]

have you got it?

No man, its giving error wrong number of argument or invalid property

[indhu]

Whatever it will return Same value

thanks i got the answer.

noofpanel.Text = RS.RecordCount

[hariharanmca]

thanks i got the answer.

noofpanel.Text = RS.RecordCount

yha i told, whatever the column record count or Record count will return same