com >> Help on use StgOpenStorageEx

by Adry » Wed, 22 Mar 2006 03:05:33 GMT

Hi,

I would like to use IMAPI to develop an application that burns CDs.

At the site vbaccelerator.com I've found a good IMAPI wrapper; but to use it
in burning data (Joliet) on CD, it's necessary to provide an IStorage
implementation.
It seems that this IStorage interface is provided by the StgOpenStorageEx
(Ole32.dll), but it's very hard to call this function from VB.

Can someone help me ?


Thanks

Adriano




com >> Help on use StgOpenStorageEx

by Norm Cook » Wed, 22 Mar 2006 21:57:27 GMT


Try this type library:
OLELIB.TLB - OLE interfaces & functions v1.7 at
http://www.mvps.org/emorcillo/en/code/vb6/index.shtml



it





Similar Threads

1. Help on use StgOpenStorageEx

2. MS-VB6 Help using Help Please

Any VB6 project.
Each and every time when I click for help (either
F1 or just Help) the following message puts-up:
   Unable to Display Help

All of this although I installed both MSDN Cd(s)

Any idea please?

Beny

3. Need help with using Time comparison in code - please help - Visual Basic/VB

4. Need help for handle 2 event OnDtmf,OnRing, PlaybackFile using TAPI3 dll using VB6

I m developing my first project basicaly it not for IVR    but some event 
and property i need cause my project 
depend on Phone line i need help as below :
in market allreadt ActiveX available but i want my  coding using TAPI3 i do 
not want pay for 2 or 3 Events or tru to provoide Sample SDK for TAPI3

thanx
Please any 1 help me 


Private Sub Form_Load()
  Tapi1.Open  
End Sub

Private Sub Tapi1_OnRing(ByVal Number As Long)
   ' Start PlaybackFile after detect in 3 ring  
   If Number > 1 Then
      Tapi1.AnswerCall
      Tapi1.PickUp
      Tapi1.PlaybackFile "C:\SongData\Welcome.wav"
   End If
End Sub

Private Sub Tapi1_OnDtmf(ByVal KeyCode As Long)
   Tapi1.Stop
   If KeyCode = 48   
        Tapi1.PlaybackFile("C:\SongData\Thanx.wav")
        Tapi1.Stop
        Tapi1.HangUp
   End If
End Sub

5. Adding Help to Automation UDF using VB.Net without using Function

6. Need Help - Easy Q - Delete record using VBA

I'm new to VBA and need to delete a record using VBA in an ODBC linked SQL 
table.  I'm getting the "use dbSeeChanges" error due to an Identity column. 
I've done lots of research and I get the concept I should be using a 
recordset but most examples are too complicated for my novice brain to 
decipher at this point in time.

Would someone be kind and help me (I really need specifics)?
here is my code, as you can see it's simple:

Private Sub cmdCANCEL_Click()

Dim strCancelDistSQL As String
    
strCancelDistSQL = "DELETE dbo_tblSI_CorrectionDist.* FROM 
dbo_tblSI_CorrectionDist WHERE 
(dbo_tblSI_CorrectionDist.C_LOG_ID)=[Forms]![frmCorrectionRequest]![C_LOG_ID];"

CurrentDb.Execute strCancelDistSQL
End Sub



7. Using Help in Office 2003 VBA code design window

8. Help querying a table using VBA

Hi,

I have an Access 2000 db with a user table showing the various user levels 
(such as NormalUser, SeniorUser, Security, Admin, and Designer).

At startup I use the Win32 API to get the NT Username. Then I want to 
compare the NT Username with the records in the table to find out the user 
access level - then I can show the correct menu according to the users 
permissions.

Here is the SQL Query that I need to run in VBA:

"SELECT userLevel from Users where NTUserName = '" & sUser & "'"

and the database is the CurrentDB (called "Project Eagle.mdb")

How do I do that please?

(Normally in MS Excel VBA or VB 6 I would use ADO, and have limited 
knowledge of Access or DAO).

I tried to use the code in the Help (Northwind) for this, but I got an 
'Unrecognized Database format' error.

Here is the code I tried to use:

>>>> code >>>
   Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
   Set dbsEagle = wrkJet.OpenDatabase("Project Eagle.mdb")

'    Set rstTemp = CurrentDb.OpenRecordset("SELECT userLevel from Users 
where ' NTUserName = '" & sUser & "'", dbOpenDynaset, dbReadOnly)
    
   Set rstTemp = dbsEagle.OpenRecordset( _
      "SELECT userLevel Users where NTUserName = '" & sUser & "'", 
dbOpenDynaset, dbReadOnly)

   intUserLevel = rstTemp!userLevel
   
   getUserLevel = intUserLevel
<<< end code <<<

Unfortunately it fails on the Set dbsEagle = wrkJet.OpenDatabase line with 
'unrecognized database format' error.

Is there a better or simpler way to do what I want in VBA just to get the 
user level from the table Users?

thanks for any help

Philip