Compare File Date Created Date Modified in VBA ( Allow Download time 20 mintes Buffer Time) - Visual Basic Discussion Boards

I don't know what sort of response you expect here. You have to figure out how to use this product.

I would like to know how to fill the Parent table and multi different levels of child tables with data, mean the child tables will be filled with data relate to that Parent table only..

Example:
Level 1 : GRANDFATHER table - Can be fill using Data Adapter Like: (DataAdapter.Fill(DataSet.DataTable,GRANDFATHER-ID) - {(GRANDFATHER-ID is Primary Key)}
here i select specific record and fill and everything good

Level 2 : Father table - Can be fill using Data Adapter Like:(DataAdapter.Fill(DataSet.DataTable, MYGRANDFATHER-ID) - {(MYGRANDFATHER-ID is Foreign Key)}
mean here i can fill level 2 of child table because it is link to one record only from Parent table so I fill all fathers and one Grandfather, and still everything is good

Level 3 : Kids table - Here we face problem!! , How to Fill Data Adapter using multi Fathers ID?? mean i want to fill all kids under multi fathers related to that Parent table of one GRANDFATHER only..

I don not like to fill all Kids Data under all Fathers and All Grandfathers,

hopefully i found solution and clear what I mean...

Kids don't have multiple fathers; there can be only one.

The table-design is wrong, you don't want a table per generation. More simple, like;

VB

SomeAutoId  LONGINT,
ParentId    LONGINT,
Name        TEXT

The ParentId should point to the parent of the this record. The Id of this record in its own turn will be referenced from any children it has.

E.g.; you have a father (called father for simplicity) and two children (child1 and child2). The data would look like below;

VB

SomeAutoId    ParentId    Name
1             NULL        Father  -- Here NULL is used as a parent, 
                                  -- because we don't know about your fathers' father
2             1           EngrImad -- Here we point to record 1 in ParentId, as that is your father
3             2           Child1  -- ParentId pointing to the record with your name
23            2           Child2  -- Ditto as above; points to the record with SomeAutoId 2.
24            13          Chris   -- not your child :)
1654          23          Grandchild1 -- first child of your second child.

This way you can have an entire tree in a database, extend it easy without creating tables on the fly for generations.

That also makes populating the visual tree easier; you query your table for the root-nodes (parents without a ParentId). If that node opens, fetch the children of that node.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

I suggest you dig more in Hierarchical term.
This is an example of visual basic .net winform project that uses MS-Access 2007 database and populate a TreeView control with all Data as [Parent->Child->GrandChild].
VB.NET Access 2007 Hierarchical TreeView[^]

VB.NET PLEASE
I would i be increasing a number(inside label) if a certain button is pressed. E.g if button5 is pressed the number will increase by 5 and if the button4 is pressed the number will increase by 4 till the number reach 50

OK ... and where do you stuck ?
Did you try anything until now ?

See my reply to your repost of this message in the Java forum.

I am writing a code in VBA that opens up all files in a document and copies and pastes the information from each document. User save to raw date report in path without open it, ( No one edit or modifiy Financial Number in Raw Date Download file) So I want to check each Workbook Date Created Time vs Date Modified Time both should match, then allow Copy and paste else show the Message box to user, File has been Modified, kindly revisit and download raw date" Here we can allow 20 minutes buffer time for downloading Report ie 24-Apr-2020 2.30 P.M vs 24-Apr-2020 2.50 P.M time will allow.
My code is below and any help or suggestion would be much appreciated. Thanks

Dim Ref As Object, CheckRefEnabled%
    CheckRefEnabled = 0
    With ThisWorkbook
        For Each Ref In .VBProject.References
            If Ref.Name = "Scripting" Then
                CheckRefEnabled = 1
                Exit For
            End If
        Next Ref
        If CheckRefEnabled = 0 Then
            .VBProject.References.AddFromGUID "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
        End If
    End With

Dim objFSO As Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim myFile As Scripting.File

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set myFolder = objFSO.GetFolder("C:\ME Financial Report\")

For Each myFile In myFolder.Files

       DCreated = myFile.DateCreated
       DCreated = Strings.Format(myFile.DateCreated, "DD-MM-YY,HH:MM")
       DModified = myFile.DateLastModified
       DModified = Strings.Format(myFile.DateLastModified, "DD-MM-YY, HH:MM")
       DModifiedAdd = DateAdd("n", 20, DModified)
       DModifiedAdd = Strings.Format(DModifiedAdd, "DD-MM-YY, HH:MM")
       Debug.Print DCreated, DModified, DModifiedAdd
       
       If DCreated >= DModifiedAdd Then
       MsgBox "File has been Modified, kindly revisit and download raw data -  " & myFile, vbCritical
       Exit Sub
       Else
    End If
Next myFile

You could simplify your code by just using the VBA DateDiff Function[^] to find the difference.

Hi,

I'm starting to learn coding with vb .net and I'm having and issue while moving through registers using bindingnavigator. Let me explain:

I have a function (already tested and works fine) that receives an idNumber from a textbox and returns a file path.

If I call that function using

Private Sub BindingNavigatorMoveNextItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorMoveNextItem.Click
    changeUser(usuarioTextBox.Text)
End Sub

it calls the function with the textbox data before moving to the next register, and that's not what I would like to do.

Any clues to solve this? Maybe I'm using and incorrect event?

Thanks in advance

What do you mean by "register"? It's not a common term in the context of VB. And the "navigator" is typically used to move position in a "set of records". Moving between "text boxes" is usually via the Tab key. You want to do something with text in a Text Box? It's usually done in response to a "button click"; e.g. to query or save something.

It was only in wine that he laid down no limit for himself, but he did not allow himself to be confused by it.
― Confucian Analects: Rules of Confucius about his food

Hi,

Sorry for not using the right terms, I'm not familiar with them and got confused translating.

I'm using the navigator to move between records. What I was trying is to change a PictureBox Image every time the user moves using the navigator buttons. The path of the image is stored in db and contained in a textbox.

The problem I have is that using MoveNext event, I get the value of the textbox prior to move; so I don't get the right image path.

Thanks

Be aware that the movenext event MAY fire twice once on leaving a record and once on entering a record (I have not tested this but found it with other events). You may need to test the content of the object passed to the event.

Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP

I have service that is non-interactive that set values for these reg values, so that a computer can auto login:

AutoAdminLogon (1)
DefaultDomainName
DefaultUserName
Default Password
ForceAutoLogon (1)

This account automatically displays a form. When you click on a button, it will change the AutoAdminLogon and ForceAutoLogon reg values from a 1 to a 0, so a user can log in. After a minute if no one logs on, the reg values changes back from a 0 to a 1, so that it can automatically log back on, but it's not happening. I have a SCCM agent on the computer. If I push a script to run logoff.exe or a tsdiscon.exe, the autologin account will log back in. If I run the same commands from the service at the Ctrl + Alt + Delete screen, nothing happens. I do understand that because the service is non-interactive it won't work. Any suggestions on how to force the autologin account to log back on at the Ctrl + Alt + Delete screen? Thanks.

After a few days, I found a solution. Pretty much run tsdiscon with the winsta0\winlogon token. These are the articles that helped:

Launches an executable in the winlogon secure desktop. · GitHub[^]
.net - How to determine whether a process's privilege exists and its enabled/disabled? - Stack Overflow[^]

I have a visual basic application developed to read an EXCEL file. It is written with late binding because my development machine has Microsoft.Office.Interop.EXCEL 14 and the production machines uses Microsoft.Office.Interop.EXCEL 12.

We get an error opening the workbook on the production machine but not on the development machine.

It only happens for files that have the "originated from an internet" ADS.

Is there an EXCEL or FILE setting I have missed?

VB

Dim oXL As Object = CreateObject("Excel.Application")
Dim oWBK As Object = oXL.workbooks
Dim oWS As Object = CreateObject("Excel.Sheet")

oXL.AutomationSecurity = 3
oXL.DisplayAlerts = False
oXL.Visible = False
oXL.AskToUpdateLinks = False

oWBK = oXL.Workbooks.Open(Path.Combine(l_s_SourcePath, l_s_SourceFileName), UpdateLinks:=False, ReadOnly:=True, CorruptLoad:=1)

Which version Excel file is causing the problem?

Production - interop 12

No, I asked which version Excel files, .xls or .xlsx

doesn't matter. They both fail in production, both open no problem in dev.

Sorry, without more information it is impossible to guess. I would recommend either downgrading the dev machine to interop 12, or upgrading production to 14. As long as they remain out of sync then there is a potential for problems.

And here is why you NEVER USE EXCEL (or any office product) in a production environment. You are going to have to sort out your versioning of the office product (rinse and repeat every time the is a new office version) so all systems are using the same version. OR use a more robust transport method/tool.

Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP

I am trying to install a VB Net project with a SQL database on another computer and it does not find the connection. The setup loads all the components. The program works on my computer with no problems. What do I need to do to load the database to other computers?

Connecting string
Dim connectionString As String = "Data Source=(LocalDB)\MSSQLLocalDB;Initial Catalog=C:\USERS\Name\ONEDRIVE\DOCUMENTS\MyDataBaseName.MDF;Integrated Security=True"

You have to install the LocalDB engine in order for that to work.

SQL Server Express LocalDB - SQL Server | Microsoft Docs[^]

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

What is the error message on the Client's machine ?