Error -2147024769 &"Method '~' Of Object '~' Failed&"...Help!!!
Help needed,
until yesterday everything was ok with every application I use, from today I got the error Error -2147024769
"Method '~' of object '~' failed" on connecting database procedure. I’ve tried to reinstall sp6 for vb6 mdac 2.8 and Jet 4.0 but nothing the error is the same again and again… I can’t use any application with database connection (oracle & Access). Any clue on this?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
ADO Command Object Returns A &"Method 'Execute' Of Object '_Connection' Failed&" Error
Hi you all,
I have a VB6 app using an Access XP back end.
I Use a function which returns a Read Only, Disconnected ADO Recordset (used to populate lists, combos etc. using minimal resources).
I use it all the time without a hitch.
It started returning a "Method 'Execute' of object '_Connection' failed" error called with a SQL which works just fine when it's used as a query in the Access DB.
Why should the Execute method fail if the SQL works well in Access' Query design window?
Any help will be highly appreciated.
Thanx!
Guy
The function is:
Function GetDisconnectedRS(ByVal sSQL As String) As ADODB.Recordset
Dim adoRS As New ADODB.Recordset
Dim ucmdGetDisconnectedRS As ADODB.Command
Set ucmdGetDisconnectedRS = New ADODB.Command
With ucmdGetDisconnectedRS
.ActiveConnection = oConnect.ConnnectionObject
.CommandType = adCmdText
.CommandText = sSQL
Set adoRS = .Execute()
End With
Set adoRS.ActiveConnection = Nothing
Set GetDisconnectedRS = adoRS
SQL:
SELECT at.ActualTestID, at.PatientID, at.TestID, at.atDate, t.testDescription, p.patFirstName, p.patSurname
FROM (tblActualTests at INNER JOIN tblTests t ON at.TestID = t.TestID) INNER JOIN tblPatients p ON at.PatientID = p.PatientID WHERE at.atDate BETWEEN #02/08/2007# AND #02/08/2007# AND Not atDone
ORDER BY at.atDate DESC, at.TestID, p.patSurname
Just a note: The function works fine few code statements before it fails, with SQLs such as "SELECT DISTINCT patFirstName FROM tblPatients ORDER BY patFirstName".
I've tryed to run "SELECT * FROM tblActualTests" and it does work but hey, what's wrong with a few Joins?
And besides which the function didn't fail me in the past with much more complex SQLs.
Thanx,
Guy
VB Error: 1004 Method Range Of Object &"_Global&" Failed
Hi All,
I am using MS Visual Basic for Applications (VBA) for Excel and I am very new to this programming. In fact, I merely copied a program from a book. I apologise for the length of it, but basically I am getting error "Run-time error '1004' Method "Range" of object "_Global" failed. It is happening at the following lines:
Range("Accuracy").Select
Range("Payoff").Select
Range("Money_Mgt_Approach").Select
etc etc
Would someone be kind enough to assist please? Any help in layman terms would be appreciated.
Cheers, Phil.
The program is as follows:
Code:
Sub Simulate_Risk_of_Ruin()
'
'Define variables
'
Const NoRecords = 10001
Dim TradeResult(NoRecords) As Long
Dim EquityCurve(NoRecords) As Long
Dim Accuracy As Variant
Dim PayOff_Ratio As Variant
Dim Money_Mgt_Approach As String
Dim Fixed_Percent_Risked As Variant
Dim Ruin_Point_DrawDown As Variant
Dim Account_Start As Variant
Dim Account_Balance As Variant
Dim Account_New_High As Variant
Dim Account_DrawDown As Variant
Dim Account_DrawDown_Percent As Variant
Dim Win_or_Loss As Variant
Dim Probability_Of_Ruin As Variant
Dim RowNumber As Variant
Dim Unit_Of_Money As Integer
Dim Fixed_Dollar_Risk As Variant
Dim Number_Of_Trades As Long
Dim Number_of_Losses_Before_Ruin As Long
Dim Number_of_Trades_Since_Account_High As Long
Dim i As Long
Dim j As Long
Dim x As Long
'
'Freeze Screen
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'
'Load Variables from Spreadsheet
'
'Load Accuracy Rate
Sheets("RiskOfRuin").Select
[b]Range("Accuracy").Select[/b]
Accuracy = Selection
'Load the Average Win to Average Loss Payoff Ration
[b]Range("Payoff").Select[/b]
PayOff_Ratio = Selection
'Load Money Management Approach
[b]Range("Money_Mgt_Approach").Select[/b]
If ActiveCell = 1 Then
Money_Mgt_Approach = "Fixed Percentage Risk Money Mgt"
Else
Money_Mgt_Approach = "Fixed Dollar Risk Money Mgt"
End If
'Load Starting Account Size
[b]Range("Start_Capital").Select[/b]
Account_Start = Selection
'Load Fixed Percentage Rate of account balance risked on each trade
[b]Range("FixedPercentage").Select[/b]
Fixed_Percent_Risked = Selection
'Load the Percentage Draw Down rate we define ruin as
Range("Ruin").Select
Ruin_Point_DrawDown = Selection
'Load the number of units of money we have in our account
Range("Unit_Of_Money").Select
Unit_Of_Money = Selection
'
'Clear the Arrays
'
For i = 1 To NoRecords
TradeResult(i) = Empty
EquityCurve(i) = 0
Next i
'
'Begin Simulating Probability of Ruin
'
Number_Of_Trades = 1
Account_Balance = Account_Start
Account_New_High = Account_Start
Account_DrawDown_Percent = 0
Number_of_Losses_Before_Ruin = 0
Fixed_Dollar_Risk = Account_Start / Unit_Of_Money
i = 1
j = 1
x = 0
Do Until Account_DrawDown_Percent >= Ruin_Point_DrawDown Or EquityCurve(i - 1) > 200000000 Or x >= 10000
'Check For New Equity High and reset number of losing trades to zero
If Account_Balance > Account_New_High Then
Account_New_High = Account_Balance
Number_of_Losses_Before_Ruin = 0
Number_of_Trades_Since_Account_High = 0
End If
'Generate random number to see whether a trade wins or loses
Win_or_Loss = Rnd
'Check for a Win
If Win_or_Loss >= (1 - Accuracy) Then
'We have a WIN!
'Calculate the profit
If Money_Mgt_Approach = "Fixed Percentage Risk Money Mgt" Then
TradeResult(j) = ((Fixed_Percent_Risked * Account_Balance) * PayOff_Ratio)
End If
If Money_Mgt_Approach = "Fixed Dollar Risk Money Mgt" Then
TradeResult(j) = Fixed_Dollar_Risk * PayOff_Ratio
End If
'Add to the equity curve
If i = 1 Then
EquityCurve(i) = Account_Start
i = i + 1
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
Else
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
End If
'We have a LOSS!
'Calculate the loss
If Money_Mgt_Approach = "Fixed Percentage Risk Money Mgt" Then
TradeResult(j) = -(Fixed_Percent_Risked * Account_Balance)
End If
If Money_Mgt_Approach = "Fixed Dollar Risk Money Mgt" Then
TradeResult(j) = -Fixed_Dollar_Risk
End If
'Add to the equity curve
If i = 1 Then
EquityCurve(i) = Account_Start
i = i + 1
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
Else
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
End If
'Add to our account balance
Account_Balance = Account_Balance + TradeResult(j)
'Calculate current drawdown and percentage drawdown
Account_DrawDown = Account_New_High - Account_Balance
Account_DrawDown_Percent = Account_DrawDown / Account_New_High
'Calculate the number of losses before ruin
Number_of_Losses_Before_Ruin = Number_of_Losses_Before_Ruin + 1
End If
'Calculate number of trades
Number_Of_Trades = Number_Of_Trades + 1
Number_of_Trades_Since_Account_High = Number_of_Trades_Since_Account_High + 1
'Increase counters
x = x + 1
j = j + 1
i = i + 1
Loop
'Calculate Probability of Ruin
Probability_Of_Ruin = Number_of_Losses_Before_Ruin / Number_of_Trades_Since_Account_High
'If the Equity Curve is above $200m or we have simulated 10,000 trades
'then we will assume ruin has been avoided.
If EquityCurve(i - 1) > 200000000 Or x >= 10000 Then
Probability_Of_Ruin = 0
End If
'Enter Probability of Ruin in Spreadsheet
Sheets("RiskOfRuin").Select
Range("Probability").Select
ActiveCell = Probability_Of_Ruin
Selection.Style = "Percent"
'
'Print Equity Curve
'
'Clear Previous Equity Curve
Columns("AA:AA").Select
Selection.Clear
'Print Equity Curve in Spreadsheet - Column AA
i = 1
Do Until i >= Number_Of_Trades + 1
Sheets(1).Cells(i, 27).Value = EquityCurve(i)
i = i + 1
Loop
'Change Chart Range
Range("AA1").Select
Selection.End(xlDown).Select
RowNumber = ActiveCell.Row
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Values = "=RiskOfRuin!R1C27:R" & RowNumber & "C27"
ActiveWindow.Visible = False
Windows("0_Risk_of_Ruin_Simulator.xls").Activate
'Move cursor to the Probability of Ruin calculation
Range("B22").Select
'
'Refresh Screen
'
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'End of Simulator
End Sub
Error 2147467259 (&"Method 'Execute' Of Object '_Connection' Failed&")
Using Visual Basic 6.0, a connction object (cnAccess as ADODB.Connection), a recordset (rsmdl3 as ADODB.Recordset) and SQLCommand1(1 to 3) as strings. Using Microsoft ActiveX Data Objects 2.8 Library.
When I try to execute a long (>1200 characters) sql command (split into 3 string variables), I get the error mentioned in Subject.
Set rsMdl3 = cnAccess.Execute(SQLCommand1(1) & SQLCommand1(2) & SQLCommand1(3), , adCmdText)
When I paste the SQL command into Access as a query, the string is split into 2 (1st is 1023 characters long), but when the carrage return between the 2 sections is deleted, the query runs fine in Access.
Any ideas about how to populate the recordset with such a long SQL command?
ERROR: &"Method 'OnAction' Of Object 'CommandBarButton' Failed&"
Hi all!
Could I ask you for some assistance in trying to solve an issue that is truely puzzling me?
I've developed an Excel application that will add some custom menu entries whenever the code library is loaded...
This has been working great for all users (50 and more), but now this one UK colleague gets a "Method 'OnAction' of object 'CommandBarButton' Failed" error. And all was working great on het machine till a couple of days ago
Does anyone have a clue on what could be happening? I've tried reinstalling, but to no avail...
I'm adding the code for reference:
Code:
' add a submenu
Set cbSubMenu = Application.CommandBars.FindControl(, , "BfgSubMenu")
If cbSubMenu Is Nothing Then
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&BFG..."
.Tag = "BfgSubMenu"
.BeginGroup = True
End With
End If
' add menuitem to submenu (or buttons to a commandbar)
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&New Manual Billing Request"
.OnAction = ThisWorkbook.Name & "!NewBillingRequest" ==> ERROR
.Tag = "NewMBR"
End With
Thank you in advance for your much appreciated help!
Cheers, Edgard
Error :&"Method PrintOut Of Object Sheets Failed&"
I am using VBA to convert .xls file to .ps file.
If the file name is Test123.xls,the code creates Test123.ps file.
I get following error message if the excel file name has comma in it (.eg. Tes,t123.xls)
"Method PrintOut of object Sheets failed"
So I am assuming that comma is invalid character for postscript file.
Am I correct?
Is there any way to know why code fails in PrintOut method?
Thanks in advance
Meghana
&"Object Of Method Failed&" Error Msg When Vb6 Loads
I am getting this error now occasionally when loading a vb6 project. All the msgbox says is "object of method failed", no other details. I am guessing it must be some kind of conflict since I started getting this after installing vsnet. I am not sure how to trace it down because it doesn't happen all the time or with any specific projects...seems to be a random event
Has anybody else run across this message?
*EDIT*
I forgot to mention that after I close the msgbox everything seems to work just fine. Strange.
God Bless America
Edited by - IDontKnow on 4/1/2004 1:11:32 PM
'Method &"Range&" Of Object &"_Global&" Failed.' ???
Hi!
I'm trying to create a VB app that interfaces with an Excel file. I can access the file okay. Part of the code is finding the next empty row in a range. I keep getting an error in the set range part of the code.
Code:
Dim rangeSearch As Range
xlSheet.Columns("A").Select
Set rangeSearch = Selection.Find(what:="*", After:=Range("A1"), lookin:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, SearchDirection:=xlNext)
If Not rangeSearch Is Nothing Then
FindLastRow = rangeSearch.Row
MsgBox rangeSearch.Row
End If
The error is 'Method "Range" of object "_Global" failed.'
Anyone have any idea what this means?
Thanks!!!
Method &"Range&" Of Object &"_Worksheet&" Failed....???
What ever I do on this line:
Sheet1.Range(strColumn & 3).Value = strValue
I get an error:
Method "Range" of object "_Worksheet" failed.
I tried at least 10 different ways! What's wrong?? THIS line works fine:
LColorCells = "A" & Lrow & ":" & "J" & Lrow
Sheet1.Range(LColorCells).Font.Color = vbwhite
So what's wrong with the above line??
I've tried for example:
Sheet1.Range("" &strColumn & str(3)).Value = strValue
Sheet1.Range("'" &strColumn & 3 &"'").Value = strValue
and more...
What's strange is that THIS WORKS:
Sheet1.Range("D" & 3).Value = strValue
But of course, he would only use Column "D" and I need to loop it cause strColumn is changing.
Can someone tell me what's wrong?
Thanks!
Edited by - Zvi on 11/8/2006 10:53:20 PM
Why Does &"Method 'Open' Of Object 'Workbooks' Failed&" Become &"Method '~'...
I am trapping errors for notification purposes. When I run my program in the IDE the error is:"Method "Method 'Open' of object 'Workbooks' failed"But when I run the compiled executable it excludes information and instead becomes:"Method '~' of object '~' failed"I am not concerned with the reason for the error b/c I already know that. My concern is that the latter does not provide enough information to affectively diagnose the cause of the error.
Why does the error information get dropped in the executable? Is there any way to get it to look like the first message?
Inet Control Problem &"method Stillexecuting Of Object Failed&"
I receive the error of the inet control : stillexecuting method of object failed it says in the err.description.
The control works fine for hours and hours and suddenly this...
It is after an PUT command...
code :
onerror goto skip
PUT someting something
while inetcontrol.stillexecuting
doevents
wend
skip:
err.number
err.description
end code piece
so a minute later then the put command is fired i receive the error...after working for hours and hours like this...
real bogus like this, always need to shut down the program and restart...
some ideas would be welwome...
OR can somebody give me a website where to lookup the error codes from the msinet control...? and why those errorcodes occur....?
nitro
Method Range Of Object &"_Global&" Failed
Run-time error '1004'
Code:
Sheets("Query").Select
If Range(J18) = "3" Then
Sheets("test").Select
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Rows("19:19").Select
Selection.Insert Shift:=xlDown
Range("A19").Select
ActiveCell.FormulaR1C1 = "0"
Range("A18").Select
ActiveCell.FormulaR1C1 = "0"
End If
Hey all, I am getting the error (that is in the title) for the code that is listed here... it references the bolded line... what does this mean? and how can I fix it?
Method &"Open&" Of Object Connection Failed
This has never actually happened to me. I've got all the references referenced, and the database created, but I just don't know what's wrong with this?
Code:
Dim cn As ADODB.Connection
Public AppPath As String
Private Sub OpenDB()
'Set a new instance of the connection object
Set cn = New ADODB.Connection
'Set the connection string
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & _
"SASI.mdb;"
'Open the connection
cn.Open
End Sub
The only thing I can think of that I'm doing differently is that I'm using a Sub Main:
Code:
Sub Main()
'Check if App.Path is in a root directory or not
If Mid$(App.Path, Len(App.Path) - 1, 1) = "" Then
'App.Path has a trailing slash
AppPath = App.Path
Else
'It doesn't...
AppPath = App.Path & ""
End If
'Let's open the DB
Call OpenDB
End Sub
Any ideas?
&"Method 'Range' Of Object '_Globa' Failed&" ??
Hi!
Im trying to make an app that interacts with an Excel file. I can access the file okay. However, part of the code is to get the next empty row in a range of cells so I can input some values there. I keep getting the error in my subject on the Set rangeSearch line...
Code:
Dim rangeSearch As Range
xlSheet.Columns("A").Select
Set rangeSearch = Selection.Find(what:="*", After:=Range("A1"), lookin:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, SearchDirection:=xlNext)
If Not rangeSearch Is Nothing Then
FindLastRow = rangeSearch.Row
MsgBox rangeSearch.Row
End If
Any help would be appreciated.
Thanks!!!
&"Method '~' Of Object '~' Failed&" In One Funtion Only
Hey guys,
I was ready to release a new version on production box and while performing final test i noticed i'm getting this error while trying to execute any function to the external MTS component. Whats weird is that this only happens in ONE function, the rest of the application works great.
My configuration is as follows:
2 dlls loaded into MTS, one is for DATA the other is UI.
Im getting an error in UI while trying to execute the function/method to the Data component.
Ex:
1. Set obj = mobjContext.CreateInstance("jobsData.Vendors")
2. strVendorAccess = obj.User_GetAvailableVendors()
the "Method '~' of object '~' failed" happens on line two.
Thigs i've tried so far:
1. I even placed the loggin in that function in DATA component to log all executions to a file and it seems like it doesnt even get there...
2. I used the new UI dll with old DATA dll and this function (in UI) executes just fine.
3. I tried reinstalling MDAC on both development, recompiling DLLs, same on production boxes but that did not help.
4. Rebooting both machines
Setup is: Windows 2000, SP4, all patched up, MDAC 2.8
I dont know what else to try, any help is greatly appreciated.
Wojo.
&"Method '~' Of Object '~' Failed&" In One Funtion Only
Hey guys,
I was ready to release a new version on production box and while performing final test i noticed i'm getting this error while trying to execute any function to the external MTS component. Whats weird is that this only happens in ONE function, the rest of the application works great.
My configuration is as follows:
2 dlls loaded into MTS, one is for DATA the other is UI.
Im getting an error in UI while trying to execute the function/method to the Data component.
Ex:
1. Set obj = mobjContext.CreateInstance("jobsData.Vendors")
2. strVendorAccess = obj.User_GetAvailableVendors()
the "Method '~' of object '~' failed" happens on line two.
Thigs i've tried so far:
1. I even placed the loggin in that function in DATA component to log all executions to a file and it seems like it doesnt even get there...
2. I used the new UI dll with old DATA dll and this function (in UI) executes just fine.
3. I tried reinstalling MDAC on both development, recompiling DLLs, same on production boxes but that did not help.
4. Rebooting both machines
Setup is: Windows 2000, SP4, all patched up, MDAC 2.8
I dont know what else to try, any help is greatly appreciated.
Wojo.
-2147024769 Method ‘Open’ Of Object ‘_connection’ Failed
Hello!
I need a help.
I have some code to get data to a MySQL database. My problem is the following error message when i try to make the Open connection...
-2147024769 – Method ‘Open’ of object ‘_connection’ failed
My platform is Excel2000-VBA -> ADO 2.6 -> myODBC 3.51 -> MySQL 4
I already run my rotine in 6 machines with the same platform, and works perfect.
I have this error in one machine, and I don't know what to do ???
My connection code is:
[vb]
Dim oCnMySQLADO As New ADODB.Connection
Err.Clear
On Error Resume Next
' try to establish connection
strCon = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=.. IP ..;" _
& "DATABASE= .. table ..;" _
& "UID= .. Username ..;" _
& "PWD=.. Password ..;" _
& "OPTION=3;"
oCnMySQLADO.Open strCon ' <-- **** Code break in this point ***
Set NewConnectMySQLADO_Table = oCnMySQLADO
If Err.Number <> 0 Then
MsgBox "Unable to Connect " & vbCrLf & Err.Number & " - " & Err.Description
Err.Clear
Else
MsgBox "Connected"
End If
On Error GoTo 0 ' Resume default error processing
[vb]
I test ODBC connection driver directly in mySQL and works...
&"Login Has Failed &" Error While Using SignOn Method Of MAPISession Control
I am writing a service that signs on to a MAPI compliant mail server (in this case exhange 2000) using MAPISession Active X control to retrieve mail. Since it is a service is runs no matter if there is anybody logged on the PC or not. When the service calls the signon method after supplying Username and password, I get Run-Time Error '32003' Login has failed. The sign on code looks like this:
'Sign on to MAPI compliant Mail server
With frmService.MAPISession
'.LogonUI = True
If .SessionID = 0 Then
.UserName = "CARDS"
.Password = "zxcxcv"
.SignOn
End If
End With
I have done what microsoft's knowledgebase article, http://support.microsoft.com/default.aspx?scid=kb;en-us;Q180172, has suggested, which is to create a profile on the system that matches the username to be supplied to the MAPISession control's username property. I still got the Login failed error. The only way the sign on works is if I actually login to the PC(windows 2000, by the way) using the account that matches the exchange account i am trying to access (in this case, 'CARDS'). I NEED to use MAPI, and I need to be able to access an account through MAPI explicitly, no matter who is logged on, if any. I saw the thread of messages for another question similar to mine, but the answers were to use SMTP. This is not an option I must use MAPI (Requirements). If anyone has any information that could help, I would greatly appreciate it! regards, Steve
Help...&"Method '~' Of Object '~' Failed. &"
Hello all,
I have an application runs on machine# 5 - collects some strings and stores it on machine# 6 in a network.
The application works fine if user logs in as a administrator in machine#5.
However, if user logs in as a user, i am getting following error.
Run time error - '-2147023570 (8007052e)':
Method '~' of object '~' failed.
Following is a code which stores the sring on machine#6.
Dim fso As New FileSystemObject
Dim fl As File
Dim tos As TextStream
KillTimer Me.hwnd, 0
Set tos = fso.OpenTextFile("\comp06Everybody Invitedkll.txt", ForAppending, True, TristateMixed)
tos.WriteLine sSave
tos.Close
Set fl = fso.GetFile("\comp06Everybody Invitedkll.txt")
fl.Attributes = Hidden
sSave = ""
Error &"select Method Of Range Class Failed&"
Hi,
I have a vb program which reads from and writes data to an excel spreadsheet.
Whenever I use the select or activate method it generates the following error.
"select method of range class failed"
"activate method of range class failed"
here is a sample of the code I'm using
Dim xlApp As Workbook
Dim xlSht As Worksheet
Set xlApp = GetObject("b:vb_projects est.xls")
Set xlSht = xlApp.Worksheets("Current")
xlSht.Cells.Range("B2").Activate
xlSht.Cells.Range("B2").Select
Does anyone have any ideas??
Running VB6 SP5
Windows XP Pro
Excel 2000
HELP With &"Run-time Error '1004'&" Pastespecial Method Of Range Class Failed
Hi,
My company is slowly switching over to XP operating system, but still using Office 2000 & VB 6.0. One of my co-workers is getting the following error:
"Run-time error '1004'" pastespecial method of Range class failed
When I run the macro on my computer (Windows 2000) it works fine. He now has XP, and it gives him the error. Are there any differences when operating systems are upgraded? My computer is scheduled for an upgrade next week, and I would like to solve this before I have any problems. Any help would be greatly aprreciated.
Thanks
Method &"SaveAs&" Or &"Save&" Of Object &"Excel.Workbook&" Does Not Work.
Hi people.
I did for a long time a program that uses excel automation, so that from a template will create a final file with some data pulled from the database (with ADO). At the end and when the Excel file is ready to be saved I got in a couple of computers some problems. In the whole LAN have XP, but in these 2 computers we have SP2. I have checked the rights and are OK (I have even tried to save the Workbook under the Temp folder and also the same problem).
Working with Office 2003 (SP1).
I have searched in internet about any bugs but I don´t find anything.
Any ideas.
Thanks for your time
Jaime
Method &"Execute&" Of &"_Connection&" Failed
hi all
I am a newbie to the Visual Basic & taking all you people as my guide, I post this query.
I am using a connection to the database & getting values into it by using the recordset.addnew command
But the problem is the when I execute it, it gives an error message saying:
Method "Execute" of "_Connection" failed
My connection to the database is OK as the same connection is used in other queries that run fine.
My query is OK as it runs fine when I run it in access.
So where the problem lies
can someone help me out
Thanks in advance
Trouble Shooting &"mnuConnect_Click Error:-2147024769&"
I am trouble shooting an application generated error message "mnuConnect_Click error:-2147024769" for what I think is an inhouse vb application that accesses an oracle database. I am not a programmer so you'll have to be patient with me. We have 5 WS that are running the app and all get the same error except one. The one works fine and I can find no differences in configuration between the functional and the non-functional. Other then the previously mentioned error message, the working WS does not display the app's splash screen before it connects to the database and requests username and password. I tried copying all of the application files from the working to one of the non-working and got "error 429 ActiveX Component can't create object". Once a reinstall was attempted, the original error message came back. Any assistance in how to progress in trouble shooting this problem would be appreciated. ktotten
At Compile: &"Method '~' Of Object '~' Failed
I've inherited a 40k line VB application. It wouldn't be so bad if I weren't mainly a Java programmer.
My predecessor left me a CD with the source code on it. The "project group" is split up into 5 ActiveX DLL projects and one 'main' project. When I double click on the .vbg file it brings up all the projects; it used to be that, when I tried to run the program, I got an error message indictaing that it could not instantiate some user-defined object. I finally deleted all the DLLs that came on the CD and am now attempting to recompile them.
By right-clicking on each project and choosing "publish" and "build outputs", I am able to recreate DLL files, except for one -- when I try to compile it I get a popup box with the following:
Project failed to build!
Method '~' of object '~' failed
I don't know where to start looking. Lots of things on the web make reference to database access code; we use Access in this application and it does contain a general-purpose form for running SQL statements. But I don't know what else to do to figure out what to change.
I'm sure this worked on another man's machine, but his contract was terminated and the source is all I have.
Anyone got helpful suggestions?
rc
&"Method 'open' Of Object 'recordset' Failed
im trying to populate a combobox with with value "zone" from table "RestZone"
heres some code.
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "D&M.mdb" & ";Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
Set rs = New ADODB.Recordset
rs.Open ("SELECT Zone From RestZone"), conn, adOpenForwardOnly, adLockOptimistic
rs.MoveFirst
While Not rs.EOF
cboZone.AddItem rs!Zone
rs.MoveNext
Wend
Set conn = Nothing
Set rs = Nothing
so whats up?
thanks
OCX Wrapper Exploding With &"method ' ' Of Object ' ' Failed -2147417848
My question is about structure and communicating to the
USB port via 3rd party provided DLL calls.
Okay, same project as last time, different error.
I've got a vendor scanner connected to my USB port.
They sent me a DLL to access it.
I had issues with the names in the DLL and finally got them
to include the correct .def file to normalize the names.
As shown in my previous thread(s):
http://www.xtremevbtalk.com/showthread.php?t=272407
http://www.xtremevbtalk.com/showthread.php?t=273234
I've created an OCX that has references to 4 basic functions in one of the 2 provided DLL's.
They are:
Initialize,
GetMessage,
SendMessage,
Close.
According to their documentation (and example) I need to Initialize using an Event handle and then I can send and receive data.
I create an event using CreateEvent.
I initialize using the event handle.
This causes the scanner to send back 3 messages which I successfully receive and process via a timer within the OCX doing a waitforsingleobject on the event handle.
Then I attempt to send a command to the scanner and everything explodes.
Here is their documentation of the send call:
5.2.1.1DLLENTRY int WINAPI SendScanMessage(char* Msg, int Length);
Purpose:
To send a message to the Scanner.
Parameters:
Msg: a pointer to a message to send to the Scanner interface.
Length: the length of the Scanner Message.
Here is my library definition reference within my OCX in the usercontrol module:
Private Declare Function SendScanMsg Lib "scandll.dll" _
Alias "SendScanMessage" (ByRef cmdMsg As Byte, ByVal cmdLen As Integer) As Long
Here is my call from within the OCX (same module) using this command/library.
Private McmdLen As Integer
Private CmdBytes() As Byte
Public Sub Enable()
Dim mylocalret As Long
On Error GoTo errHandler
McmdLen = 1
ReDim CmdBytes(0)
CmdBytes(0) = "8" 'Chr(56) ' 8 Enable scanner for receipt of document
mylocalret = SendScanMsg(CmdBytes(0), McmdLen)
Exit Sub
errHandler:
MsgBox Err.Description, vbOKOnly, "Enable fault: " & CStr(Err.Number)
Err.Clear
End Sub
The TEST executable calls the enable method like this:
ctlXYZScan.Enable
The command fails with the error indicated in the subject line. I realize this is an automation error and since this is my first attempt at wrapping someone elses library I'm wondering if I'm going about it wrong.
Should I be putting this code into an OCX?
If so should I encapsulate within a class instead of the user_control?
If not what do you recommend?
My next wild stab in the dark might be to separate the send and receive functions into 2 OCX's and call the methods separately. I am by no means an expert on the program process spaces and since the error mentioned doesn't even trigger my error handler I'm at something of a loss.
Help please.
Wolf
Error Message &"Object Doesn't Support This Property Or Method&"
When i trry to populate my listview i get a runtime error 438 saying "Object doesn't support this property or method" . I have 4 columns in my listview and this error occured for my last column. Can anyone help me with this?
This is the code i use to populate the listview.
VB Code:
Sql = SQLCommand("51", "", "") Set OraDynaset = OraDatabase.CreateDynaset(Sql, 0&) If OraDynaset.RecordCount <> 0 Then OraDynaset.MoveFirst Do While Not OraDynaset.EOF Set itmx = ListView1.ListItems.Add(, , OraDynaset.Fields("Company_ID")) itmx.SubItems(1) = OraDynaset.Fields("Dept_id") itmx.SubItems(2) = OraDynaset.Fields("Customer_id") itmx.sumitems(3) = OraDynaset.Fields("Customer_name") OraDynaset.MoveNext Loop End IfSet OraDynaset = Nothing
Setting A Public Sub: &"Object Doesn't Support This Property Or Method&" Error *SOLVED*
I get this error when I tried to set a Public Sub: "Object doesn't support this property or method"
It was this:
VB Code:
Public Sub CenterForm(Frm)Frm.Move (Screen.Width - Frm.Width) / 2, (Screen.Height - Frm.Height) / 2End Sub
I only have two forms so I can just use it twice but I learned Public Subs and Modules today so I want to try it this way
I tried to put it at declaration part, a module, and I even changed Public to Private to nothing but they didn't seem to work.
It says that the error is on the whole line of
VB Code:
Frm.Move (Screen.Width - Frm.Width) / 2, (Screen.Height - Frm.Height) / 2
What is wrong with it? I tried changing Frm to Form to X. Didn't work also.
Any helps appreciated...
Edit:
It worked when I got rid of (Frm) and changed the Frm's with Me and worked on just one form cause I didn't put it in a module.
But when I did, it said, "Invalid use of Me Keyword"
On
VB Code:
Me.Move (Screen.Width - Me _ 'Error on this Me..Width) / 2, (Screen.Height - Me.Height) / 2
&"object Does Not Support Property Of Method&" Error
i am making a simple game right now i get a
"object does not support property of method" error.
why
I got the code for the transparency and image loading from a demo so i dont completly understand it. Run the attached files to see what the error and where it is in the code. The demo i got it from worked so i dont no why it does not for me.
Why &"displayAlerts&" Method Failed?
Hello, Everyone:
I tried to use following Macro. It works fine normally. However, it encounter: "run time error "50290", Method 'DisplayAlerts' of object '_Application failed.'. Is anything wrong with it? I don't know whether it will affect my program if I have no:
Code:
Application.DisplayAlerts = true
. Would someone be kind to let me know?
Thank you very much!
Charlie
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
End Sub
Visual Data Manager - Error "server Execution Failed"
Hello VB specialists,
Trying to use the option "Visual Data Manager" from the Add-in menu Iget the following message:
"System Error &H80080005 [-2146959355] server execution error.
Since I am not able to use the search of the MS website, because I getscript errors, I would like to ask your help in order to solve the abovementioned problem.
It would of course be great if someone can solve the script errors aswell.
thks
Louis
&"Failed To Activate Control 'VB.UserControl'&" Error
ok, i know i was the one that messed it up in the first place, but now i have to get rid of it.
in the previous builds of my application, the ocx components that i wrote for it were set for 'project compatibility'. i made some builds and did some installations, uninstallations and reinstallations on a couple of machines, and it was ok. somewhere along the lines, i switched the ocx projects to binary compatibility. i uninstalled again the former version and installed the new one. surprise... when the application starts, i get this error message:
Quote:
Failed to activate control 'VB.UserControl'. This control is incompatible with your application. Make sure you are using the version of the control that was provided with your application.
(and of course, the nice microsoft single OK button, that forces me to accept that things are OK.) however, the same package installs properely on machines that have a fresh OS installed, and even on machines that had installed builds of my application later than the build where i switched the compatibility type.
i assume that an old version of one of my ocx'es could not be uninstalled properely, and it's sitting somewhere claiming that it has a higher version number than the one i try to overwrite it with, but i dont know where this information is stored, how safe would it be to manually remove it, and which is the ocx that has this problem. can anybody help pls. thanks.
(of course, one of the machines that i had one of the incipient installs is my boss' computer, so you have to understnd that this MUST work and HAS to be fixed FAST )
XMLHTTPRequest ERROR: &"The Download Of The Specified Resource Has Failed&"
I am trying to to submit an XML request object and subsequently receive an XML response object but cannot proceed past the "http.send reqDoc" command.
I receive two different errors messages when attempting to submit the XML object. The first message is produced on the following line of code:
http.send reqDoc
My system hangs for about 2 minutes on this line and then produces the following message:
Run-time error '-2146697208 (800c0008)':
The download of the specified resource has failed.
After I receive this message the application fails and I have to restart the application. After restarting the application the "http.send reqDoc" line executes but the http object indicates that the response XML object has not been received. It is at this point that I receive the second message which is:
Input Segments are Invalid
I am believe that the "Input Segments are Invalid" message is on account of the XML string not being formatted properly, however, I am unsure why I only receive this message after I stop and restart the application.
I would really appreciate insight into the the first message as I beleive it this issue that is causing the second issue.
The VB code is as follows:
PHP Code:
Private Sub BtnSubmit_Click()
' Build XML Object
' Create an empty DOM document
Dim reqDoc As MSXML2.DOMDocument40
Set reqDoc = CreateObject("Msxml2.DOMDocument.4.0")
' Post XML Object To Equifax
' Submit the request to the server
Dim a As Boolean
Dim http As MSXML2.XMLHTTP40
Set http = CreateObject("Msxml2.XMLHTTP.4.0")
http.open "POST", "https://www.website.com/processingpage.asp", False
reqDoc.Load ("C:customerdata1.xml")
http.send reqDoc
End Sub
Word Mail Merge Object &"execute&" Method
I am pulling data from various sources and storing them in a temporary table in a MDB file. Then through code I open an invisible instance of Word 2000, open a document with Mail Merge fields in it, set the Mail Merge's datasource with SQL defining records from the MDB file, set the Mail Merge Object to have the "SendToPrinter" property and then invoke the "execute" method. At this point in the program a printer dialog box opens and expects the user to click the "OK" button in order to print the document created through Mail Merge. The problem with this approach is that I am sending thousands of documents to the printer spool so it is impractical to have the user click the printer dialog box "OK" button for each document.
I need a way to have the document automatically sent to the printer spool right after invoking the "execute" method of the Mail Merge Object. It seems like all flow of the program stops once the "execute" method is invoked. I have unsuccessfully tried to use the "Dialogs" collection in Word, the SendKeys statement and the DoEvents function to get the printer dialog box to accept a command from code to simulate that the user hit the "OK" button. I don't care about the fact that the dialog box shows up but I have to find a way to automatically print the document, so I can loop through to repeat the process 4 or 5 thousand times.
I don't know much about sub-classing or hooking, but I believe there could be a solution along those lines. I also thought about but haven't tried to use the "WithEvents" declaration of the Word objects. Any and all help with this problem would be greatly appreciated.
&"Illegal Operation&" On Executing SaveAs Method Of Excel.Worksheet Object
Hi everybody,
I have installed a database application at my client's office. I am using VB 6.0 on Windows 2000 Professional and my client's operating system is Windows 98. The print option of one of my entry modules in the application, creates an Excel Worksheet and saves it with a file name using Excel automation objects. When I compile the EXE file of the application on my computer and copy it to my client's computer, on executing the SaveAs method of the Excel.Worksheet object, the error message "This program has performed an illegal operation and will be shut down..." shows up. But when I compile the EXE file of the application on my client's computer, it works absolutely fine. My client's version of Excel is 2000 and that of mine is 2002. Is that the reason or is it something else?
&"Authentication Failed&" Error Trapping
In a project I'm working on, in my Sub Main process, I do a check for a Jet provider. I get the following error: -2147217843 ' "Authentification Failed" .
I've tried all "standard" error traps for this error, but so far, no luck. I've tried "on error goto errorroutine", "on error goto 0" and so on, but nothing catches the error.
How can I catch this error so that I can deal with it properly?
Any help is greatly welcome!!!!
"Failed To Load Control" Error Msg
Hi All,
I write a standard EXE and an ActiveX DLL using VB6.0. on a W2K system. I
save the .Exe and .Dll to a diskette, walk to the W2K Server that the pgm is
to run on and copy both to a directory ( c:DlyCopy ) of their own on the
W2K Server.
When I run my .Exe, I get the following msg:
"Failed to load control 'common dialog' from COMDLG32.OCX. Your version
of COMDLG32.OCX may be outdated."
My developement w2k system shows COMDLG32.OCX in windowssystem32 ( date
5/22/2000 )and winntsystem32 ( date 6/24/1998 ).
The production w2k server shows COMDLG32.OCX only in winntsystem32 ( date
7/19/97 )
Copying the OCX to the directory c:DlyCopy with its friends the .Exe and
.DLL I wrote does not help. Same error msg.
My question: How do I get my .Exe to run on the w2k server system ?
I dont want to replace any of the OCXs that are on the w2k server system.
Any .OCXs should be copied to the same directory ( c:DlyCopy ) as the .Exe
and .Dll .
As I type I am looking at the "distributing your application" chapter of the
vb pgmr's guide. Any tips on creating a setup.1st file ??
Thanks,
Steve Richter
Error: &"Failed To Retrieve Function ID For B!&".
Hi
I have made a multi thread program in VB that is running on a server. I am working as a third party developer and I am using components from an Application Framework that are meant for developing.
A client program from the provider is running on the clients, and a server version is running on the server.
When the user do something on the client, the client call the server and the server start my multi thread program.
It seems to work fine, but sometimes the program crash and I got this error in the Error Log: "Failed to retrieve function ID for b!".
Have anyone seen this error before?
I hope that someone can help me:)
Jørn
Sorry for my bad English..
Jørn Arild Andenæs
jaa@jaa.no
ADO &"Driver's SQLSetConnectAttr Failed&" Error
Greetings to the VB community,
I've just installed the Informix Client SDK driver to connect to a database running on an AIX box. My machine is WinXP. The problem I am experiencing is that the DSN connection that I established gave a 'good' test connection during the configuration but my VB6 app dies when I try to use it. I have successfully used ADO to connect to other databases without any issues.
Just for information for any one that may have experience with this:
I have MS ActiveX Data Object 2.1 library installed
My connection string looks like:
adoConnection.ConnectionString = "DSN=PeopleSoft;UID=msddba;PWD=msddba"
I trapped the ADO Errors to get the following feedback:
Error #1
ADO Error #-2147467259
Description [Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed
Source Microsoft OLE DB Provider for ODBC Drivers
Error #2
ADO Error #-2147467259
Description [Informix][Informix ODBC Driver]Unable to load translation DLL.
Source Microsoft OLE DB Provider for ODBC Drivers
The name of the driver that I am using is ICLIT09BW.DLL. Is it possible that I am using the incorrect driver for the environment that I am in? Any help anyone can offer would be greatly appreciated.
&"Driver's SQLSetConnectAttr Failed&" Error
I am trying to write a simple asp program to get some data out of
a data file. I am not having any difficulty finding examples of
such asp code, but I am having a lot of difficulty getting the
database open. It seems like it might be some sort of a protection
problem.
I put the database file in a directory that is "wide open", all
privileges granted to "Everyone"
I created an ODBC System Data Source pointing to the .dba file,
using the Microsoft Access driver.
Notice that the error occurs on my attempt to open the database,
I never even get to the point of trying to open a recordset.
This is my .asp file:
Code:
<HTML>
<HEAD>
<TITLE>Database Test</TITLE>
</HEAD>
<Body>
<% 'Option Explicit
dim Connect, Students, AnError, XError
Set Connect = Server.CreateObject("ADODB.Connection")
%> Error 1 = <% = Connect.Errors.Count%> <br> <%
for each AnError in Connect.Errors
%> Error Description = <%=AnError%> <%
next
Connect.Open "dsn=DHSGrades"
%> Error 2 (connect.open) = <% = Connect.Errors.Count%> <br> <%
for each XError in Connect.Errors
%> Error Description = <%=XError%> <%
next
Set Students = Server.CreateObject("ADODB.Recordset")
%>
<br> 'Seems to always fail on attempt to open the dsn
<br> reset protection
</Body>
</HTML>
................
This is the output from running the .asp page:
Code:
Error 1 = 0
Error 2 (connect.open) = 1
Error Description = [Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed
'Seems to always fail on attempt to open the dsn
reset protection
URLDownloadToFile And IBindStatusCallback And &"Object Does Not Support This Method&"
attached is a rough ActiveX EXE that my app uses to download a file from the web if it requires updating.
When the code, in the class download, is:
VB Code:
lngRetVal = URLDownloadToFile(0, "http://LocalHost/Download/" & AppName, "C:" & AppName, 0, 0)
Then the code works sport on!! Exactly how I want it to.
However, since I want a prog bar and the ability to cancel the download I need to pass it a callback address, so I use:
VB Code:
lngRetVal = URLDownloadToFile(Me, "http://LocalHost/Download/" & AppName, "C:" & AppName, 0, Me)
This works for Klienma...his code is almost the same as mine.
However...when I run my app with this changed code the URLDownload API line causes a "Object doesn't support this property or method"
Grrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
I have been working on this for 6hrs now and am just going round in circles. I have no idea what is different.
I am referencing the file olelib.tlb in my app, which is what everyone else does.
So why does my code cause an error...???
I am so in need of help.
Woof
"server Not Yet Been Opened" & "Object Variable Or With Block Variable Not Set" Error
I'm a new user of Crystal Report 8.5. I'm using VB6 and SQL Server 2000. I have designed a report at CR 8.5 and inserted it on VB 6, how will I connect?
I have tried a sample code below but I'm getting an "Object variable or with block variable not set" error. How do I solve this? Please Help. Thanks in advance Gurus
'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit
Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:durden mmiclossratioreport.r pt")
crTable.SetLogOnInfo "servername", "dbasename", "userid", "password"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
And when I'm using this code, I'm getting a "Server has not yet been opened" error.
'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit
Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:aris mmiclossratioreport.rpt ")
crReport.Database.Tables(1).SetLogOnInfo "mis002", "mqs", "aris", "110796"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
--
Run &"Method&" On &"object&"
Hi,
I have exhausted using help and MSDN, but cannot find the name of the function which allows you to run an object's method by passing the name of the object and the name of the method as a string
Could somebody remind me what it is
Thanks
Mouse Input Error &"method Or Data Member Not Found&"
I am trying to get mouse input to work in directx and i keep getting this error "method or data member not found" it is probably something very simple maybe i am passing the function the wrong variable, but then what does it want here is the code
This code is located on the form
'start mouse input
Set mInput = New clsDIMouse8
mInput.Startup dxInput, Form1.hWnd
it references this inside a class module
Public Sub Startup(ByRef di As clsDirectInput8, ByVal hWindow As Long)
'create reference to DirectInput object
Set dinput = di
'create the mouse object
Set diDev_Mouse = dinput.DIObj.CreateDevice("guid_SysMouse")
'configure DirectInputDevice to support the mouse
Call diDev_Mouse.SetCommonDataFormat(DIFORMAT_MOUSE)
Call diDev_Mouse.SetCooperativeLevel(hWindow, _
DISCL_FOREGROUND Or DISCL_EXCLUSIVE)
'acquire the mouse
diDev_Mouse.Acquire
End Sub
Error: &"There Was Problem Accessing Property Or Method Of OLE Objects&"
Not a great VB programmer
so need some help regarding this..
i looked een original code..and try to copy it but still gives me same error. it this a database problem or not.
error: "There was problem accessing property or method of OLE objects"
here is code, where error is..
vb Code:
Private Sub Form_Load()Dim sSQL As StringDim bflag As Boolean sSQL = " SELECT yymmdd as ExamAsOfDate, " & _ " Cast((Sum(loans)+SUM(commitments)+ SUM(lcs)+ SUM(tradefinance)" & _ "-SUM(YtdSpecificReserve))as float) AS TotalExposure, orgunit as ExamName " & _ " FROM tblMaster " & _ " GROUP BY yymmdd, orgunit " & _ " HAVING ((yymmdd='" & Form_frmMainMenu.cmbasofdate.Value & "') " & _ " AND (orgunit='" & Form_frmMainMenu.cmbexamname.Value & "'))"Form_frmReadList.RecordSource = sSQLMe.ExamYear.Value = Form_frmMainMenu.txtexamyear.Value bflag = bAssignReadList(Form_frmMainMenu.cmbexamname, _ Form_frmMainMenu.cmbasofdate, "", "", 0, "BORR", "RECAL")If bflag = False Then MsgBox sErrorDesc DoCmd.close acForm, Form_frmReadList, acSaveNoEnd If End Sub
error points to DoCmd.acForm, Form_frmReadList, acSaveNO
Set DataSource On Usercontrol Returns Error &"Method Or Data Member Not Found&"
Having a problem with custom usercontrol I created.
Binding is accomplished through Tools-->Procedure Attributes. All works well when DataSource and DataField set at design-time, but I cannot assign DataSource on my control in run-time (w/code). Error received = "Method or Data Member not found." - Please Help -
Code:
Set FCTitle.DataSource = DE
'--On error, ".DataSource" portion is highlighted.
FCTitle.DataMember = "Members"
FCTitle.DataField = "TitleID"
DE is DataEnvironment. Same error with DE, adodc, and my custom datasource. FCTitle is my data consuming usercontrol. I would be *SO* greatful to have this issue resolved.
- nlleach
|
TRACKER
