Visual Basic

Re: How to Bind a label from a Join

29-Nov-07 23:16

Good Afternoon All

i have this an SQl join, and in my Dataset like this

Dim strSQL As String = "select count(p1.Property_ID)from Property p1  " & _
                                   "  where Not Exists" & _
                                   "  (select 1 from  Attribute_codes_test p2  " & _
                                   "  where p2.Attrib_code = Substring(p1.Attrib_code, 1, 8)  " & _
                                   "  and p1.Active= 1) "

.

i want to display it in a label, but i cant convert it to intiger, because i i cannot convert a dataset to intiger, so through a dataset i manage to carry the results of the above to my form, but now, when i try to Display this like this

lblCount.DataBindings.Add("text", mdscount, "Property.??????")

.

on the Above code, i dont know what to put where ???? appears because this comes from join. and i try to put an Existing field in my table like this

lblCount.DataBindings.Add("text", mdscount, "Property.Lis_key")

.

i get this Error

Cannot create a child list for field Property.

.

Thanks

Vuyiswa Maseko,

Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding

VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za

Usharva30-Nov-07 0:27

Usharva

30-Nov-07 0:27

Hi

you can try the below code

lblCount.DataBindings.Add("Text", mdsCount.Tables(0), mdsCount.Tables(0).Columns("ColName").ColumnName)

Re: How to Bind a label from a Join

Vimalsoft(Pty) Ltd30-Nov-07 0:57

30-Nov-07 0:57

i get an Error that says

Cannot find table 0.

Thanks

Tree Control

Sipder29-Nov-07 23:10

Sipder

29-Nov-07 23:10

I want ot use tree node in my application and want to check if a particular node is clicked. How to do so?

Re: Tree Control

Christian Graus29-Nov-07 23:12

terminating VB6 application

29-Nov-07 23:12

What have you tried ? Did you read the MSDN help ? Did you try google ?

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

"Ondra29-Nov-07 23:10

29-Nov-07 23:10

Hello,
I have a program consisting of four modules and three forms. When I try to terminate it using following sub:

Public Sub END_IT()
Unload Form1
Unload inicializace
Unload tech_krivka
MsgBox "applicaion terminated", vbInformation
End
End Sub

the MsgBox appear, but then the program get stuck and it's neccesary to quit it from TaskManager (where CPU usage 99% for the VB6.EXE is shown).
When made to .exe file, the situation is the same except CPU usage 0%.
thank you for your oppinion

Ondra Pokorny

Sipder29-Nov-07 23:15

Sipder

29-Nov-07 23:15

Why don't u write simply
"End"
insted of unloading all the forms?

Tell me if it works

"Ondra29-Nov-07 23:23

Re: terminating VB6 application [modified]

29-Nov-07 23:23

Because I've tried it and it was all the same. So I've looked in VB6 Help and:
"
The End statement provides a way to force your program to halt. For normal termination of a Visual Basic program, you should unload all forms. Your program closes as soon as there are no other programs holding references to objects created from your public class modules and no code executing.
"

Vimalsoft(Pty) Ltd30-Nov-07 0:43

30-Nov-07 0:43

hi Ondra

Simply hide your forms and use unload function of vb6 and your Application will be terminated. like this

unload(frmmain)

.

Hope it helps

Thanks

-- modified at 6:54 Friday 30th November, 2007

"Ondra30-Nov-07 1:59

30-Nov-07 1:59

I've tried:

unload(Form1)

but a window appeared "invalid property value"

Vimalsoft(Pty) Ltd30-Nov-07 2:43

30-Nov-07 2:43

ok, do it this way

forgive me, i dont know when last did i use Vb6, but let me give you a solution to that.

i assume you have a an MDI, a main Form. on every clsing exent or Dispose, make sure you put this code.

umload me

.

and it will be very Easy if you have one MDI and other forms as Children, when you unload the MDI and other Form will be terminated.

try it and tell me what is happening.

Thanks

"Ondra30-Nov-07 2:52

30-Nov-07 2:52

no sucess, situation is the same- but I assume that there is not problem in this (see my later comment-it's probably caused by timers). Anyway, thank you very much.

ChandraRam30-Nov-07 1:38

ChandraRam

30-Nov-07 1:38

1) Where is this sub defined?
2) Do you have any code in the event that is called when you unload any of these forms?

"Ondra30-Nov-07 2:05

30-Nov-07 2:05

1)it is defined in one of the module
2)I don't think so; Actually,I use two winAPI timers form winmm.dll and one VB timer in the program,but they are all stopped before terminating the application

another clue?

"Ondra30-Nov-07 2:18

There's problem with timers!

30-Nov-07 2:18

there may be a connection with timers I use (2*winAPI timers from winmm.dll and one "standard" VBTimer). I've noticed that when I terminate the application before starting these timers, it ends correctly.

"Ondra30-Nov-07 2:40

how to detect changes in system date

30-Nov-07 2:40

YESS, it's most probalby caused by WinAPI timers- I've trierd to start VBTimer Only and it ends correctly. The syntax of timers is:

Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID _
As Long) As Long

Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay _
As Long, ByVal uResolution As Long, ByVal lpFunction _
As Long, ByVal dwUser As Long, ByVal uFlags As Long) _
As Long

they are started:

Time2 = timeSetEvent(Period2, Period2, AddressOf Timer2Clb, 0, TIME_PERIODIC)
Time1 = timeSetEvent(Period1, Period1, AddressOf Timer1Clb, 0, TIME_PERIODIC)

and stopped:

Public Sub StopTimers()
Form1.VBTimer.Interval = 0

If Time1 <> 0 Then
timeKillEvent (Time1)
Time1 = 0
End If

If Time2 <> 0 Then
timeKillEvent (Time2)
Time2 = 0
End If

End Sub

If you know what's wrong, I would be grateful for reply.

-- modified at 8:52 Friday 30th November, 2007

eyes200729-Nov-07 22:35

eyes2007

29-Nov-07 22:35

hi all,
i am developing an application (a 15 days trial version).

can someone tell me how can i handle the situation, when the user change the system date, the application must not start.

how can i detect the changes in system date.

or if someone have any other logic to handle it anyway.

thanks in advance

help everyone

Christian Graus29-Nov-07 22:53

29-Nov-07 22:53

Every time the app stores, you need to store the date somewhere. If the date goes backwards, you store that it's gone backwards and the app therefore will no longer start.

eyes200729-Nov-07 23:02

eyes2007

29-Nov-07 23:02

thanks christian

i am thinking about to use file system watcher, what do u say

and i am also keeping an eye on the date and time as well as u say.

but their is a problem, if the user install the product on day 1, after 15 days he change the date and can use the product. how can i resolve that any idea.

thanks again

help everyone

Colin Angus Mackay29-Nov-07 23:07

Colin Angus Mackay

29-Nov-07 23:07

eyes2007 wrote:
i am thinking about to use file system watcher, what do u say

What would watching the file system achieve?

Upcoming FREE developer events:
* Developer Day Scotland

My website

eyes200729-Nov-07 23:10

eyes2007

29-Nov-07 23:10

any change in system date

thats just an idea and i have to read more about that component.

help everyone

Christian Graus29-Nov-07 23:11

29-Nov-07 23:11

eyes2007 wrote:
help everyone

I don't see what the point is. I told you what to do, and you're talking about something else that won't work.

Christian Graus29-Nov-07 23:11

29-Nov-07 23:11

eyes2007 wrote:
i am thinking about to use file system watcher, what do u say

Sounds bizarre to me. Why not do what I suggested instead ?

eyes2007 wrote:
but their is a problem, if the user install the product on day 1, after 15 days he change the date and can use the product. how can i resolve that any idea.

Refer to my original answer.