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!

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

Recent content by VICKEL1

  1. VICKEL1

    display member

    What do you mean strCode is in the combo (do you mean it is a property that you want to display)? DisplayMember isn't how you get the SelectedItem of the combobox if that is what you are trying to do. It is a value in the combo box that I want to be highlighted on the combo?
  2. VICKEL1

    display member

    strCode = "RR" Me.ComboEvent.DisplayMember = strCode Where strCode is in the combo. Why is this value not being displayed in my combo box?
  3. VICKEL1

    format issue

    I have a string "01/12/2006" and i need to format it to dd-mmm-yyyy (01-Dec-2006).
  4. VICKEL1

    dbisnull

    Dim cmdText As String Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i As Integer Dim strTest As String con.Open("Driver={SQL Server};Server=..........") cmdText = "Select * from ........." rs.Open(cmdText, con) i = 0 While Not rs.EOF...
  5. VICKEL1

    dbisnull

    It is in a with block and the error message is: An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in adodb.dll Additional information: Item cannot be found in the collection corresponding to the requested name or ordinal.
  6. VICKEL1

    dbisnull

    I am receiveing an error on this line of my code, If Not IsDBNull(CStr(rs.Fields("a_date").Value)) Then .Items(i).SubItems.Add(CStr(rs.Fields("a_date").Value)) End If Any ideas?
  7. VICKEL1

    Business Objects Infoviewer

    I have had the same problem and I used a formula such as: If Instr(1,cstr({field1}),".") > 0 Then formula = left(Totext({field1}),len(Totext({field1})) - 3) End if to get rid of the decimal places. However, when you have more numbers (grouped) e.g. 101, 6 the numbers do not sort properly...
  8. VICKEL1

    Connecting to Oracle

    I am connecting to an Oracle database using a connebction string. However, I am getting the error Run time error '-2147217871 (80040e31)' [Oracle][ODBC][Ora]ORA-01013: user requested cancel of current operation. My connection string is Set con = CreateObject("ADODB.Connection") Set rs =...
  9. VICKEL1

    Calendar Control

    I would use the mouse down event
  10. VICKEL1

    Calendar Control

    You cannot use the lost focus event on a text box!!
  11. VICKEL1

    Text in Excel from SQL

    This doesn't work due to For rowIndex = 1 To rs.RecordCount, is equal to 1 to -1. Any ideas?
  12. VICKEL1

    DB variable Name

    I have a 3 part DB naming convention such as DB1.dbo.client Is there any way to make the first part into a variable such as; DECLARE @DB as varchar(20) SET @DB = 'DB1' SELECT * FROM @DB + '.dbo.client' Any help would be appreciated
  13. VICKEL1

    SQL with Excel

    rs.open is before 'cmdText = "Execute sp_test 116,'16-May-2005',30,60,90,120" 'Open connection rs.Open cmdText, con
  14. VICKEL1

    SQL with Excel

    Missing the Columns Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") con.Open "Driver={SQL Server};Server=Server;Database=Database;Uid=USERID;Pwd=Password;" If rs.EOF = False Then 'get field headings from db For i = 0 To...
  15. VICKEL1

    SQL with Excel

    I have created an ADODB connection to a sql server 2000 database. However, when I use the copyfromrecordset command I don't get all the data back. The field which the command doesn't like is a field declared as text with a length of 16. Is there any other way I could get the data?
See more

Part and Inventory Search

Back
Top