Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: kskinne
  • Content: Threads
  • Order by date
  1. kskinne

    VBA to conditionally delete rows - need faster method

    I have some code containing a for next loop, which loops through the rows in my range in reverse from bottom to top, and conditionally deletes entire rows from my range, if condition 1, 2, 3, 4 or 5 are true. There is about 4,000 rows in my range of data. This section of the code is taking about...
  2. kskinne

    help with code used to update multiple records from datagrid

    I have the following code in a VB6 project, which is used to update certain fields within selected rows within a datagrid tied to an ADO recordset. We are running into issues where this code seems to run very slowly, taking several seconds just to update one of the records. Does anyone see any...
  3. kskinne

    Runtime error 14 - out of string space

    I have been quite busy so have not been on the forum for a while. I have the following code in a project that I am using to load the contents of a text file, so that I can make changes to it and save to a new text file. Private Sub cmdBrowse_Click() 10 On Error GoTo cmdBrowse_Click_Error...
  4. kskinne

    round number up to the nearest 1/10th

    I apologize if this has already been covered in another threat, but I need a number to always round up to the nearest 1/10th using VB6 - for example: 1.2 = 1.2, no change - already rounded to nearest 10th 1.2222 = 1.3 1.29 = 1.3 1.2000001 = 1.3 Thank you, Kevin
  5. kskinne

    trigger question - multiple rows to insert?

    Posting another trigger question - using SQL2005 I have the following trigger that works fine if there is only one row for the trigger to insert: ALTER TRIGGER [updCommReceived_OtherPricePlans] ON [dbo].[TransactionEntry] FOR INSERT AS INSERT INTO c_CommReceived(StoreID, TransactionNumber...
  6. kskinne

    Need trigger to pull data from record right before inserted record?

    Using SQL 2005 I need a trigger that will run when a record is inserted in to the table, but the trigger needs to pull data from the record ID that was inserted right before the INSERTED record that initiates the trigger. I hope that makes sense. Is this possible? Is there a way that the...
  7. kskinne

    extracting bitmap from sql database

    Using VB6.0 and SQL 2005 - I have a table with a column that stores compressed bitmap images. I would like to extract these images for viewing, printing, etc., Can someone point me to some code that will allow me to do this? If you need any more information please let me know. Thanks, Kevin
  8. kskinne

    some sample code for inserting text into existing Word doc?

    I have a small program set up for submitting requests and getting those requests approved, whereby the program writes new requests to a table and keeps track of when they are approved, denied, etc., and it also sends an email notification when a request is submitted, when someone goes in and...
  9. kskinne

    Help - I need faster way to edit a LARGE text file

    I have the following code in a VB project that loops through each record in a text file and edit each record as necessary, in a new text file: Open myOldFileName For Input As #1 Open myNewFileName For Output As #2 Do Until VBA.EOF(1) Line Input #1, str1 If Left(str1, 2) = "11"...
  10. kskinne

    subscript out of range error on one workstation

    I have an app written in VB6 that we have deployed in an exe file. It uses ADO to connect to a database and open recordsets to either read data from or write data back to the database, based on user input in our front end. This seems to work just file from everyone's workstation except one...
  11. kskinne

    run-time error message 3001 when trying to open recordset?

    I have the following code tied to a command button: Private Sub cmdOK_Click() 'On Error Resume Next 'On Error GoTo Handler1: glbLogonMsg = "User ID and/or password is incorrect - please re-enter your login information." glbUserID = txtUser.Text glbCurPwd = txtPwd.Text Set glbADORS1 = New...
  12. kskinne

    save top N number of records in table and delete rest of records

    I need a query that will determine the top 4 records in my table that meet some criteria in a specific WHERE clause, then the rest of the records that meet the WHERE criteria but are NOT among the top 4 records based on my ORDER BY, would be deleted. Is this possible? Thank you, Kevin
  13. kskinne

    how to show users currently logged into server?

    Using SQL server management studio, how do I determine what user IDs are currently logged into the SQL server? I assume there is a way to do this? Thank you, Kevin
  14. kskinne

    rounding to nearest time increment

    I have a timeclock table with a timein and a timeout field, and I am using the following function(s) to return the time duration between timein and timeout, and display it in hours and minutes: CONVERT(CHAR(5), DATEADD(SECOND, DATEDIFF(SECOND, TimeIn, TimeOut), 0), 108) Here's what I need to...
  15. kskinne

    modify specific character positions in a text file???

    I have very large text files (over 200,000 rows) that I need to modify. Each row in each file is 211 characters long, and I need to modify all of the rows by replacing the four characters in positions 41-44, with the characters '9999'. The four original characters vary from row to row and are...
  16. kskinne

    how do I automate backup to a .BBK file extension?

    We have a fixed asset management program that has a utility for backing up the SQL database to a file with a .BBK extension. I am familiar with automating the backup of some of our other databases to a .BCK file, using an OSQL command in a batch file, and having the batch run as a scheduled...
  17. kskinne

    getting run-time error on a vbscript used in a dts package

    I have the following vbscript, running as an activex script inside a DTS package: Function Main() Set OpenFileDialog = CreateObject("MSComDlg.CommonDialog") With OpenFileDialog .DialogTitle = "Select Data Source" .Filter = "All Files|*.*" .FilterIndex = 4 .MaxFileSize = 1024...
  18. kskinne

    occasional problems w/ netgear wireless connection?

    We bought a Netgear Rangemax wireless router for our home, and set it up last night, I just used the CD and followed the instructions and it set up a connection without any problems. It seemed to connect just fine. We have the Netgear 108 Mbps wireless PC card we use for our laptop. Got a few...
  19. kskinne

    select file dialog box in vbscript??

    I recently got some vbscript put together and working correctly (because of the help on this forum, thank you), that prompts a user with an inputbox in which they enter a filename, and this filename is used as the datasource in a dts package: Function Main() Dim strFileName strFileName =...
  20. kskinne

    how to declare and set a variable in vbscript for DTS?

    I am trying to use the following code to set the values of some global variables in a DTS package: Function Main() Dim strFileName as String strFileName = InputBox("Enter file name without the file extension:") DTSGlobalVariables("gVarSourceFileName").Value = "C:\Documents and...

Part and Inventory Search

Back
Top