Search:

OK I looked it up .. it was codesmart I was thinking about. very much worth a look if you're still coding in VB6
https://www.axtools.com/products-codesmart-vb6.php

ya know it has been a really long time. I could be remembering wrong, or confusing it with an auto indenter or something. Hell maybe I even had another addin back then . . .

I used to use MZTOOLS when I used VB6. Awesome addin. Lots to like about it, but one thing that stands out was the dotted lines that showing which if's belonged with which else's and end if's. If...

good thought sapator . . . I might give that a shot once I get back on my timeline. Thanks much for your suggestion

THAT DID IT!!!!!! Much thanks to you, sir!

connectionString = "Data Source=(localdb)\v11.0;Integrated Security=true;Pooling=False;AttachDBFileName=C:\dbfile.mdf"

EDIT TO NOTE: THIS WASNT...

Thanks jmcilhinney . . . Im going to try some more things based on your comments.

Thanks Zvoni
1) I am looping through hundreds of mdf files inside a folder and changing a value in each of them. I am very new to vb.net db programming. Is there a better way to do this?
2) No the...

Just drug back in with a db question after being away from here for awhile. Joined Feb 15th, 2001 . . . 18 years and change. Seems unreal. A surprisingly large number of mod user names I...

Well it's been a while. It's awesome to see this place still thriving after all of these years.
I've got an error I cannot figure out after much online searching. Ive tried all sorts of things but...

Need a full time programmer in the Houston area. Might consider a half time programmer with the right skills. This is for an application conversion from VB6 to C++. Must have intimate knowledge of...

Need a full time programmer in the Houston area. Might consider a half time programmer with the right skills. This is for an application conversion from VB6 to C++. Must have intimate knowledge of...

Yikes!! I forgot a critical loop, so it wont work as I originally posted in all cases, I dont think. Try this instead (untested):



Sub specialSort(ByRef mArr() As Integer)
Dim i As...

here's another alternative. I think it does what I think you asked for :)



Sub specialSort(ByRef mArr() As Integer)
Dim i As Integer
Dim temp As Integer

For i = 1 To...

not sure I understand the question. Once you load the arrays up with data, the data won't change unless you change it yourself (by sorting the array for example). If you loop through and find that...

label1.caption = Fix(Rnd() * 10)

max = 1
For Counter = 2 To 5

If clock(max) < clock(Counter) Then

max = Counter

End If

Next

if it is more than a couple of pieces of info per card, I'd probably use a UDT:




'IN A MODULE:
Public Type tGraphicsCards
Manufacturer As String
Cost As Currency
ClockSpeed As...

it's too painful to read in this format ;)
please:
1) indent your code
2) put it in code tags when posting
3) specify which line the error occurs on

From: http://msdn.microsoft.com/en-us/vbasic/ee413549

"Microsoft will support your existing Visual Basic 6 components and applications through the lifetime of Windows 7 client and 2008 R2 server."...

Recordcount returns -1 for forwardonly cursors. Try specifying the cursor type:

rs = New ADODB.Recordset, adOpenStatic

also, sometimes you have to "jiggle" it to get the recordcount property...

try the code below on a text file (C:\test.txt) with the following contents:

linea
line1
my line to find
line2
line3
line4

If you can determine the exact byte position of the line, and the exact number of bytes of the line, maybe you could map a network drive and open the file for binary access and Put the new string in....

Passing a string to/from a Windows API dll, for example, requires "allocated space" in the string variable. Ive seen this done by dimming the string as fixed length (dim strVAR as String*512) and...

Seems there must be an issue with my VS2010 which is odd since I just recently installed it. I have a side by side installation of VS2008 that I tried this in. It works with some issues which were...

you cant dim a public array inside the form code module. Youll have to insert a new code module and put it there. Im surprised youd didnt get a specific warning stating that when you tried to run...

try this: put your header print outside the loop. then replace all those print statements with a single print with the database column data delimited by vbtab.

edit: guess that isnt a header...

assuming the text is all in a single string variable:



Dim strText As String
Dim a() As String
Dim i As Integer
strText = " Name: XXXX XXXX" & vbCrLf & " Age : 23" & vbCrLf...

I cant seem to make this statement work in a header file (Visual Studio 2010):

#import "msado15.dll"

Ive also tried the full path to msado.dll. Ive tried to clean the solution and full...

just realized after reading your other post that you are using the WMP control. Try this:



Option Explicit
Dim strFileName As String

Private Sub Command1_Click()
...

Use a control array. Do this by adding index numbers in the property window for your button(s).

Then:



Dim a() As String

Private Sub Command1_Click(Index As Integer)
Text1.Text =...

read the whole file into an array and and display the text from the array element corresponding to the line number. Of course, load the array just once (form load event maybe) and not everytime user...

Dim strFileName As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters...

Drop an SSTab ( TABCTL32.OCX ) control on a form.
Right click the SSTAB control - properties - set tabcount and tabsperrow to 4
Left click Tab0 - put a grid (Grid1) in the tab container
Left...

Can anyone recommend a good intensive C++ (or VC++) course that is geared toward people with other (non C) language programming experience (Basic and VB6)? I wouldnt want to spend any time on...

Maybe you're confusing the use of SSTab control with the regular Tab control.

The SSTab control has a container for each tab ... each container would have its own Textbox, grid, label, etc to...

Sure, just get rid of the timer altogether and call the sub once (from the formLoad event, or a button click, or a menu option, etc). What's the intended purpose of using the timer, anyway?

about $10 plus postage from YankeeRebel? :)

Select Case UCase(txtUserName.Text & "HSFC")
Case "ADBHSFC", "CDEHSFC", "FGHHSFC", "XYZHSFC" ' etc but type upper case only
' ok, username acceptable
Case Else
' display...

just to clarify on your code i loaded into a new project:

overall the sub with the loop is being called 155 times as expected.
each call causes 4 Prints as expected.
overall file there are 620...

try this


Dim recognizedUsers As String
recognizedUsers = "|ADB|user1|user2|user3|"
If len(txtUsername.Text) > 1 and InStr(recognizedUsers, txtUsername.Text) > 0 Then
'username is valid...