Search results for query: *

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.

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...

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...

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...

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

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...

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...

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...

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")

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

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...

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 &...

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.

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...

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...

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.

Thanks, I'll try it out.

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)...

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...

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")...