MSHFlex Grid Control

[deviii]

Hello VB experts

This is devi. i have one problem in MSHFlex Grid Control. I want to do repitative operations in this control. it means if i give 10 in column four the result of 10+1 will be displayed automatically in column five i want control structure format for this operation please help me.

[QVeen72]

Hi,

Write a Function Like This : and call it whenever u Change/Update Column 4..

[code=vb]
Grd.TextMatrix( Grd.Row,5) = Grd.TextMatrix( Grd.Row , 4) +1
[/code]

REgards
Veena

[deviii]

Hi veena thanks i got result thank you very much and i want to learn about backup and recovery how i can use backup and recovery in my project?

[QVeen72]

Hi,

Back-Up and Recovery routines are Database Dependent, Can u tell which Backend DB u r using..?

REgards
Veena

[deviii]

hi mam sorry for the late reply i use MS-Access Backend

[deviii]

I want to learn about backup and recovery how i can use backup and recovery in my project?

[QVeen72]

Hi,

If MS-Access, then it's quite Simple, Copy the .mdb Access File using "FileCopy":
Check this :

For Back Up
[code=vb]
If Dir("C:\BackUp\ MyDB.mdb", vbDirectory) <> "" Then
'If Already Exisits then Delete It
Kill "C:\BackUp\MyDB .mdb"
End If
FileCopy App.Path & "\MyDB.mdb" , "C:\BackUp\MyDB .mdb"
[/code]

For Restore :

[code=vb]
If Dir("C:\BackUp\ MyDB.mdb", vbDirectory) <> "" Then
If Dir(App.Path & "\MyDB.mdb" , vbDirectory) <> "" Then
'Remove Current Working DB
Kill App.Path & "\MyDB.mdb"
End If
FileCopy "C:\BackUp\MyDB .mdb", App.Path & "\MyDB.mdb"
Else
Msgbox "No Back Up Database Found"
Exit Sub
End If
[/code]

Change this App.Path & "\MyDB.mdb" to ur Variable/Actual Database Name/Path Name

Note Before doing any Back-Up / Restore Operations u have to "Close All the Connections of the Database" in the Code. otherwise u cannot do the file copy...


REgards
Veena