Search results for query: *

I have a bundle of applications running as NT Services and I would like to develop a console Application showing the status of these Services ie. running stopped, etc. Does anyone know how to check running services remotely ?

Hi there. This procedure can get quite complicated but I have a sample of code that might work. It assumes that the unique identifier is the first field in each record i.e strArray1(0) and strArray2(0). It compares each record identifier and if the numbers are out of sync then it writes the...

Hi there. I'm glad I could help. The following code should dump any records that exist in file1 but not in file2. I haven't tested it yet but it should be ok. Private Sub btnCompare_Click() Dim strRecord1 As String, strRecord2 As String Dim strArray1 As Variant, strArray2 As Variant...

I'm not sure where you can get any references but the code below should help you out. RichTextBox1.SetFocus SendKeys "{END}"

I'm not sure if this will work but you could try putting quotes (") around the full path name thereby telling it to use the long filename. Try the line below ad let me know if it works. strCT = "CREATE TABLE " & Chr(34) & OPath & "\" & OName & "(FMU SMALLINT...

Hi There I've included a sample of code I used (with slight changes !) that will compare all records in the CSV files. This will only work if there are no commas in the fields as it will treat these as field separators. On the Print# command, I am writing the contents of the record in file 2...

If EntryID is a Value rather than a string field then you should leave out the ' on both sides of the statement. ie. "select * from tblDiary where EntryID = " & txtID(Index).Text

Hi there The code is fine. I've tested it also and it works properly. How are you testing the resulting values ? Are you formatting the value in a certain way to view it ? If you add the following line in the For Loop you will see the results are correct. Debug.Print TestArray(i)

You're Almost there !!! Just a simple change below. Dim i As Integer Dim a As Integer Dim MyParts(2, 5000) As Variant For a = 0 To lvParts.ListItems.Count - 1 If lvParts.ListItems(a).Selected = True Then MyParts(0, a) = lvParts.listitems(a) MyParts(1, a) =...

Sorry CCLINT !!! Slip of the Hand !! Visual Studio Installer 1.1

Try downloading Visual Studio Installer 2.0 from Microsoft and using this to package your app. Works great for me !!!

Hi Bob, I hope this will help you. I've used the INSERT INTO statement a few times and came up with some restrictions. You need to get a variable list (called varlist below) and a values list (called valuelist below). varlist is a list of all the field names in the table you are going to...

Hi Bita This code should sort you out. Dim olapp As Word.Application Dim MnuItem As CommandBarControl Dim MnuCmd As CommandBarPopup Set olapp = CreateObject("Word.Application") olapp.Documents.Add Set MnuCmd =...

Hey there When setting up a mail merge in Word 2000 you have the option of selecting MS Query which in turn allows you to select the ODBC Data source required. When you select "Get Data" and "Open Data Source" you can click on the "MS Query" on the file box. Hope...

Hey there Do you know any Visual Basic ? If so, you can use VB to import and export from Outlook 2000 and build your own checks for overwriting, groups, etc. If you want a code example, let me know. Hope it helps !!!

Hi. Add DAO 3.6 to your project references and you will be able to connect to the Access 2000 Tables.