Can't Save record in Client PC - When installing App - Unspecified error -2147467259

[chockku]

Hai,

I compiled my project created the Package using Package And Deployment Wizard.

When i run the set up in the client machine, i am getting 3 errors. i also attach the picture of the 3 errors.

1. Setup Error 168
    Setup has encountered a problem updating your system registry.

2. Error Executing Action     
    REGSVR: DLL Register Server failed on 'C:\ProgramFiles\Common Files\System\OLE DB\msdaps.dll

    -2147467259:UnSpecified error 
    
    with  error code - 2147467259

3. Error while configuring ODBC drivers!
    Unable to register library C:\ProgramFiles\CommonFiles\System\OLE DB\\msdaps.dll: The operation completed 
sucessfully. 

After installed this setup in my machine i am able to Save new records from the installed application. But when i install the same setup in the client machine , and there i see all datas populated, but when i try to add new record then the following error is coming and the operation is cancelled.

-2147467259
Operation must use an updatable query

I heard that it will happen because of the Previlleges in the shared directory, but i given FullControl to EveryOne and also to the user i install. But still this error remains.

Also i attach the picture of the database RecordLocking setting, kindly check this and suggest me , is this error occurs because of that settings or what.


<Edited After Testing> But also i tested by selecting [purple]None[/purple] in the [brown]Default Record Locking[/brown] Frame instead of [brown]Edited Record[/brown], even though the 3 same errors occurs when installing the setup in the client pc

thankyou,
Chock.

[randem]

chockku,

Check my signature for possible help.

[RobDog888]

What version of MDAC did you package with? What OS did you package on and what OS did you attempt to instal it on?

For error #2 see these links.
http://support.microsoft.com/support.../Q185/0/29.ASP
http://www.trinet.co.uk/support/kb/Q000027
http://www.windowsitpro.com/Article/...9534.html?Ad=1

[randem]

chockku,


Look here,

Setup Error 168

You are probably not including everything that you need in your installation package.

[RobDog888]

Guess you added that error code recently. It wasnt there earlier.

[chockku]

Hi,

Thankyou for your earlier response powerposter and moderator,

i read the Installation Problems link given.

The MDAC Setup version is 2.0

The application i developed in WinXP and here all clients have WinXP with latest ServicePack updates. so i run setup in WinXP only.

Now what i have to do , shall i reinstall MDAC and try or what, But why you have not seen my error pics. thank you for your replies.

Thankyou,
Chock.

[chockku]

Hai,

I tried with the InnoSetup, it didn't give any error in my machine, but i will try in the client machine and tell you. I seen the true type fonts in my machine, it seems that it has only 500 types of fonts, so i hope its not a problem. Anyhow tell me your suggestion, in the mean time i will try and reply you.

thankyou,
chock.

[randem]

chockku,

Did you use ********** to create your Inno Setup Script? If you did not you are probably missing things in your installation.

[chockku]

Hai,

Thankyou for your quick responses in the Sunday - its amazing, kindly check the attached files, i am using the Inno Setup Compiler 5.1.4. Its working fine in my computer when i install, i didn't check in the user machine still. Is this the correct one what you said or not.

I attached 2 pics, the first one is the setup wizard i start, and the second pics is the one where i attach all support file for the setup , i attach this files from the Support folder which had already contains the supporting files for this project, this Support is created before when i use Package and Deployment wizard for creating the Setup.

But Package and Deployment Wizard adds most of our project required files to the Setup, here in Inno Setup Compiler - I think we have to do it manually, am i correct or not. Kindly reply about it.

Thankyou,
Chock.

[randem]

chockku,

Just like I thought. I said to use **********, Not the Inno Setup Wizard. Words, Words, Words... They are so important for understanding. You will need to create with ********** and then send me the .iss file it creates to look at.

[chockku]

Hai,

I thought i was doing right , because at the end of the wizard i got the .iss file and the setup.exe. Also i installed and tried by inserting a new record its working. Any how check and tell me, i am attaching here both my setup and the .iss file. Thankyou for your replies.

I think 11 MB is too large, so i can't attach here. can u give me ur id i will send it.

Thankyou,
Chock.

[randem]

Chockku,

I only asked for the .iss file. That is all I need to look at for now

[chockku]

Hai,

Here with i have attached the iss file. Hope this is the one you asked.


Thankyou,
Chock.

[randem]

chockku,

It was not created by ********** so you maybe missing files. Look in my signature for **********. How did you get the file you have in the script.

Send me your vbp file and your TurnAroundMaintenance.exe to your project.

[chockku]

Hai,

I downloaded the **********Setup406 from the site you specified in the morning itself, but it needs the administrator previlleges, so i searched in some other sites I forget from which site i downloaded the Inno Setup compiler. As i visited some more sites in the morning. Anyhow here with i have enclosed my Project file with the exe.

Thankyou,
Chock.

[chockku]

Hai,

I find out the link, from where i download, but i didn't remember where i get this link, this is the place site name


www.jrsoftware.org/download.php/is.exe
ftp://members.aol.com/jordanrz/isetup-5.1.4.exe

Thankyou,
Chock.

[randem]

chockku,

Here is the project file and iss script file I created. I don't have CR9 so there are files missing. Start with this project and add in the other fiiles and/or folders in ********** and they will be added to your script properly.

[chockku]

Hai,

When i run the scripfile you send. I get the following error. I have attached that with this mail. Have you seen the link i given above http://www.jrsoftware.org for downloading Inno setup 5.1.4, is it correct or not. Kindly check and tell me.

Thankyou,
Chock.

[randem]

chockku,

You are not big with following instructions, huh?

Here is the project file and iss script file I created. I don't have CR9 so there are files missing. Start with this project and add in the other fiiles and/or folders in ********** and they will be added to your script properly.

[chockku]

Hai,

Now i am not getting any error when installing in the Client machine,
but when i try to SAVE or MODIFY the record i get the following error

-2147467259

operation must use an updatable query.

If i try to delete then i am getting the folling error

-2147467259
Operation must use an updatable query.

kindly check this and reply me, i struck with this problem for a long time.

Thankyou,

Chock.

[randem]

chockku,

That problem is with your code not the installation. You will need to post your code.

[chockku]

Hai,

I am able to Save or Delete or Update with my user name in my machine and also tried in one more machine in network with my user name which has vb installed, but when i tried with other username who have not vb installed, he can't save or do anything , anyhow i attached the code here, pls check and reply me. the code is below

Private Sub cmdSave_Click()
On Error GoTo ErrorHandler:
 
 If rst.State = 1 Then rst.Close
    rst.Open "select * from Equipment where EqpName='" & Replace(Trim(txtEquipName.Text), "'", "''") & "'", cnnNew, adOpenStatic, adLockReadOnly, adCmdText
    If rst.RecordCount >= 1 Then
        MsgBox "Equipment Name Already Exists !", vbCritical, "* Duplicate Entry Not Allowed *"
        txtEquipName.SetFocus
        rst.Close
        Exit Sub
    Else
        rst.Close
        StrSql = "insert into Equipment(EqpName,Area,Plant,EffOnPlnt,Comments,EisDur,DOffDur,ShtType) Values('" & Replace(Trim(txtEquipName.Text), "'", "''") & "','" & Replace(Trim(txtArea.Text), "'", "''") & "','" & Replace(Trim(txtPlant.Text), "'", "''") & "','" & Replace(Trim(txtEffOnPlantCapacity.Text), "'", "''") & "','" & Replace(Trim(txtComments.Text), "'", "''") & "'," & Trim(txtEisDur.Text) & "," & Trim(txtDoffStr.Text) & ",'" & ShtType & "')"
        cnnNew.Execute StrSql
 
If FlgModSubItems = True Then
            IncVal = 0
 
If NOFRows >= 1 Then
                For IncVal = 1 To NOFRows
                    StrSql = "insert into SubItems(EqpNo,EqpName,SubEqpName) values(" & ArrSprItemsa(IncVal) & ",'" & Replace(Trim(txtEquipName.Text), "'", "''") & "','" & Replace(ArrSprItemsb(IncVal), "'", "''") & "')"
                    cnnNew.Execute StrSql
                Next
            End If
 
End If
 
FlgArea = True: FlgComm = True: FlgPlant = True: FlgEff = True
        Call ClearFields(Me)
        Call LockFields(Me)
        Call DisableButtons(Me)
        cmdAddNew.Enabled = True
        cmdModify.Enabled = True
        cmdExit.Enabled = True
        cmdAddNew.SetFocus
        MsgBox "Record added successfully", vbInformation, "* Record Added *"
        ReDim ArrSprItemsa(10) As Variant
        ReDim ArrSprItemsb(10) As Variant
        FlgNew = False
    End If
 
Set rst = Nothing
If rst.State = 1 Then rst.Close
ErrorHandler:
    ErrorHandler
End Sub
 
Private Sub cmdUpdate_Click()
Call UpdateTransactionHere
If FlgModSubItems = True Then
        IncVal = 0
StrSql = "delete * from SubItems where EqpName='" & Replace(Trim(cmbEquipName.Text), "'", "''") & "'"
        cnnNew.Execute StrSql
        If NOFRows >= 1 Then
            For IncVal = 1 To NOFRows
                StrSql = "insert into SubItems(EqpNo,EqpName,SubEqpName) values(" & IIf(IsNull(ArrSprItemsa(IncVal)), Null, ArrSprItemsa(IncVal)) & ",'" & Replace(Trim(cmbEquipName.Text), "'", "''") & "','" & Replace(Trim(ArrSprItemsb(IncVal)), "'", "''") & "')"
                cnnNew.Execute StrSql
            Next
        End If
    End If
 
Call ClearFields(Me)
    Call LockFields(Me)
    Call DisableButtons(Me)
    cmdAddNew.Enabled = True
    cmdModify.Enabled = True
    cmdExit.Enabled = True
    cmdSave.Visible = True
    cmdUpdate.Visible = False
    cmbEquipName.Visible = False
    txtEquipName.Visible = True
    MsgBox "Record Updated Successfully", vbInformation, "* Record Updated *"
    cmdAddNew.SetFocus
    FlgMod = False
    FlgModSubItems = False
    RowsModifiedNow = False
    NoRowsNowZero = False
    
    Set rsTmp = Nothing
    If rsTmp.State = 1 Then rsTmp.Close
 
End Sub
 
Private Sub UpdateTransactionHere()
On Error GoTo ErrorHandler
 
SQL = "Update Equipment set EqpName='" & Replace(Trim(cmbEquipName.Text), "'", "''") & "',Area='" & Replace(Trim(txtArea.Text), "'", "''") & "',Plant='" & Replace(Trim(txtPlant.Text), "'", "''") & "',EffOnPlnt='" & Replace(Trim(txtEffOnPlantCapacity.Text), "'", "''") & "',Comments='" & Replace(Trim(txtComments.Text), "'", "''") & "',EisDur=" & Trim(txtEisDur.Text) & ",DOffDur=" & Trim(txtDoffStr.Text) & ",ShtType='" & ShtType & "' where ID=" & ModId
    cnnNew.Execute SQL
 
ErrorHandler:
    ErrorHandler
End Sub
 
 
Private Sub cmdDelete_Click()
    On Error GoTo ErrorHandler
    cmbtxt = Trim(cmbEquipName.Text)
    If cmbEquipName.Text = "" Then
        MsgBox "Please choose the Equipment Name to Delete", vbCritical, "* Equipment Name Required *"
        cmbEquipName.SetFocus
        Exit Sub
    End If
    If rst.State = 1 Then rst.Close
    rst.Open "select distinct EqpName from Equipment where EqpName='" & Replace(Trim(cmbEquipName.Text), "'", "''") & "'", cnnNew, adOpenStatic, adLockOptimistic, adCmdText
    If rst.RecordCount >= 1 Then
        If RsAssg.State = 1 Then RsAssg.Close
        RsAssg.Open "select * from NewAssg where EqpName='" & Replace(cmbEquipName.Text, "'", "''") & "'", cnnNew, adOpenKeyset, adLockReadOnly, adCmdText
        If RsAssg.RecordCount >= 1 Then
            MsgBox cmbEquipName.Text & " " & "Details remains in Assignment Table" & vbCrLf & vbCrLf & " Contact System Administrator", vbCritical, "* Cannot Delete This Equipment *"
            If rsTmp.State = 1 Then rsTmp.Close
            If RsAssg.State = 1 Then RsAssg.Close
            Set rsTmp = Nothing
            Set RsAssg = Nothing
            Exit Sub
        End If
        
        If MsgBox("* Are You sure to delete all Datas for this Equipment *", vbQuestion + vbYesNo, "Delete Equipment") = vbYes Then
              StrSql = "Delete * from SubItems where EqpName='" & Replace(cmbtxt, "'", "''") & "'"
              cnnNew.Execute StrSql
              StrSql = "Delete * from Equipment where EqpName='" & Replace(cmbtxt, "'", "''") & "'"
              cnnNew.Execute StrSql
              FlgArea = True: FlgComm = True: FlgPlant = True: FlgEff = True
              Call ClearFields(Me)
              Call LockFields(Me)
              Call DisableButtons(Me)
              cmdAddNew.Enabled = True
              cmdModify.Enabled = True
              cmdExit.Enabled = True
              cmdSave.Visible = True
              cmbEquipName.Visible = False
              txtEquipName.Visible = True
              MsgBox "Record Deleted Successfully", vbInformation, "* Record Deleted *"
              cmdAddNew.SetFocus
            If rst.State = 1 Then rst.Close
            Set rst = Nothing
            
            Set rsTmp = Nothing
            If rsTmp.State = 1 Then rsTmp.Close
        End If
    End If
ErrorHandler:
    ErrorHandler
End Sub

kindly check this and reply me

thankyou,
chock.

[randem]

chockku,

Post your script.

[randem]

chockku,

I corrected some logic errors for one thing. Otherwise you probably left out some important database files on the computer that did not have VB installed. I need to see what you used as a script to create your install.

Option Explicit
 
Private Sub cmdSave_Click()
Dim RecordsAffected As Long
 
On Error GoTo ErrorHandler:
 
' If rst.State = 1 Then rst.Close
'    rst.Open "select * from Equipment where EqpName='" & Replace(Trim(txtEquipName.Text), "'", "''") & "'", cnnNew, adOpenStatic, adLockReadOnly, adCmdText
'    If rst.RecordCount >= 1 Then
'        MsgBox "Equipment Name Already Exists !", vbCritical, "* Duplicate Entry Not Allowed *"
'        txtEquipName.SetFocus
'        rst.Close
'        Exit Sub
'    Else
'        rst.Close
 
    strSQL = "insert into Equipment(EqpName,Area,Plant,EffOnPlnt,Comments,EisDur,DOffDur,ShtType) Values('" & Replace(Trim(txtEquipName.Text), "'", "''") & "','" & Replace(Trim(txtArea.Text), "'", "''") & "','" & Replace(Trim(txtPlant.Text), "'", "''") & "','" & Replace(Trim(txtEffOnPlantCapacity.Text), "'", "''") & "','" & Replace(Trim(txtComments.Text), "'", "''") & "'," & Trim(txtEisDur.Text) & "," & Trim(txtDoffStr.Text) & ",'" & ShtType & "')"
    Debug.Print strSQL
    cnnNew.Execute strSQL, RecordsAffected
        
    If RecordsAffected = 0 Then ' Record exist or some other error!!!!!
        MsgBox "Equipment Name Already Exists !", vbCritical, "* Duplicate Entry Not Allowed *"
        txtEquipName.SetFocus
        Exit Sub
    End If
    
If FlgModSubItems = True Then
            IncVal = 0
 
If NOFRows >= 1 Then
                For IncVal = 1 To NOFRows
                    strSQL = "insert into SubItems(EqpNo,EqpName,SubEqpName) values(" & ArrSprItemsa(IncVal) & ",'" & Replace(Trim(txtEquipName.Text), "'", "''") & "','" & Replace(ArrSprItemsb(IncVal), "'", "''") & "')"
                    Debug.Print strSQL
                    cnnNew.Execute strSQL
                Next
            End If
 
End If
 
FlgArea = True: FlgComm = True: FlgPlant = True: FlgEff = True
        Call ClearFields(Me)
        Call LockFields(Me)
        Call DisableButtons(Me)
        cmdAddNew.Enabled = True
        cmdModify.Enabled = True
        cmdExit.Enabled = True
        cmdAddNew.SetFocus
        MsgBox "Record added successfully", vbInformation, "* Record Added *"
        ReDim ArrSprItemsa(10) As Variant
        ReDim ArrSprItemsb(10) As Variant
        FlgNew = False
'    End If
 
If rst.State = 1 Then rst.Close
Set rst = Nothing
 
ExitRtn:
    Exit Sub
    
    
ErrorHandler:
    ErrorHandler
    Resume ExitRtn
End Sub
 
Private Sub cmdUpdate_Click()
Call UpdateTransactionHere
If FlgModSubItems = True Then
        IncVal = 0
        strSQL = "delete * from SubItems where EqpName='" & Replace(Trim(cmbEquipName.Text), "'", "''") & "'"
        Debug.Print strSQL
        cnnNew.Execute strSQL
        If NOFRows >= 1 Then
            For IncVal = 1 To NOFRows
                strSQL = "insert into SubItems(EqpNo,EqpName,SubEqpName) values(" & IIf(IsNull(ArrSprItemsa(IncVal)), Null, ArrSprItemsa(IncVal)) & ",'" & Replace(Trim(cmbEquipName.Text), "'", "''") & "','" & Replace(Trim(ArrSprItemsb(IncVal)), "'", "''") & "')"
                Debug.Print strSQL
                cnnNew.Execute strSQL
            Next
        End If
    End If
 
Call ClearFields(Me)
    Call LockFields(Me)
    Call DisableButtons(Me)
    cmdAddNew.Enabled = True
    cmdModify.Enabled = True
    cmdExit.Enabled = True
    cmdSave.Visible = True
    cmdUpdate.Visible = False
    cmbEquipName.Visible = False
    txtEquipName.Visible = True
    MsgBox "Record Updated Successfully", vbInformation, "* Record Updated *"
    cmdAddNew.SetFocus
    FlgMod = False
    FlgModSubItems = False
    RowsModifiedNow = False
    NoRowsNowZero = False
    
    If rsTmp.State = 1 Then rsTmp.Close
    Set rsTmp = Nothing
 
End Sub
 
Private Sub UpdateTransactionHere()
On Error GoTo ErrorHandler
 
    SQL = "Update Equipment set EqpName='" & Replace(Trim(cmbEquipName.Text), "'", "''") & "',Area='" & Replace(Trim(txtArea.Text), "'", "''") & "',Plant='" & Replace(Trim(txtPlant.Text), "'", "''") & "',EffOnPlnt='" & Replace(Trim(txtEffOnPlantCapacity.Text), "'", "''") & "',Comments='" & Replace(Trim(txtComments.Text), "'", "''") & "',EisDur=" & Trim(txtEisDur.Text) & ",DOffDur=" & Trim(txtDoffStr.Text) & ",ShtType='" & ShtType & "' where ID=" & ModId
    Debug.Print SQL
    cnnNew.Execute SQL
    
ExitRtn:
    ExitRtn
    
ErrorHandler:
    ErrorHandler
    Resume ExitRtn
End Sub
 
 
Private Sub cmdDelete_Click()
    On Error GoTo ErrorHandler
    cmbtxt = Trim(cmbEquipName.Text)
    If cmbEquipName.Text = "" Then
        MsgBox "Please choose the Equipment Name to Delete", vbCritical, "* Equipment Name Required *"
        cmbEquipName.SetFocus
        Exit Sub
    End If
    If rst.State = 1 Then rst.Close
    rst.Open "select distinct EqpName from Equipment where EqpName='" & Replace(Trim(cmbEquipName.Text), "'", "''") & "'", cnnNew, adOpenStatic, adLockOptimistic, adCmdText
    If rst.RecordCount >= 1 Then
        If RsAssg.State = 1 Then RsAssg.Close
        RsAssg.Open "select * from NewAssg where EqpName='" & Replace(cmbEquipName.Text, "'", "''") & "'", cnnNew, adOpenKeyset, adLockReadOnly, adCmdText
        If RsAssg.RecordCount >= 1 Then
            MsgBox cmbEquipName.Text & " " & "Details remains in Assignment Table" & vbCrLf & vbCrLf & " Contact System Administrator", vbCritical, "* Cannot Delete This Equipment *"
            If rsTmp.State = 1 Then rsTmp.Close
            If RsAssg.State = 1 Then RsAssg.Close
            Set rsTmp = Nothing
            Set RsAssg = Nothing
            Exit Sub
        End If
        
        If MsgBox("* Are You sure to delete all Datas for this Equipment *", vbQuestion + vbYesNo, "Delete Equipment") = vbYes Then
              strSQL = "Delete * from SubItems where EqpName='" & Replace(cmbtxt, "'", "''") & "'"
              Debug.Print strSQL
              cnnNew.Execute strSQL
              strSQL = "Delete * from Equipment where EqpName='" & Replace(cmbtxt, "'", "''") & "'"
              Debug.Print strSQL
              cnnNew.Execute strSQL
              FlgArea = True: FlgComm = True: FlgPlant = True: FlgEff = True
              Call ClearFields(Me)
              Call LockFields(Me)
              Call DisableButtons(Me)
              cmdAddNew.Enabled = True
              cmdModify.Enabled = True
              cmdExit.Enabled = True
              cmdSave.Visible = True
              cmbEquipName.Visible = False
              txtEquipName.Visible = True
              MsgBox "Record Deleted Successfully", vbInformation, "* Record Deleted *"
              cmdAddNew.SetFocus
            If rst.State = 1 Then rst.Close
            Set rst = Nothing
            
            If rsTmp.State = 1 Then rsTmp.Close
            Set rsTmp = Nothing
        End If
    End If
    
ExitRtn:
    Exit Sub
    
ErrorHandler:
    ErrorHandler
    Resume ExitRtn
End Sub

[chockku]

Hai,


I hope the problem may not with the iss because its working in some machines when i try from my username. any how i attache both here.

Hope you can be clear if you see users Access to the Directory and the Database in the Share directory. Also i check in the General Property , its not in the Read Only Mode. But it seems some what strucking in this area, but how to find out and trace this , can you please guide me.

thankyou,
Chock.

[randem]

chockku,

How do you expect this to work when you don't do like I ask you to do? This script is the same as before.

Zip your VB project and email it to me. All the support files also. NOT THE SETUP FILE!!!!

[chockku]

Hai Randem,

sorry, just now i seen the code what u replied after correction, i didn't use that, i will try that and reply you, in the mean time check the my .iss file here in my above post. and the project attached here.

thankyou,
chock.

[randem]

chockku,

You are always supposed to read from your last post to make sure you read all the new post. And you did not send the support files. This is hard when you only do part of what is needed. All your support files are needed.


8/1/2005 10:54:30 PM - Missing crviewer9.dll
8/1/2005 10:54:30 PM - Missing craxdrt9.dll
8/1/2005 10:54:30 PM - Missing craxddrt9.dll
8/1/2005 10:54:30 PM - Missing FPSPR70.ocx
8/1/2005 10:54:30 PM - Missing Mscomct2.ocx
8/1/2005 10:54:30 PM - Missing LVbuttons.ocx

[chockku]

Hai ,

You ask me to comment the code what i use to check wheter the record alread exists or not. Ok i will try it, but all are working in my machine, at the same time i am not doing this in the Update Statement, so in the client machine atleast it should work, but it didn't , anyhow i will try and reply you.

Thankyou,
Chock.

[randem]

chockku,

Logic, Logic...You state yourself you do not do this in your update routine. Just what does that have to do with the save rtn? Look at the logic behind the code. And it should not work on any machine that does not have VB installed. Your installation script is really wrong. This is getting hard with not having the correct info from you.

If I ask for A don't give me C and exclude A. That won't help! I need those files!!!!

[chockku]

Hai,

When i upload the file it says, the limit for the file size is 500kb, so i am not able to upload even one file, if you have give me ur mail id i will send u. i don't know what to do in this context. my id is [email protected]


thankyou,
chock.

[randem]

chockku,

How many times do I need to give you the email address. It does not change each time it is used.

[chockku]

Hi Randem,

Thanks for your support, After i remove the line which you commented, then its working properly, i don't get any error in the installation too.

But how you know that this line makes the error and also it will work only in the machine where VB6 is installed. Can you explain me that please.

And also tell me what's the way to avoid the user to save the Equipment Name with the same name again, because i am keeping Equipment name and wokring similar to a primary key.

Because i removed the code for checking whether the record with the same EqpName already exists or not.

I hope i can put the Resolved in my next reply.

Thankyou very much.
Thankyou,
Chock.

[randem]

chockku,

It's already there in the logic. Most write to much code when simple logic will suffice. What I did was to attempt to write the record to the file. If your database will not allow duplicates because of key/index violations it will generate an error. This error will indicate either that the records already exist or that some other error happened on the insert. Just check for the duplicate error code and you have your answer.

You still have problems with your script. DO NOT JUST MOVE ON, IT NEEDS TO BE CORRECTED. The biggest problem people have is well, it works now! Yes, but not for all cases just in this case and you don't even know why. trust me it still needs work. SO why don't you just send me those files from your support folder and let me get your script correctly done? Why is this such an effort?

[chockku]

Hai Randem,

Actually what you told is correct, the simple logic is suffice, but the problem is i have the primary key different, and the Equipment seperately as below

ID AutoNumber (PK)
EqpName Text

Anyhow i can change the primary key to EqpName and check & protect saving thorugh the error code if it dupplicates.

Regarding the Script, i am in the begining stage of developing the project. You can ask then 'Why you are kean about creating the Setup in the begining'. Because the user stay after 5 buildings from my place, so when i develop something new, i will compile and install every time to the user (my boss) and then he will check and tell the modfications.

I Understand that there is some serious problems with the Script when seeing your reply here. I have to divide into several parts and then i have to mail the Files , which is in the Support Folder.

Actually the Support Folder is the one which is automatically created when the First time I create the Setup through PACKAGE AND DEPLOYMENT WIZARD.

Myself i thought that the same Files in Support Folder will require for compiling this project, through InnoSetup, so I added the Files when the InnoSetup Wizard runs and asks to add AdditionaFiles. Thankyou for such a reliable support. Within some time i will send the Files through mail.

Thankyou,
Chock.

[randem]

chockku,

Do not change the Primary key, just and a Unique Index (No duplicates) to the field EqpName.

Most of the files in your support folder will be added to your script but the will need to be registered and placed in the proper location.

[chockku]

Hai Randem,

Yes the NoDuplicates will avoid, just after your reply i remember it now.
We are adding the Files to the SetUp wizard, but how could we followup whether its going to register all components (files) correctly in the exact position, and first of all we need to know what's the correct location that all files to be placed. I thought the setup will do these things.

I send the Files from the support folder did u recieved it and check the mail which and i send today.

Thankyou,
Chock.

[randem]

chockku,

I did not receive any emails from you. And what setup wizard are you using? ********** will do those thing... But there is that pesky little human factor that keeps getting in the way. You actually have to do it correctly with the correct program and the correct files. This should have been over days ago, why is it such a task?