importing data from an ODBC datasource using a filter

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Saving a pic Hi, Maybe you could make use of the code in Stephen Bullen's PastePicture example http://www.oaltd.co.uk/DLCount/DLCount.asp file=PastePicture.zip Tag: importing data from an ODBC datasource using a filter
  - 2
    - Setting a header to all pages except the cover sheet Is it too difficult then Tag: importing data from an ODBC datasource using a filter
  - 3
    - Possible to run code after Word closes? u can open other word doc, and kill this one, no Tag: importing data from an ODBC datasource using a filter
  - 4
    - Bucket ID 8 Same is the case with me. For all the reports at my end, bucket id mentioned is 8. Also, when you login to Winqual, there also I can't find the bucket id - only event id is noticeable. Can anybody tell me how to find the bucket id of a particular reports in Winqual server Thanks, DHON Tag: importing data from an ODBC datasource using a filter
  - 5
    - ISV application supported by vista I haven't seen the final RTM list, but here's a good list to start with: http://forums.microsoft.com/TechNet/ShowPost.aspx PostID=801350&SiteID=17 You might also find some helpful info on http://msdn2.microsoft.com/en-us/windowsvista/aa904987.aspx . -brenda (ISV Buddy Team) Tag: importing data from an ODBC datasource using a filter
  - 6
    - runtime 2465 can't find field "|" referred to in your expression hI Try replacing [tblCodedCuttingTool]![ToolCode] with Tools!ToolCde Tag: importing data from an ODBC datasource using a filter
  - 7
    - asynchronous communications It looks like I'm answering my own questions. The control to use is BackgroundWorker. See this link: http://msdn2.microsoft.com/en-us/library/8xs8549b.aspx gives an overview, seems to be what I need for asynchronous communications in a box. regards, the elephantwalker Tag: importing data from an ODBC datasource using a filter
  - 8
    - vlookup Hi, How about some like this Dim rngLookupValue As Range Dim rngtable As Range Dim lngColIndex As Long Dim blnRangeLookup As Boolean Set rngLookupValue = Range("O2") Set rngtable = Workbooks("Consolidated list of supplier.xls").Worksheets("Sheet3").Range("$A$5:$F$218") lngColIndex = 6 blnRangeLookup = False vntResult = Application.WorksheetFunction.VLookup(rngLookupValue, rngtable, lngColIndex, blnRangeLookup) Tag: importing data from an ODBC datasource using a filter
  - 9
    - Mouseover event on shapes (Excel 2003) Excel's Shape object exposes no events to the object model, so your code cannot detect a mouseover. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: importing data from an ODBC datasource using a filter
  - 10
    - VBA ADO Error Handling Method Instead of Resume Next you move to some label ' Add Data to Database from the Array For r = 1 To p_maxRole rs2.AddNew rs2("AUserID") = Data(r, 1) rs2("RoleID") = Data(r, 2) rs2("Priority") = Data(r, 3) rs2.Update Next r NextData: 'Error Handling Procedure myErr: If Err <> 0 Then q.Cells(MaxRow, 1).Value = Data(r, 1) q.Cells(MaxRow, 2).Value = Data(r, 2) q.Cells(MaxRow, 3).Value = Data(r, 3) q.Cells(MaxRow, 4).Value = r q.Cells(MaxRow, 5).Value = Err.Description MaxRow = MaxRow + 1 Go to NextData End If This should stop the repetitve error. You can do this if you do not want to update the DB in case of error. Just in case you want to update the DB for error, have a boolean variable that gets reset with every entry Cheers Shasur Tag: importing data from an ODBC datasource using a filter
  - 11
    - text parsing in excel 1. select the whole datasheet if the problem is in whole datasheet, otherwise select the section containing the problem 2. do CTRL + H 3. in "Find what" type 5 spaces (press space bar 5 times) 4. in "Replace with" don't put anything 5. press replace all. things should look good after it. Just to be safe, make a backup of the file as well to revert back to, in case if any problems occur... Tag: importing data from an ODBC datasource using a filter
  - 12
    - Combobox behaving oddly! If you wish to expand and contract the Range Name as you are inserting and /or deleting data, you may wish to use the following Excel Function to Define a Range named MyOffsetRange (or whatever name is used to load the ComboBox): Tag: importing data from an ODBC datasource using a filter
  - 13
    - Possible to run code after Word closes? u can open other word doc, and kill this one, no Tag: importing data from an ODBC datasource using a filter
  - 14
    - how to get the hyperlink value from an excel sheet cell Hi Does this help Code Snippet Dim hl As Hyperlink For Each hl In Sheet(N).Hyperlinks MsgBox "Range " & hl.Range.Address & " addr " & hl.Address & " text " & hl.TextToDisplay Next hl Regards Peter Mo. Tag: importing data from an ODBC datasource using a filter
  - 15
    - Printing using the Microsoft Office Document Image Writer printer and C# Hi all, I am trying to print, without user interaction, a PDF file to the Microsoft Office Document Image Writer. If use System.Drawing,Printing.PrintDocument, I'm able to set the destination file but when it gets to printing the file, I can't since it has to know how to render the PDF file. Now, I tried using the print command in the command prompt but when I want to specify the Microsoft Office Document Image Writer it says it can't initiliaze the printer. Can anybody give me a hand on this one I want to do it either way. For those who don't know the print command do the following: Go to Start Click on Run Type cmd if you are using XP Type print in the command line Thanks in advance, Tag: importing data from an ODBC datasource using a filter
  - 16
    - Complex report generation from datatable..challenging one plz help I have created datable which normally has 5000 records upto 1 lakh records depending on runtime value....i want to display rows of datatable to user in particular format... 1] odd rows with yellow back ground 2] even rows with green back ground 3] if value of cell in odd rows is not eqaul with value of cell in even row then both cells's text should be bold and with red color given pic is view that report should look like right now i am doing by putting that data in excel programatically using excel object but it is very slow....it takes hell lot of time ....15-20 minutes just for 300 rows only then i tried to write those data as html table format and generated .html file and i opened it with excel....got happy that it is done in some seconds but when opening with excel i found that it gets hanged if it has more than 10000 rows....so now i am totally stuck is it possible to get it done using xslt transformation and how will color font color in xslt at run time by matching data or any other way to represent table content with same formating but in any other file format please help.... Tag: importing data from an ODBC datasource using a filter
- Next
  - 1
    - VBA help with a conditional Subscript out of Range Hi, Could you make use of the LBound() and or UBound() functions For i = lbound(ResultsTrend2) to ubound(ResultsTrend2) Tag: importing data from an ODBC datasource using a filter
  - 2
    - 2 Small Macro problems. Hi, For problem 1, you can set the Application.DisplayAlerts property to False. It's prudent to set it back to True afterwards however, or Excel could need to warn you of something and you wouldn't know about it. Sub DeleteInstructions() ' ' DeleteInstructions Macro ' Macro recorded 3/13/2007 by Gary Beckwith ' Application.DisplayAlerts = False Sheets("INSTRUCTIONS").Select ActiveWindow.SelectedSheets.Delete Sheets("DATA").Select Application.DisplayAlerts = True End Sub For problem 2, the Close method has an optional SaveChanges parameter, which if you set to False, should eliminate the save prompt dialog. Alternatively, you could completely ommit the Save method and just call the Close method and pass True to the SaveChanges parameter. Tag: importing data from an ODBC datasource using a filter
  - 3
    - MSDN Download You might be able to find out for sure by emailing the MSDN Subscription team. Here's a contact form: http://blogs.msdn.com/msdnsubscriptions/contact.aspx -brenda (ISV Buddy Team) Tag: importing data from an ODBC datasource using a filter
  - 4
    - some mp3 play some others don't *Cough* Wrong forum. Tag: importing data from an ODBC datasource using a filter
  - 5
    - Access Data Project - Selecting Data What are the best pratices on selecting single values from SQL Server tables (ADO) in VBA code in an Access Data Project The command.execute method returns a ADODB.Recordset so a SQL SELECT statement can be executed and moving to the first record of the recordset to get the value. But seems a little extreme to lookup one value. The DLoookup methods used for Access tables (DAO) are not available for ADO. In .NET there is a sqlcommand.executescalar which returns a single object. What is the recommended method to select a single value from a SQL table Tag: importing data from an ODBC datasource using a filter
  - 6
    - Vlookup in VBA Although VLOOKUP and LOOKUP do appear in the Help information in Excel, I have never managed to get them to work from VBA. Instead, when I need to do the type of lookup that you're trying out here, I have to use the .FIND command to hunt for my value in one column, and then grab the value I need from the next column. To make matters worse, I also need to add an error handling routine. This is because the .FIND action generates error 91 if it does NOT find the data I'm looking for. That was all rather long to put into words. If you change your code to use .FIND, it may end up looking like this - give it a shot. '********************************************************************************************************* Sub proScoreCard1() On Error GoTo Err_proScoreCard1 ' Error trapping command. Dim rng As Range Dim tradeDate As Date Dim confirmDate As Date Dim t1mDate As Variant Dim nmRow As Double ' Store the number of the row where we find TRADEDATE. Set rng = Range("H2") tradeDate = rng.Value confirmDate = rng.Offset(0, 4).Value Do Until IsEmpty(rng) ' Step 1: Go down the first column, looking for the value we need. With Worksheets("Sheet1").Range("A2:A62") Set vrFound = .Find(tradeDate) nmRow = vrFound.Row ' If it's not found, error 91 will be generated at this point. End With t1mDate = Cells(nmRow, "E") ' This is the cell (row & column) where we find T1MDATE. ' If we got here, then the value was found, so we need to do some more work. If nmRow <> 0 Then If confirmDate <= t1mDate Then rng.Offset(0, 5) = "X" Else rng.Offset(0, 5) = "" End If Set rng = rng.Offset(1, 0) End If Loop ' New error handling section added - to cater for error 91. Exit_proScoreCard1: Exit Sub Err_proScoreCard1: Select Case Err.Number Case 91 ' This happens if we can't find the value we want. Resume Next End Select Resume Exit_proScoreCard1 ' If we got here, then we don't know what the hassle is - so ' it may be better to just leave! End Sub '********************************************************************************************************* Let us know how it goes. Tag: importing data from an ODBC datasource using a filter
  - 7
    - common dialog not returning file names. Hi everyone. i have a vb script that is imbeded in an html page (hta). when i use the common dialog flags = cdlOFNAllowMultiselect the file list is present in the filename object and are separated by a space. however when i use dialog flags = cdlOFNAllowMultiselect Or cdlOFNExplorer the files that i selected on the dialog box, are not present in the filename object. the only thing that's there, is the path to the files. here's the code: Const cdlOFNAllowMultiselect = 512 Const cdlOFNExplorer = 524288 Set ObjFSO = CreateObject("UserAccounts.CommonDialog") ObjFSO.Filter = "All Files|*.*" ObjFSO.FilterIndex = 1 ObjFSO.InitialDir = "c:\" ObjFSO.Flags = cdlOFNAllowMultiselect or cdlOFNExplorer InitFSO = ObjFSO.ShowOpen selected_files = ObjFso.FileName msgbox selected_files the variable "selected_files" should have the file names. but it only shows path. any ideas why this is and how can i get the files names thanks so much. Tag: importing data from an ODBC datasource using a filter
  - 8
    - Writing result in Excel Hi, I am not sure what you are looking to return in the cell, but I think you may just need to change the variable type of the function to variant . As is, you have declared it as Double and that does not jive with adding text to the output. Joe Public Function DgrMinSec2DecDgr(Angle As Double) As Variant ' * Variables Dim grd As Integer Dim min As Integer Dim sec As Integer Dim calc As Double ' * Values grd = Angle \ 1 calc = (Angle - grd) * 100 min = calc \ 1 calc = (calc - min) * 100 sec = calc \ 1 DgrMinSec2DecDgr = grd + (min / 60) + (sec / 3600) DgrMinSec2DecDgr = "Write Sel " & Round(DgrMinSec2DecDgr, 4) End Function Tag: importing data from an ODBC datasource using a filter
  - 9
    - Inserting Comments in Excel...from a Beginner Here's one possible solution. It assumes that, by comments, you are referring to the yellow post-it type comments that pop up when you hover over a cell (I'm actually not aware of any other type of comment anyway, but just in case!). I have made bold the particular part of the code that answers your question. The rest is just a suggestion. Sub AddComments() Dim dataRange As Range Dim cell As Range 'Prompt user to define range containing values in Sheet2 and set dataRange accordingly Set dataRange = Application.InputBox("Select range containing the values to convert into comments", Type:=8) 'Loop through each cell in the specified range, ignoring blank cells For Each cell In dataRange.SpecialCells(xlCellTypeConstants).Cells 'Add a cell comment in the corresponding cell in Sheet1 Sheets(1).Range(cell.Address).AddComment (cell.Value) Next End Sub Tag: importing data from an ODBC datasource using a filter
  - 10
    - About SAP MM and SD I am afraid you have posted this by mistake. This is not the forum for SAP Tag: importing data from an ODBC datasource using a filter
  - 11
    - Excel-Capture the sum of Highlighted Range See this thread: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1493182&SiteID=1 It should be applicable to your scenario also. Tag: importing data from an ODBC datasource using a filter
  - 12
    - LCS 2005 Not Showing Options in Administrative MMC Never mind. I created my own MMC and I can access it through that interface. Tag: importing data from an ODBC datasource using a filter
  - 13
    - adding text to cell with vba script Try this. Cells(i, 3).FormulaR1C1 = "Hello World" Cells(i, 3) returns a range obejct. And formula is part of the range object. Tag: importing data from an ODBC datasource using a filter
  - 14
    - How to test Com Addin for ISV test Most add-ins for Office can be Platform Tested on the Windows Client and Microsoft Office test components, however, if you could provide more information about the product, I could look into it to make sure it qualifies. thanks, -brenda (ISV Buddy Team) Tag: importing data from an ODBC datasource using a filter
  - 15
    - Dear DMan1 could you just be a little more explicit about how I name the Sub1? Public Sub MyBatch() Call Sub1 Call NameOfSub2 Call Sub3 Call ..... End Sub Tag: importing data from an ODBC datasource using a filter
  - 16
    - VBA + Bloomberg If you're building a macro to retrieve data, you can add the code that will paste special in the same macro. Tag: importing data from an ODBC datasource using a filter

ntownsend

How can I use a filter on an import table into my Access database Do I use SQL statements in a module or VBA

Top