Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. dejfatman

    Windows service installation issue

    Never mind, I figured it out. I guess the 'custom actions' portion of the doc confused me. I skipped that thinking I did not have any custom actions. I didn't realize you need to add your primary output there as well.
  2. dejfatman

    Windows service installation issue

    Hi, I am having problems installing a service I coded. Per http://support.microsoft.com/kb/816169, I've added a project installer to it with a serviceProcessInstaller and serviceInstaller using the "Add Installer" option on the service. I then added a Setup project to the solution, added my...
  3. dejfatman

    Microsoft Office Document Imaging problem

    Bob, Using 'Set docTif = Nothing' throws an 'object required' error. I mentioned that in my first post. As for the convoluted manner of displaying/releasing the TIF in the document viewer, I have not had much success finding anything online describing an easier way to do it. And yes, it...
  4. dejfatman

    Microsoft Office Document Imaging problem

    I figured out something that worked. I changed the last part of the code to: Set tmpDoc = New Document tmpDoc.Create docTiff.Document = tmpDoc Set tmpDoc = Nothing If Dir(tmpTif) <> "" Then Kill tmpTif Creating an empty document and setting the miDocView.Document property...
  5. dejfatman

    Microsoft Office Document Imaging problem

    I am not sure how to remove the reference. 'Set doctif.document = nothing' does not work.
  6. dejfatman

    Microsoft Office Document Imaging problem

    I am having an issue releasing a file opened using the MODI library. Here is the code (docTif is the MiDocView object on my form): Dim tmpTif As String Dim tmpDoc As Document Dim tmpImg as MODI.Image ... (a TIF is created and saved to disk. the name of the file is stored in tmpTif) ... Set...
  7. dejfatman

    microsoft office document image library

    Thanks, I figured it out based on what you said. This code works: Dim arImage() As Byte Dim ff As Integer Dim myTifDoc As Document ff = FreeFile ReDim arImage(imgSize) Open fimFile For Binary As #ff Get #ff, imgPoint, arImage Close #ff ff = FreeFile...
  8. dejfatman

    microsoft office document image library

    Hi, I'm writing an app that strips .tif images from a file that contains a concatination of tifs, and then displays them, but I'm running into some problems regarding access errors. Here's the code that strips the .tif and displays it: Dim arImage() As Byte Dim ff As Integer...
  9. dejfatman

    Browse folder

    Thanks, but I'm still having problems. I plugged your code and got a Runtime error 429: ActiveX component can't create object on your statement Set SA = CreateObject("Shell.Application")
  10. dejfatman

    Browse folder

    Oh, I should add that we are running Winnt boxes at work.
  11. dejfatman

    Browse folder

    Hi, I'm trying to allow an open of a file browsing window in my app. I found some code and inserted it into a module. The code looks like so: Private Const BIF_RETURNONLYFSDIRS As Long = &H1 Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2 Private Const BIF_RETURNFSANCESTORS As Long = &H8...
  12. dejfatman

    reading comma delimited file

    I am reading a *.csv file into my program, but when the program finishes grabbing each field from the first row, it returns an EOF condition. Here is a snippet: i = 1 while i <= lastRecord And Not exportError Input #nFile(1), strRecord If EOF(nFile(1)) Then MsgBox "EOF on " & i &...
  13. dejfatman

    Grabbing variable length string from binary file

    Thanks, you are right about the array of strings. I was being stupid, because what I was really trying to make an array of characters. I've changed it to an array of bytes instead, and I am getting what I want now.
  14. dejfatman

    Grabbing variable length string from binary file

    I'm a vb newbie, and I am trying to retrieve some variable length strings (City names) from a binary file. The binary file contains data from which I can determine the strings' locations and lengths. Right now, I am just trying to display the data, but I'm having problems. My code is as...
  15. dejfatman

    packed decimal

    Well, I used Blorf's suggestion, and it works fine. The packed data is in only 1 byte and is unsigned. For example, when I grab a byte with 20 hex, vb reads it as 32. By Hex(variable name), it converts it back to 20, and I can put it in the table. Packed decimal is very common on mainframes...
  16. dejfatman

    packed decimal

    Hi, I am trying to read a binary file to update a table. The data is packed, and some of it is contained in one byte as packed decimal. Is there an quick way to convert this data to an integer? x'20' should convert to 20, not 32.
  17. dejfatman

    mass insert

    Thanks, I'll try it out.
  18. dejfatman

    mass insert

    Thanks ByteMyzer, I did find a solution similar to the one you suggested, like so: rcd.Open "tmpTables", cn, adOpenKeyset, adLockOptimistic, adCmdTable .... With rcd .AddNew !TableType = txtType !AccountNumber = Mid(inline, 7, 16) !ReturnDigit = Mid(inline, 23, 10)...
  19. dejfatman

    mass insert

    Thanks, but I need to insert 100's of rows into the table. The code right now is basically: While not EOF(1) strSQL = "insert into <table> values(<row data>) rcd.Open strSQL, cn, adOpenKeyset, adLockOptimistic Line Input #1, <row data> Wend So, for each line of input it reads from...
  20. dejfatman

    mass insert

    I am reading a text file as input and inserting some data into a table. I have a while loop that reads a record, and then inserts into the table, but the process is incredibly slow. I thought there was a way to do something like: insert into table values ("a","b","c")...

Part and Inventory Search

Back
Top