I am moving from SQL 2000 to SQL 2008. The SQL 2000 is on a Server 2003. SQL 2008 is on a Server 2008. I have imported my database successfully. I am able to perform queries and they work fine. I use a VB6 program running in the IDE to update the database. When my VB6 program runs on a server 2003 the program will connect using the fol...
Completely unexpectedly, I (a webdeveloper, with a decent knowledge in OO), am tasked to re-design our old flagship Windows-application and drag it screaming and kicking into the next century. Here's what we have now: 15 year old code, originally written in Delphi, about 8 years ago ported to Visual Basic (Kept in Visual Studio 2008)....
I want to generate 10 different numbers from a range of 0-9. the desired output may look like this, 9 0 8 6 5 3 2 4 1 7 Dim arraynum(9) As Integer Dim crmd As Boolean Dim rmd as integer For i = 0 To 9 arraynum(i) = -1 Next i crmd = True Randomize Timer For i = 0 To 9 rmd = Int(Rnd * 10) For j = 0 To 9 If arraynum(j...
HI, I have two recordsets rs1 and rs2 in vb6. i want to compare each record in rs1 with each record in rs2. If rtn(column) in rs1 is same as in rtn in rs2.then set date = now and claim = c. This is what i wan to do. How to compare each row in rs1 with each row in rs2. Help me pls. ...
Hi, I Have recordset rc1 that reads values from txt file. The fields are rtn, amt, name. Now I get the data from table t_rec and assigned it to another recordset rc2. and compare with the recordset rc1. If rd1.Fields![AccountNbr] = rc2.Fields![RTProvided] Then Set rc2.Fields![ClaimStatus] = "c" rc2.Fields![DateClosed...
I'm having a hard time converting this C++ code to VB6 code. I've search the net and haven't found anything. PInvoke.net only has reference to VB.NET code. Here's the code from MSDN: BOOL IsUserAdmin(VOID) /*++ Routine Description: This routine returns TRUE if the caller's process is a member of the Administrators local group. Caller i...
I'm using a variant on code seen in "How to make XMLDOMDocument include the XML Declaration?" (which can also be seen at MSDN. If I change the encoding to "UTF-16" one would think it would output as UTF-16... and it "does"... by looking at the output in a text editor; but checking it in a hex editor, the byte-order mark is missing (despi...
How do I run Google Voice from Visual Basic 6? ...
I have vb6 apps that runs without any problems for hours on vista/32/64 or win7/32/64 and Xp32/64 machines. It sometimes hang in XP machines but I can just close the app in Task Manager then restart without any problems. Now with Vista/Win7, it still hangs after several hours then I close the apps with Task Manager then restart the app...
Hi I have a recordset rcdDNE. I want to update my reclamation by making some condition with my existing recordset. But my table is not updating. Can you guys tell me where I ma doing wrong. Dim lngRecCount As Long frmDNELoad.lblStatus.Caption = "Updating records in Reclamation Table..." frmDNELoad.Refresh CqDate = Format(Date, "dd/...
Hi, I’m struggling to write what I want to do as I’m not at all familiar with Microsoft Project so I hope someone can grasp what I’m after, lol! I am creating tasks from code and settings the predecessors; however I also need to "indent" (Alt+Shift+Right) rows so that there sub grouped (subtask) to the row/task above. Any help much w...
Hi, When I am trying to execute the program I am getting an error like "operation is not allowed when the object is open". I am geeting error in second part of the code where .Source = "SELECT * FROM t_data_Comments Sub DneFroceClose() Dim lngRecCount As Long frmDNELoad.lblStatus.Caption = "Updating records in Reclamati...
Hi I am getting error : ActiveX component can't create object. Actually I have VB6 Dlls where business logic is reside and I am calling that dll function in my vb.net application , all dlls are dependent on other dlls.I am getting the error from one of the dlls waiting for you valuable thoughts Thanks ...
Hi all, I've been trying to use the wininet.dll api to search an ftp site for matching files but it's not working for some reason. Here's the method i've been using. Private Sub DoStuff() Dim hConnection As Long, hOpen As Long, sOrgPath As String, lRes As Long Dim scUserAgent$ scUserAgent$ = "vb wininet" hOpen = Inte...
Hi, How add leading zeroes to a number. For example Dim stracctnumber as String stracctnumber = 987654321 if stracctnumber is less than 15 characters, then add leading zeroes to the account number so final number should be stracctnumber = "000000987654321" Can anyone help me. Thanks ...
Hi! My VB.NET application uses Microsoft Flex Grid Control 6.0. This is a legacy application which has been ported from VB6 with the Visual Studio conversion wizard. Although I can compile the assembly, I get a COMException because some class is not registered. I've found out that this class is the Microsoft Flex Grid Control 6.0. Wher...
I have a VB6 application that still references some old VB5 libraries (dll, vbr, tlb, and ocx). We're having some strange issues like it can't read the registry using advapi32.dll. I've tried running the application with UAC permissions, but still no go. We can't recompile the app because it has several controls and components that canno...
What are the improvements in vb.net compared to vb6 that make developing such an application easier? ...
how to show max time in first row and min time in second row for access using vb6 ...
I want your thoughts on why or (why not) this statement should (or should not) be used. Since this is a little subjective, here is my criteria: Upvotes given for concrete reasons (as opposed to unreasoned opinion). Final answer accepted will be the most comprehensive answer. ...