Visual Basic 6 & Access 2000

[Demon]

Thanks, that looks great.

I'm not too keen on writing to the registry.

Robert


EDIT: Are you sure about this statement?

-----------------------------------------------------
Here's an example of reading in the language value under the Section named SAP in the Pack.ini file.

Code:

PstrLang = FetchProfileString(App.Path & "/PACK.INI", "SAP", "LANGUAGE", "EN")
-----------------------------------------------------

Why read the INI file to find sValue if you are providing it in the statement? This would look more like a Write statement no?

[Demon]

This one is really off-topic.

I'd like to copy an Access MDB file from within VB6. I don't even know where to start looking for this. I figure this could be some sort of batch file like we used to be able to do in DOS.

Robert



EDIT: Hmmm: http://builder.com.com/5100-6373-1050078.html CopyFile feature, interesting.

[Demon]

I found this:

FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"

But I'm stuck on how to define that FileSystemObject.

Robert


EDIT: Found it, I needed to add a Reference to Microsoft Scripting Runtime (scrrun.dll).

[rhino]

Why read the INI file to find sValue if you are providing it in the statement? This would look more like a Write statement no?

Look at the FetchProfileString function. You have to provide a default value in this call, then it gets overwritten with what's in the INI file.

[Demon]

How do we point to a VB6 public variable from within a SELECT statement?

Set rsProfile = dbProfile.OpenRecordset("SELECT * FROM tblProfile WHERE ptrMenu = ptrCurrentMenu")

Both ptrMenu (primary key) and ptrCurrentMenu are defined as LONG, but it only works when I hardcode a 1 instead of ptrCurrentMenu.

Robert


EDIT: Found it in Programmer's Heaven, thanks Steve: ("SELECT * FROM tblProfile WHERE ptrMenu = " & ptrCurrentMenu)

[Demon]

I would have expected this IF statement to trap a Null, but apparently it doesn't work that way. The execution fell right down to the ELSE and executes the next statement. Any idea how to do make it work?

Robert

[keithdoxey]

I would have expected this IF statement to trap a Null, but apparently it doesn't work that way. The execution fell right down to the ELSE and executes the next statement. Any idea how to do make it work?

Robert

Try "vbNull" instead. (Cant test as I dont have VB on this machine!)

[Luciano]

Hi,

Use the Visual Basic function IsNull().

Best regards,

Luciano

[Demon]

Thank you!

Robert