rs.save SP2 Acccess Denied

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Visual Basic
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - How to write this in vbasic? Hello, I have found this on MSDN site: osWrite.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL); How to use it in vbasic? Tag: rs.save SP2 Acccess Denied Tag: 620524
  - 2
    - Can you help me on and error message I bought a piece of software and on loading it a message appears saying Visual basic 6.0 tool kit has encountered an error and has to close. I am running Windows XP and have service pack 2. Does anyone know what is causing this please? Do I need to reinstall something? I am not a developer, I don't understand Visual Basic, I just need to know what the error message means, and is it my opertation system causing the issue. Thank you Tag: rs.save SP2 Acccess Denied Tag: 620511
  - 3
    - Subscript Out Of Range? I am importing all addresses existing in users' Outlook Express Address Book in a ListView (the Form which houses this ListView is a part of a web browser project). The ListView has 2 columns -the 1st one lists all the Contact names (along with an image; that's why I am using a ListView & not a ListBox) & the 2nd column lists the respective e-mail addresses. Now I want to give users the option to directly edit any of the addresses from the browser itself so that they needn't open their Address Book again & again. To edit any of the addresses, users have to select the address that they want to edit & then click a CommandButton cmdEdit. I am using a DLL named kwab.dll (not my DLL) to accomplish this. This is how I am doing it (this as well isn't my code): Module: ------ Public Type tWab AddrBook As Long WabObject As Long InstWab As Long End Type Public Type SBinary cb As Long lpb As Long End Type Public Declare Function kWabAddNewGUI Lib "kwab.dll" (ByRef kw As tWab, ByVal hWnd As Long) As Boolean Public Declare Function kWabOpen Lib "kwab.dll" (ByRef kw As tWab) As Long Public Declare Sub kWabClose Lib "kwab.dll" (ByRef kw As tWab) Public Declare Function kWabGetNumEntries Lib "kwab.dll" (ByRef kw As tWab) As Long Public Declare Function kWabGetEntries Lib "kwab.dll" (ByRef kw As tWab, ByRef FirstElementOfEntriesArray As SBinary, ByVal nBuf As Long) As Long Public Declare Sub kWabFreeEntries Lib "kwab.dll" (ByRef kw As tWab, ByRef FirstElementOfEntriesArray As SBinary, ByVal nBuf As Long) Public Declare Function kWabGetProp_String Lib "kwab.dll" (ByRef kw As tWab, ByRef Entry As SBinary, ByVal PropTag As Long, ByVal Str As String, ByVal LnStr As Long, ByVal UseUnicode As Boolean) As Boolean Public Declare Function kWabDetails Lib "kwab.dll" (ByRef kw As tWab, ByRef Entry As SBinary, ByVal hWnd As Long) As Boolean Form Code: --------- Option Base 1 Private Const UseUnicode As Boolean = False 'Should be set to False Private Const PR_DISPLAY_NAME_A = &H3001001E Private Const PR_EMAIL_ADDRESS_A = &H3003001E Private kw As tWab Private WabIsOpen As Boolean Private lContacts() As SBinary Private Sub Form_Load() WabIsOpen = kWabOpen(kw) Dim nEntries As Long, lEntries() As SBinary Dim k As Long, sBuf As String, nBuf As Long Dim ContactName As String, ContactEmail As String 'Opening the system default wab If Not (kWabOpen(kw) <> 0) Then AddText "Unable to open your Address Book!", "" Exit Sub End If 'Determining the number of contacts nEntries = kWabGetNumEntries(kw) If (nEntries > 0) Then 'Getting the contacts identifiers (ie used to identify a contact) ReDim lEntries(1 To nEntries) nEntries = kWabGetEntries(kw, lEntries(1), nEntries) 'get the display name and the default email address of every contact For k = 1 To nEntries nBuf = 256 'Length of string sBuf = String(nBuf, vbNullChar) 'he string 'get the property If (kWabGetProp_String(kw, lEntries(k), PR_DISPLAY_NAME_A, sBuf, nBuf, UseUnicode)) Then 'Returned ok: strip null chars from the end of the string ContactName = sBuf 'get the default email address nBuf = 256 sBuf = String(nBuf, vbNullChar) If (kWabGetProp_String(kw, lEntries(k), PR_EMAIL_ADDRESS_A, sBuf, nBuf, UseUnicode)) Then ContactEmail = sBuf Else ContactEmail = " <email address not found>" End If 'Print the result AddText ContactName, ContactEmail Else 'Error retriving the display name (which is mandatory for each contact) AddText "Error getting entry #" & k, "" End If Next 'If found some contact, free the resources that are being held If (nEntries > 0) Then kWabFreeEntries kw, lEntries(1), UBound(lEntries) ReDim lEntries(0 To 0) nEntries = 0 End If End If End Sub Private Sub AddText(ConName As String, ConEMail As String) Dim i As Long 'the ListView has 2 columns 'add the icon & contact name in the 1st column of the ListView With lvwAddBook With .ListItems.Add .SmallIcon = 1 .Text = ConName End With 'add the e-mail address of each contact in the 2nd column of the ListView With .ListItems With .Item(lvwAddBook.ListItems.Count).ListSubItems.Add .Text = ConEMail End With End With End With End Sub Private Sub cmdEdit_Click() Dim ID As Long If Not WabIsOpen Then Exit Sub With lvwAddBook If .ListItems.Count < 1 Then Exit Sub ID = .SelectedItem.Index 'MsgBox ID If ID < 1 Then Exit Sub lblResult.Caption = kWabDetails(kw, lContacts(ID), Me.hWnd) End With End Sub The above code successfully imports all the addresses exisitng in the Address Book & adds them to the ListView. The problem creeps up when I click the cmdEdit CommandButton to edit an address. When I click cmdEdit, the "Subscript out of range" error gets generated pointing to lContacts(ID) in the line lblResult.Caption = kWabDetails(kw, lContacts(ID), Me.hWnd) in the cmdEdit_Click event function. This is where I am getting stuck up. Can someone please help me out with this problem? Thanks, Arpan Tag: rs.save SP2 Acccess Denied Tag: 620500
  - 4
    - Fixed Strings This is an odd piece of behavior. Can anyone explain it? I'm guessing it has something to do with a null pointer behind the scenes. * * * * * * * * Private Sub Test() Dim s1 As String * 5 MsgBox "START 1" & s1 & "END 1: " & Len(s1) Debug.Print "START 1" & s1 & "END 1: " & Len(s1) s1 = "" MsgBox "START 1" & s1 & "END 1: " & Len(s1) End Sub * * * * * * * * Tag: rs.save SP2 Acccess Denied Tag: 620495
  - 5
    - Developer News Custom Problem Microsoft Visual Basic Studio 2005 Express Edition When I try to do a Search on "Customize the News Section", it generates an error message, â??Search Failed this operation is only supported on Windows 2000 SP3 or later operating systems. Click help for more information.â?? Also, in the Visual Basic window, â??Visual Basic Developer Newsâ?? window it reflects, â??The current news channel might now be valid or your Internet connection might be unavailable. To change the news channel, on the Tools Menu click Options, then expand environment and click Startup. When Iâ??m in the expanded Environment there is no â??Startupâ?? choice. Q. How can I correct these problems so I can customize Developer News? -- Thanks, Larry Tag: rs.save SP2 Acccess Denied Tag: 620494
  - 6
    - MDI Child Menus I have an MDI form with a menu, and a bunch of MDI child forms. I would like to create a separate menu on the MDI child form itself, but this does not seem to be possible? When I create a second menu on the child with the menu editor IDE and run the application, it simply replaces the main MDI form's menu listing when the child is activated. Help! A befuddled VB6er. Evan Tag: rs.save SP2 Acccess Denied Tag: 620490
  - 7
    - Detecting compilation? In the various code that gets run at compilation time (such as UserControl_Initialize), is there a way to detect (during execution) whether it is compilation time or not? Tag: rs.save SP2 Acccess Denied Tag: 620485
  - 8
    - Delete folder Is there any built-in function in VB6 that allows me to delete a folder on the network without using filesystemobject? I have a routine that moves files from one folder to another and I need to remove the "source" folder after all files are moved to the "destination" folder. I know there is a Kill command but that is for files. Thanks. David Tag: rs.save SP2 Acccess Denied Tag: 620474
  - 9
    - Run treeview from top to bottom after drag and drop Would anybody know a routine that run a treeview from top to bottom even after there has been a drag and drop? I used this routine: Sub RunTreeView(oNode As Node) Dim x As Node '-------------------- 'deal with root node | '-------------------- If oNode.Parent Is Nothing Then End If '---------------------- 'deal with child nodes | '---------------------- If Not oNode.Child Is Nothing Then Set x = oNode.Child RunTreeView x End If '------------------------ 'deal with sibling nodes | '------------------------ If Not oNode.Next Is Nothing Then Set x = oNode.Next RunTreeView x End If End Sub But that won't run from top to bottom as it will follow the indices of the node. I could select the root node and walk down with a key down via SendKeys, but that is not very nice. Thanks for any advice. RBS Tag: rs.save SP2 Acccess Denied Tag: 620465
  - 10
    - Subclassing VBA/VB6/.Net i want to create a class that has properties that are classes, themselves, that also have properties (much like userform.controls.count). i've never had the need to do this, but now i want to know the best way to go about this. do i go as far as creating a new class module and instantiating it within another class? or should i use a user-defined type (vb6) or a structure (.net)? i don't need the total answer, just a shove in the right direction. Thanks Tag: rs.save SP2 Acccess Denied Tag: 620464
  - 11
    - Making an Array of Type Optional in a function Hi, I have created a type like this.. Public Type Records ParName As String ParType As String ParLength As Integer ParValue As Variant End Type and creating an array of this type Public Arr_Type() As Records I have a function Public Function GetRecords(Str_SQL As String, Optional Arr_Params () as records) as ADODB.Recordset I want to make the parameter Arr_Params in the function GetRecords as Optional .. When i do this i get an error: "Only User-defined types defined in public object module can be coerced to or from a variant or passed to late bound functions " How can i achieve this ??? Regards, Sanjay Kumar Tag: rs.save SP2 Acccess Denied Tag: 620416
  - 12
    - transparent control i would like to have a control that is transparent but that would have mousedown,mousemove,mouseup events and will show on top of any other control in essence a transparent label control,but that will be lower in the z-order then a picturebox i tried making a transparent user control,but no luck any suggestions tia pc Tag: rs.save SP2 Acccess Denied Tag: 620397
  - 13
    - Bit-order reversal (little-endian <--> big-endian) I need some code (hopefully very efficient code) to reverse the order of a specified number of bits from a Long or Integer. It will always be either the (low-order) 8 bits or 4 bits, though handling other sizes would be nice. And if it assumes the other bits are all zero (or all 1 for that matter) then I just need to know about the assumption and can do the masking. Anyone got something handy? Or better yet - something interesting and fun? Bob -- Tag: rs.save SP2 Acccess Denied Tag: 620390
  - 14
    - vb6 mschart, draw vertical line (not axis) on chart, possible? I'm using an mschart control to display 1-3 columns of data using .ChartType = VtChChartType2dLine, and I'd like to place a vertical line on the chart the full height of the charted data at a point between the left and right edges of the chart. I haven't found any examples of this with google or at planetsourcecode. Is it possible to place a vertical line on the chart using the standard chart control methods, or using the API? TIA, Mike Tag: rs.save SP2 Acccess Denied Tag: 620389
  - 15
    - Is it possible to use Timer like control in module? Hello, I know that controls can be used with Form object only. Is it possible to have something similar to Timer with the module only? Frank Tag: rs.save SP2 Acccess Denied Tag: 620385
  - 16
    - Rockford Lhotka Business Objects model question for VB 6.0 I implemented some of the features outlined in the book. Specifically, the TextList object. I use the object to populate a list of employees. The problem is surfacing when employees are terminated. There is no need for the lists showing the object data to display the terminated employees when dealing with new objects; however, sometimes the data associated with an object contains the terminated employee. The challenge is creating textList objects that handle both a list of active and all employees. Has anyone experienced this? Tag: rs.save SP2 Acccess Denied Tag: 620381
  - 17
    - Subclassing compilation crash When I try to compile my app (in VB6), it compiles, then writes the EXE, and then the VB6 IDE itself crashes. The EXE that it wrote always seems to be perfectly fine. I have narrowed the problem down to subclassing - if I turn subclassing off, the IDE no longer crashes. Only my main startup form is subclassed, and it is an MDI form. I have read that such problems are often due to not resetting the window proc appropriately when the subclassed form unloads. However, I do have - and always have had - such code to reset the window proc. To check whether or not that code actually executes at the appropriate time, I put in some code to pop up message boxes at the following points: (1) MDIForm_Load of the main form (2) Setting the window proc to my custom proc (3) MDIForm_Unload of the main form (4) Setting the window proc back to the default proc During normal execution of the compiled program, as well as during execution via the VB6 IDE, those four message boxes pop up in that order, at the appropriate times, as I would expect. Moreover, I have verified that I am passing the same HWND to the two SetWindowLong calls, and that the proc pointer I am passing to the second call is the same one that was returned to me by the first call. However, during compilation, the first two message boxes pop up just after the EXE being written, and then the IDE crash occurs, without the other two having popped up (i.e. MDIForm_Unload and resetting the window proc do not occur). By debugging the VB6 IDE itself from within VC++, I see that the error causing the IDE to crash is "Unhandled exception in VB6.EXE: 0xC0000096: Privileged Instruction." Any idea what I might be doing wrong? Thanks. Tag: rs.save SP2 Acccess Denied Tag: 620373
  - 18
    - Telelocator Access Protocol (paging protocol) using visual basic Anyone has any links to the code samples of the paging software written in vbasic? Thanks, Frank Tag: rs.save SP2 Acccess Denied Tag: 620371
  - 19
    - Accessing dual-tray printers Does anyone have a link with an example of how to access a printer that has multiple paper trays? Tang you berry much. Tag: rs.save SP2 Acccess Denied Tag: 620367
  - 20
    - List box keyboard navigation How can I find out keyboard navigation keys for controls such as a ListBox or MonthView? Specifically, how do I indicate that I want to select a specific entry or date? Dan Tag: rs.save SP2 Acccess Denied Tag: 620360
  - 21
    - Help with FTP I have an application that goes to a FTP site and retrieves a file. Everything is working fine, but I would like to give the user some status information based on the response from the FTP Server. For instance, if the site returns code 226 (Transfer Completed) then I want to display a message box to the user indicating such. The same would give for codes 550 (No such file) and 250 (File deleted). I thought using Inet1.ResponseCode would read such codes but that's either wrong or where I'm placing it is incorrect. Here's the applicable section of my current code without the code query: 'retrieve files from the FTP Server Inet1.AccessType = icUseDefault Inet1.URL = "ftp://ftp.somewhere.com" Inet1.UserName = "1234567.001" Inet1.Password = "password" Inet1.RequestTimeout = 60 Inet1.Execute , "GET dailymessages.INV " & DESTFILEPATH & DestFile Do While Inet1.StillExecuting DoEvents Loop Any help would be greatly appreciated. Barry Tag: rs.save SP2 Acccess Denied Tag: 620355
  - 22
    - Format$(.5, "00") returns "00" on some systems, "01" on others? I've got a product in the field, and for one customer, on his workstations, I get a different result from a Format$() call than I do on all of my systems in-house, his server, and all of my other customers' servers and workstations (that I'm aware of, anyway). Here's the summarized view of what the routine is doing (there's more code in the routine, but none of it affects lValue or strResult, but it's really almost this simple): strResult = "" If lValue <> 0 Then strResult = Format$(lValue / 2, "00") End If From what I can tell, it should only be possible for strResult to be "", "01", "02"... "99" (lValue can't be negative, but even if it is, I should see "-01", "-02"... "-99". What I'm seeing, though, is a strResult value of "00". A programmer in another department suggested that perhaps the user's Regional Settings might be affecting the rounding/output of Format$, but I've been unable to duplicate the results on my Windows 2000 or Windows XP Pro machines here, regardless of my Regional/International options (I'm currently waiting for the customer to send screen shots of the Regional Settings dialog tabs). I'll likely change the code for the next release build, but that's probably about a month away. In the meantime, I'd like to find some sort of workaround for the customer. Has anyone seen anything similar, or know of any machine-specific settings that might cause the Format$ function to round down with a value of .5 (which is the only scenario I can think of that would cause strResult to be "00")? All of the information I've been able to find on VB rounding, and the Format$ function, and my own experience seems to indicate that if lValue is 1, above, strResult would be "01". Since I can't duplicate the problem in-house, and I can't make a debug it on the customer's systems (8 states away), I'm running low on ideas, here... Any ideas or help would be greatly appreciated. Thanks, Joe Plocki Tag: rs.save SP2 Acccess Denied Tag: 620353
  - 23
    - Add name and occurrence to ListView (HOW ?) I need some advice about the following. I have to read a file with names and add them to a ListView. A lot of names occur more than once, so i want to add them only once and add the occurrence before the name. (First column is occurrence and second name) (So you can see who's most popular :-) ) How can i do this. (Array, Collection, ListView ....???) So please give some advice. Regards, Robertico Tag: rs.save SP2 Acccess Denied Tag: 620343
  - 24
    - Trim Integer Is there a way to trim an integer? Say I have a number that is 45.5 I would like to trim it to just 45 Dont want to use round because 46 will not work Is there a way to do this besides converting the number to a string and using Left(str, 2) thanks Tag: rs.save SP2 Acccess Denied Tag: 620342
  - 25
    - UTF-8 read and write back to Oracle DB from VB application corrupts the data[if-non-english char] to unreadable format I have Oracle DB Table with one of its column (VARCHAR). I read and write to this column in UTF8 format [non-english or English] using VC application then everything works fine. But if I use a VB application to read the data[non-english] and write it back to the same palce the content is corrupted. Any help is appreciated Tag: rs.save SP2 Acccess Denied Tag: 620335
- Next
  - 1
    - VB6 and VS .NET 2005 problem Hi everyone! I have a problem with calling .NET assembly dll function from VB6 program. I created an assembly in Visual studio .Net 2003 with framework v1.1.4322 installed, exported type library, processed registration for assembly and got reference to it from Visual Basic 6. The created VB6 program worked successfully with assembly till I installed Visual studio .NET 2005 with framework v2.0.50727. Since this moment the VB6 program could not create object from .NET assembly. Of cause, I recompiled the existing assembly project under VS .NET 2005 and VB6 program with new assembly reference. But it did not help. Does anybody knows, what the matter of this problem? Thanks! Igor. Tag: rs.save SP2 Acccess Denied Tag: 620331
  - 2
    - CPU utilization problem when accessing mysql and C# with ODBC Hi, All Could anyone please help.I 'm accessing Mysql with C# using ODBC .I run run two aggreate queries on the server side.The applications is scheduled to run every second for realtime monitoring purposes.I use a thread to tigger the monitoring.However the application utilizes aproximately 50% of the servers CPU load ,This causes other applications to time-out ,when accessing the database. The queries are as follow : strSQL = new StringBuilder(); Select count(*) ,sum(duration)/60 From calls where call_start >= subdate(current_timestamp,interval '60' Minute); Select count(*) as callsFailed From callsFailed where call_start >= subdate(current_timestamp,interval '60' Minute);"); Both tables are indexed ,I dont know if it is the myodbc driver or something else. Please help Thanx *** Sent via Developersdex http://www.developersdex.com *** Tag: rs.save SP2 Acccess Denied Tag: 620329
  - 3
    - Microsoft Active Accessibility with Visual Basic 6 Hi, I see many examples to apply Microsoft Active Accessibility with C++, but I am not sure how to declare that with VB6? Thanks! mm Tag: rs.save SP2 Acccess Denied Tag: 620328
  - 4
    - Setup and Deployment Hi , I can't see Setup and Deployment Projects in the File > New Projects Menu in VB 2005 Express Edition Beta 2. Where can i found ? Tag: rs.save SP2 Acccess Denied Tag: 620326
  - 5
    - Text Box question Hopefully I can describe this properly. I have a text box with horizontal scroll bar on my form and when I place text in the Text1.text property the scroll bar adjusts as you would expect. However if the enduser edits the text box and say deletes most of the text leaving only a tiny portion of it I notice that the scroll bar doesnt readjust to take the shorter string into consideration. Is there a simple way of triggering the text box so that the scrol bar gets readjusted? Thanks in advance, Les Tag: rs.save SP2 Acccess Denied Tag: 620320
  - 6
    - How to enumerate list of all running processes (or services) Hello, I need to find out programmatically whether one particular process is running. I can see it in Task Manager under Processes tab but it is not shown under Applications tab. How to enumerate those processes? Yor help appreciated, Jack Tag: rs.save SP2 Acccess Denied Tag: 620318
  - 7
    - Class does not support automation Hi, I have a problem.I performed a build on a vbp and got an exe out of it. When I edited the vbp I saw that the first two lines indicated the path of the olelib stdole2.tlb.(as the Reference tag) Now I can run the application safely and merrily but someone else who is using XP cannot run the application.(I have Win2000 Prof) A msgbox "Class does not support automation or does not support expected interface" is popped when he tries to run it. The problem is driving me crazy. Any help will be most appreciated. Thanks. Indranil. Tag: rs.save SP2 Acccess Denied Tag: 620317
  - 8
    - Let acts like Set I have a project that processes messages, each message has a unique identifier. The application makes use of a string variable to hold the identifier of the previous message and compare it to the identifier of the new message. (works most of the time) On some occasions we see a behavior that acts like the string have been SET together. Example: Private sLastID as string Private Sub ProcessMsg(sMsg as string) Dim sThisID as string sThisID = GetMsgID(sMsg) If sThisID = sLastID then 'We have a duplicate ... 'Discard Message Else 'Process the Message ' 'Do some Stuff ... 'Save this ID to compare next time ... sLastID = sThisID DoEvents End If End Sub After the first duplicate is found, the routine discards several more, but there not dups. Any help is appreciated. Tag: rs.save SP2 Acccess Denied Tag: 620307
  - 9
    - restricting the height of a form on a form i have a label control in the forms Resize event i have the following code: -------------------------------------------------- Label1.Height=Me.ScaleHeight * .5 -------------------------------------------------- i want it for the user to be impossible to make the form's height any smaller when the labels height is smaller then say 2000 twips any suggestions ? tia pc Tag: rs.save SP2 Acccess Denied Tag: 620300
  - 10
    - ScaleTop / ScaleLeft problem I am having a confusing issue with the behavior of Printer.ScaleLeft and Printer.ScaleTop as compared to PictureBox.ScaleLeft and PictureBox.ScaleTop. According to the documentation, the PictureBox control is useful to layout a print job without using paper (and to provide Print Preview functionality) because it's properties and methods are identical in function and behavior to those of the Printer object. I have found this to be true, except for ScaleLeft and ScaleTop. In the PictureBox control, ScaleLeft and ScaleTop behave as documented, setting the origin for all subsequent graphics methods. This makes it effectively very easy to scroll a large document in the picturebox control, since all methods change their drawing positions by the same amount (their positions relative to each other remain the same). On the printer object, however, setting ScaleLeft and ScaleTop triggers UserDefined scale mode, and makes all subsequent graphics methods change their drawing positions by varying amounts ... with the difference from the normal getting larger as you move down the page (or to the right in the case of ScaleLeft). In other words, the positions of each element change relative to the other elements, not just relative to the page. Has anyone encountered this problem before and found a solution? The following sample should demonstrate the problem (if it doesn't, I can email the *.frm file in question): Private Sub Form_Load() Dim intLoops As Integer Dim intTwips As Integer Printer.ScaleMode = ScaleModeConstants.vbTwips Printer.FontName = "Tahoma" Printer.FontSize = 8 Printer.ScaleTop = 0 Printer.ScaleLeft = 0 intLoops = 1 For intTwips = 0 To Printer.ScaleHeight Select Case (intLoops Mod 4) Case 0 Printer.Line (0, intTwips)-Step(495, 0) Call PrintText(objOutput, CStr(intLoops * 15), 555, intTwips - 60) Case 1 Printer.Line (0, intTwips)-Step(990, 0) Call PrintText(objOutput, CStr(intLoops * 15), 1050, intTwips - 60) Case 2 Printer.Line (0, intTwips)-Step(1485, 0) Call PrintText(objOutput, CStr(intLoops * 15), 1545, intTwips - 60) Case 3 Printer.Line (0, intTwips)-Step(1980, 0) Call PrintText(objOutput, CStr(intLoops * 15), 2040, intTwips - 60) End Select intTwips = intTwips + (intLoops * 15) intLoops = intLoops + 1 Next Printer.EndDoc End Sub Private Sub PrintText(objOutput As Object, strText As String, intX As Integer, intY As Integer, Optional blnRightAlign As Boolean = False) Dim blnIsBold As Boolean If InStr(1, strText, "<b>") Then strText = Left(strText, Len(strText) - 4) strText = Right(strText, Len(strText) - 3) blnIsBold = objOutput.FontBold objOutput.FontBold = True End If If blnRightAlign Then objOutput.CurrentX = intX - objOutput.TextWidth(strText) Else objOutput.CurrentX = intX End If objOutput.CurrentY = intY objOutput.Print strText objOutput.FontBold = blnIsBold End Sub Put this into the declarations section of a new form, and run it several times, changing the values for ScaleLeft and ScaleTop each time. Try 720 for ScaleTop, this produces a 1/2 inch displacement at the top, and over 1 inch at the bottom. Tag: rs.save SP2 Acccess Denied Tag: 620291
  - 11
    - Disabling interupts Hi, I'm trying to disable interupts in an event handler I have in a vb6 program. I'm looking for either a dll to use that would disable them or a way to be able to use x86 assymbly commands to do this. Thanks Ian Tag: rs.save SP2 Acccess Denied Tag: 620289
  - 12
    - Tab doesn't work with Masked Edit control I have a form with a masked edit control on it. I can tab around on the form fine, even from the masked edit control. If I switch focus from the form to another form (they are 2 forms side-by-side), click on the masked edit control and then try to tab out, I can't . These are the steps: 1. Tab around in form 1 works fine. 2. Click on form 2. 3. Click on masked edit control in form 1. 4. Try to tab out of the masked edit control in form 1 to the next control in the tab order. Tab fails to work. I also notice the keypress event of form 1 fails to recognize any keypresses when this happens. Anyone know how to fix this? Thanks! Steve Tag: rs.save SP2 Acccess Denied Tag: 620284
  - 13
    - KeyPress method I have a form for which KeyPreview is True. In its Form_KeyPress method I am successfully detecting the Enter key. However, it doesn't execute KeyPress for other keys such as PageUp, PageDown and F2. How do I detect those keys? Dan Tag: rs.save SP2 Acccess Denied Tag: 620277
  - 14
    - How to Fill in a PDF file I was just assigned to a new project, which requires to fill in fields in a pre-defined PDF template from a VB application. The VB app will allow a user to enter data into database from the VB interfaces. When a button "Generate" is clicked, the VB app should retrieve data from database, populate data into the pre-defined PDF template and generate a new PDF file. How can I do that? Is there any free (or cheap) third-party component I can use? I prefer not to use a component written in Java. At this point, I am still open-minded on how to do this. It would be really appreciated if you could give any suggestion or direct me to some references. Thank you so much Fox12 Tag: rs.save SP2 Acccess Denied Tag: 620275
  - 15
    - How to get....... I wish to get the information number of received/sent data when I'm online/internet by a dial-up. How to get its information? Can u give its source code? and, Can I detect dial-up which I use to connect? Tag: rs.save SP2 Acccess Denied Tag: 620271
  - 16
    - Hex to dec conversion failed Why is vb converting Val(&HB000) to -20480 and not to 45056 ??? Whats going wrong ? Robertico Tag: rs.save SP2 Acccess Denied Tag: 620247
  - 17
    - how to find the nodes in treeview name:raj arul, mail_id:wait4u_itraj@yahoo.co.in i was created treeview,i added 1,0000 above treenodes. i am not able to find out number nodes.use the tree object find the number of nodes it is give negative number ,but i need fully postive number,plz reply me.adding nodes from tree it will verying.so i need Absolute value. *** Sent via Developersdex http://www.developersdex.com *** Tag: rs.save SP2 Acccess Denied Tag: 620246
  - 18
    - mscomm, can I force read only 1 byte to buffer? SGkgQWxsLA0KDQpTb21ldGltZXMsIEkgaGF2ZSB0byBwcm9jZXNzIHRoZSBBQ0sgYnl0ZSwgaXQg b25seSAxIGJ5dGUuDQoNCklmIEkgdHJ5IHRvIHJlY2VpdmUgZGF0YSBieToNCg0KQnVmZmVyID0g bXNjb21tMS5pbnB1dA0KDQpJIHdpbGwgcHV0IEFDSyBhbmQgREFUQSB0b2dldGhlci4NCg0KUTog Q2FuIEkgcmVhZCBvbmx5IDEgYnl0ZSB0byBteSBidWZmZXIgKCBvdGhlciBkYXRhIHN0aWxsIGtl ZXAgaW4gbXNjb21tJ3MgYnVmZmVyICk/DQoNCkJlc3QgcmVnYXJkcywNCkJva2ku Tag: rs.save SP2 Acccess Denied Tag: 620242
  - 19
    - Wierdo...No XP Theme on FlexGrid Ive read some articles on creating a manifest file so that on XP machines my controls display with the OS theme. This has worked great for the last couple years. Ive had a user recently report that the MSFlexgrid control does not appear themed. All other controls on the window do dipaly the theme including buttons and comboboxes. On my machine all controls including the Flexgrid appear themed. He has no theme software on his machine (ex: WindowsBlinds) so i am at a loss at why this happens. Any suggestions on where Ic an start to troubleshoot? Rgds, AGP Tag: rs.save SP2 Acccess Denied Tag: 620240
  - 20
    - Problems with kicking off an application via Scheduled Tasks Hi all, I'm having problems getting my application to run successfully through Scheduled Tasks, it works perfectly when kicked off manually, and I'm hoping someone out there can give me some clues... First of all, environmental factors. On the PC Win2k Server SP4 Outlook 2000 On the Remote Mailserver Win2k Server SP4 Exchange 2003 Description: - This application reads in a number of variables from an inifile, then connects to the exchange mailbox of the nominated user and scans for emails with a particular subject. When found, it saves the attachments of said email to the directory specified, and then moves the email to a processed folder (which already exists) When kicked off manually, the log files are full of what it's been up to, but when kicked off via scheduled tasks, it gets as far as creating the ScanDebug.txt file and hangs. If anyone out there can suggest what's wrong, or provide me with a better solution (that works) I'll be eternally grateful. As for what I've already tried, well.. - Adding in debug statements got me nowhere but confused... - kicking it off from a batch file instead did nothing (thought the starting dir might have been important).. - the user account has sufficient permissions in Exchange, and Network (specially built Admin account), and it's the same account used in both Manual starts and Scheduled Task starts... My suspicion is that the prob is somewhere around the LogonExchangeMailbox and GetDefaultFolder lines. Oh yeah, I'm using Redemption.dll to prevent the security warnings from spoiling my silent routine so without further ado, here's the code... --------------------------------------------------------------------------------------------------------------------------------------- Option Explicit Private FSO As FileSystemObject Dim strSender As String Dim strRecipient As String Dim strSubject As String Dim strServerName As String Dim strOutputPath As String Dim strProcessedFolder As String Dim strEmailServer As String Private Sub Main() 'This is the main control procedure, and kicks off the programs functions in order Initialise 'Reads in the inifile Scan 'Scans the designated mailbox Finalise 'Exits End Sub Private Sub Scan() Open "ScanDebug.txt" For Output As #2 'DEBUG Print #2, "Starting Scan" 'Variables for Objects Dim fso_FileHandle As FileSystemObject Dim oApplication As Object Dim oSafeItem As Object Dim oItem As Object Dim oInboxFolder As Object Dim oProcessedFolder As Object Dim oAttachment As Redemption.Attachment Dim oSession As Object 'Additional Variables for processing Dim msgSender As String Dim msgSubject As String Dim msgRecipient As String Dim strFileName As String Dim strFullPath As String Dim i As Integer Dim Result As Variant Print #2, "Variables declared" 'Setup the Redemption SafeMapi Objects and FileSystem Set fso_FileHandle = New FileSystemObject Set oApplication = CreateObject("Outlook.Application") 'Create the application Set oSafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem Set oItem = oApplication.CreateItem(0) 'Create a new Item oSafeItem.Item = oItem 'Associate the item with our SafeItem Set oInboxFolder = CreateObject("Redemption.MAPIFolder") 'The Inbox Folder Set oProcessedFolder = CreateObject("Redemption.MAPIFolder") 'The folder to move the message to once processed Set oSession = CreateObject("Redemption.RDOSession") 'Establish a session Print #2, "Objects assigned, logging in" Result = oSession.LogonExchangeMailbox(strRecipient, strEmailServer) 'Logon to the mail server Print #2, "Logged in" 'Setup the folders 'Outlook 2000 Set oInboxFolder = oApplication.Session.GetDefaultFolder(olFolderInbox) Set oProcessedFolder = oInboxFolder.Folders(strProcessedFolder) Print #2, "Folders established" 'Scan the mailbox For Each oItem In oInboxFolder.Items msgSubject = oItem.Subject Print #2, "Scanning msg:" & msgSubject If (msgSubject = strSubject) Then Print #2, "Match Found" i = 1 While (i <= oItem.Attachments.Count) Print #2, "Saving Attachment #" & i strFileName = oItem.Attachments.Item(i).FileName strFullPath = strServerName & strOutputPath & strFileName oItem.Attachments.Item(i).SaveAsFile strFullPath Print #2, "Attachment #" & i & "Saved" i = i + 1 Wend Print #2, "Moving Message" oItem.Move oProcessedFolder Print #2, "Message Moved" ' End If End If Next Print #2, "Cleaning up Objects" Set oItem = Nothing Set oSafeItem = Nothing Set oApplication = Nothing Set fso_FileHandle = Nothing Set oProcessedFolder = Nothing Set oInboxFolder = Nothing Set oSession = Nothing Print #2, "Objects Closed" Close #2 End Sub Private Sub Initialise() Dim InputData Open "InitDebug.txt" For Output As #1 'DEBUG Print #1, "Starting Initialise" 'Initilisation Dim strPath As String Dim strInifile As String Dim strNameFile As String Dim lockfile As String Print #1, "Reading inifile" strInifile = App.Path & "\emailScanner.ini" Print #1, "strInifile=" & strInifile strSender = GetStringFromINI(strInifile, "Sender") Print #1, "strSender=" & strSender strRecipient = GetStringFromINI(strInifile, "Recipient") Print #1, "strRecipient=" & strRecipient strSubject = GetStringFromINI(strInifile, "Subject") Print #1, "strSubject=" & strSubject strServerName = GetStringFromINI(strInifile, "ServerName") Print #1, "strServerName=" & strServerName strOutputPath = GetStringFromINI(strInifile, "OutputPath") Print #1, "strOutputPath=" & strOutputPath strProcessedFolder = GetStringFromINI(strInifile, "ProcessedFolder") Print #1, "strProcessedFolder=" & strProcessedFolder strEmailServer = GetStringFromINI(strInifile, "EmailServer") Print #1, "strEmailServer=" & strEmailServer 'check that ServerName is in the format \\ServerName\ If Left(strServerName, 2) <> "\\" Then strServerName = "\\" & strServerName End If If Right(strServerName, 1) <> "\" Then strServerName = strServerName & "\" End If Print #1, "strServerName=" & strServerName 'strip leading '\' off the Output Directory - it's already been added by the servername If Left(strOutputPath, 1) = "\" Then strOutputPath = Right(strOutputPath, (Len(strOutputPath) - 1)) End If 'check that the Output Directory ends with a \ If Right(strOutputPath, 1) <> "\" Then strOutputPath = strOutputPath & "\" End If Print #1, "strOutputPath=" & strOutputPath 'check that the folder exists, and create it if it doesn't If Dir(strServerName & strOutputPath, vbDirectory) = "" Then Print #1, "Creating Dir =" & strServerName & strOutputPath MkDir strServerName & strOutputPath Print #1, "Created Dir =" & strServerName & strOutputPath End If Close #1 'Close file. End Sub Public Sub Finalise() End End Sub Function GetStringFromINI(INI_FILE As String, strParam As String) As String Dim FSO As FileSystemObject Dim ts As TextStream Dim strRetVal As String Dim strLine As String Set FSO = New FileSystemObject Set ts = FSO.OpenTextFile(INI_FILE, ForReading, False) While Not ts.AtEndOfStream strLine = ts.ReadLine If strLine Like strParam & "=*" Then strRetVal = Right(strLine, Len(strLine) - InStr(1, strLine, "=")) End If Wend ts.Close GetStringFromINI = strRetVal End Function Tag: rs.save SP2 Acccess Denied Tag: 620236
  - 21
    - enable/disable hosts file is there a vbs script that allow me to quickly enable and disable c:\windows\system32\drivers\etc\HOSTS if enable then disable if disable then enable Tag: rs.save SP2 Acccess Denied Tag: 620235
  - 22
    - Sector Size VB6 SP6 Need to get sector size of any hard disk. Running Win XP. GetDiskFreeSpace can do this for older OS, however reading the help description implies bad data returned for sector size on larger >2G drives. Also, where is Win32API.txt or .MDB or equivalent for things like GetDiskFreeSpaceEX and other recent APIs? Tag: rs.save SP2 Acccess Denied Tag: 620234
  - 23
    - Converting 4 bytes into Long Hello, I use CopyMemory() to convert 4 bytes into long like that: Dim lMediaID As Long CopyMemory lMediaID, b.bBytes(0), 4 lMediaID is a retrieved object handle used in another API. However that another API complains about invalid handle, which puts in doubt the above conversion. What can be wrong in that scenario? Frank Tag: rs.save SP2 Acccess Denied Tag: 620231
  - 24
    - How to clear/CLS debug window ? SGkgQWxsLA0KDQpDb3VsZCB5b3UgcGxlYXNlIGFkdmljZSBob3cgdG8gY2xlYXIvQ0xTIGRlYnVn IHdpbmRvdyA/DQoNCkJlc3QgcmVnYXJkcywNCkJva2ku Tag: rs.save SP2 Acccess Denied Tag: 620221
  - 25
    - MScomm maximum receiving size RGVhciBBbGwsDQoNCldoZW4gSSBzZXQgDQoNCklucHV0QnVmZmVyU2l6ZSA9IDEwMjQwIA0KDQph bmQgDQoNCklucHV0TGVuID0gMA0KDQpidXQNCg0KSSBjYW4gb25seSBnZXQgMzIwQnl0ZSBhIHRp bWUuLi4sIGJ1dCBteSBkZXZpY2Ugd2lsbCBzZW5kID40S0IgYSB0aW1lLg0KDQpQLlMgSSBhbSB1 c2luZyBhIHZpcnR1YWwgc2VyaWFsIHBvcnQgYnkgQmx1ZXRvb3RoLg0KDQpCZXN0IHJlZ2FyZHMs DQpCb2tpLg0K Tag: rs.save SP2 Acccess Denied Tag: 620213

I use the ado and rs.Save strParamFile, adPersistXML command to
save same data in the local network.

It used to work fine until both (file server and client) became XP SP2.
Now I get an 'Access Denied' error (in a dag??.tmp file i think)

What is confusing me is that is still working fine when one of the PCs is
either with Win98 or with earlier version XP (or the server with earlier XP
version and
the client with XP SP2).

What do i have to change in XPs security or in the code?

Top