Visual Basic :: ADO Command Object Returns A &"Method 'Execute' Of Object '

'Execute' Method From Object '_Connection' Failed
I have a problem right now in one of my query, whenever i try to open a query i get this error:
erreur d'exécution -2147467259(80004005)
la méthode 'Execute' de l'objet '_Connection' a échoué

wich translate from french to about:
execution error -2147467259(80004005)
'Execute' method from object '_Connection' failed

here's my code:

Code:
Dim MyConn As ADODB.Connection
Set MyConn = New ADODB.Connection
Dim MyRecSet As ADODB.Recordset

MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "1002.mdb;"
MyConn.Open
Dim sql As String
'*********************************************************************
'Remplissage du tableau de sauveteur
'*********************************************************************
sql = "SELECT [No] as Numero, Nom,Prénom,Grade,Heures,Zone FROM personnel"
Set MyRecSet = MyConn.Execute(sql) '<---- i get the error here

my connection string seems to be ok since i got the same thing elsewhere :

Code:
Dim MyConn As ADODB.Connection
Set MyConn = New ADODB.Connection
Dim MyRecSet As ADODB.Recordset

MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "1002.mdb;"
MyConn.Open
Dim sql As String
sql = "SELECT [No] as Numero FROM agenda WHERE HNo=" & txtNoHotel.Text
Set MyRecSet = MyConn.Execute(sql)
wich works perfectly...

but something strange is hapened when i put spys on these connectionstrings object
for the first one here's what's returned after myconn.open
:

Code:
"Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=E:Documents and SettingsSylverMoonMy DocumentsPRJ10021002.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Dac"
but then again, for the same code, another time gave me that:

Code:
"Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=E:Documents and SettingsSylverMoonMy DocumentsPRJ10021002.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Daa"
notice the last 2 character ('a"')('c"')
while at the other conection string(the one working) here's what i get:

Code:
"Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=E:Documents and SettingsSylverMoonMy DocumentsPRJ10021002.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Da
notice the strange lack of " closing the string? =/ i tough it was an error maybe i did a wrong cut , but that's really all that is into the spy thing...
and notice too the last character seems to be missing... anyone can help me on this?

Method 'Execute' Of Object '_Connection' Failed
On a SELECT INTO query, I get this error......anybody know why or how to fix it?

Method 'Execute' Of Object '_connection' Failed
Hey,

I just can't figure out why i'm getting this error. I am copying tables from one database to a new database. The first table copies fine, then I get the error when coping the second table. If I comment out coping the second table, it will copy all subsequent tables without a problem. I have double and triple and quadruple checked the field names are correct. My Code is as follows:
Code:
Dim ADOXcatalog As New ADOX.Catalog

Set DBConn = New ADODB.Connection
DBConn.CursorLocation = adUseClient
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & StrDir & "Delpac.mdb"

FileDest = "C:DelpacRepCopy" & liveDB!Area
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If Dir$(FileDest, vbDirectory) = "" Then _
fso.CreateFolder (FileDest)

If Dir$(FileDest & "Delpac.mdb", vbDirectory) <> "" Then _
fso.DeleteFile (FileDest & "Delpac.mdb")

ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data _
Source= " & FileDest & "NewDatabase.mdb"

DBConn.Execute "SELECT Customer.Area, Customer.RecNo AS Customer_Code, Customer.CustNumber AS SageRef, " _
& "Customer.Name, Customer.Address1, Customer.Address2, Customer.Address3, " _
& "Customer.Address4, Customer.Address5, Customer.InvAddress, Customer.Phone1, " _
& "Customer.Phone2, Customer.Phone3, Customer.Phone4, Customer.Phone5, Customer.Fax1, " _
& "Customer.Fax2, Customer.Contact, Customer.Email, Customer.Website, " _
& "Customer.CreditRef, Industry.NAME AS Industry, Curr.Description AS [Currency], " _
& "VatCode.Percentage AS Vat_Rate INTO Customer IN '" & FileDest _
& "NewDatabase.mdb' FROM ((Customer INNER JOIN Curr ON Customer.Currency = Curr.Number) " _
& "INNER JOIN Industry ON Customer.Industry = Industry.RECNO) " _
& "INNER JOIN VatCode ON Customer.Balance = VatCode.Code " _
& "WHERE Customer.Area = 5 ORDER BY Customer.Name;"

'Error triggered here'
DBConn.Execute "SELECT Contact.RecNo, Contact.Company, Contact.Name, Contact.Position " _
& "INTO [Extra Contacts] IN '" & FileDest & "NewDatabase.mdb' FROM Customer " _
& "INNER JOIN Contact ON Customer.RecNo = Contact.Company WHERE Customer.Area = 5;"

DBConn.Execute "SELECT JobDets.RecNo, JobDets.JobNumber, JobDets.Service, JobDets.PricePer, " _
& "JobDets.Quantity, JobDets.Description, JobDets.UnitSellPrice, JobDets.TotalSell " _
& "INTO [Job Details] IN '" & FileDest & "NewDatabase.mdb' " _
& "FROM JobHdr INNER JOIN JobDets ON JobHdr.JobNumber = JobDets.JobNumber " _
& "WHERE JobHdr.Area = 5 AND JobHdr.JobDate Between #" & DateFrom _
& "# And #" & DateTo & "# ORDER BY JobDets.JobNumber;"

..............................................
..............................................

DBConn.Close
Set DBConn = Nothing

Method 'Execute' Of Object '_Connection' Failed
Hi,

I am trying to update my database/table using the following code
private sub cmd_click()
Dim mSQLLetter As String
mSQLLetter = "Insert into Letters(ApplicationID,EnrolmentNo,LetterType,DateStart," & _
  "DateEnd,Other,userid,entryDate) Values(" + CStr(mAppID) + ",'" + mEnrolmentNo + "','" + mDoc + mLetterType + "'," & _
  "" + CStr(cboLastArrivalDate.Value) + "," + CStr(cboNextCommence.Value) + ",'" + Left(Trim(mText), 255) + "','" & _
  "" + CStr(glbUserID) + "',Convert(DateTime, '" + Format(Date, "dd/mm/yyyy") + "', 103))"

con.Execute mSQLLetter

end sub

this piece of code code work for the first time when its been executed, when you try to execute the code again it gives me the error
Method 'Execute' of object '_Connection' failed

I am using MSSqlserver 2000. all the variables I have used are stored properly on my first record. when I try to save again it gives me this error message. the primary key on the table (letters) is an autonumber integer.

can anyone help me please

Method Execute Of Object _connection Failed -
hello everybody...
i am doing a small project but got stuck in something for hours
the error message is "method execute of object _connection failed"
and i cannot figure out why
i am attaching a zip file with the code and the access mdb
can anybody pleaseeeeeeee tell me what am i doing wrong?

thanks a lot

Edited by - mythos on 12/7/2006 6:57:17 AM

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: &"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

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?

&"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?

Execute Method Of Command Object Failed
hi all,

i dont know why this happens.
i have the access database and i am accessing some fields of a table through ADODB.Command object.

VB Code:
cmd.commandtext="select * from names"set rs=cmd.execute

but its giving run time error as "execute method of command object failed.."
do u know why this is so?
command object type,etc. all are correct.
please help
thanx in advance
ilikevb

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 'Open' Of Object '_Connection' Failed
Hi mates.

Something very strange happen to my program. The Program was functioning great, but at somepoint i don't know why it stopped working. Before i could make a connection and with the code make an update to a combo box with the data from the DB. Now, and i really don't have a clue for somewhile the program in MyConn.Open crashes. I didn't change the DB from where she was, neither have changed the name. Any one has a clue on what's the problem?

Code:
Option Explicit

Dim MyConn As ADODB.Connection

Private Sub Form_Load()

Dim CP As New ADODB.Recordset, sqlCP As String

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "crm_verA.mdb" & ";Persist Security Info=False"
sqlCP = "SELECT ID, CodPostal, Arruamento, Localidade FROM T_CodPostal"
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = sConn
MyConn.Open 'Here the program crashes
CP.Open sqlCP, MyConn, adOpenKeyset, adLockOptimistic, adCmdText
MyConn.Close
Set CP = Nothing
End Sub

Thanks for any help

P.s.: Relevant Data, i've printed the code i consider to be relevant to the problem and the DB is in Access XP.

&"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...

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.

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 = ""

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

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.

Error With ADO Command Object Execute Method
Hello,

I am getting an error with my Ado Command Object when I execute my Stored procedure <Any stored procedure for that matter> here is the code:

Code:
        Dim iRc As Integer
        Dim cmd As ADODB.Command
        Set cmd = New Command

        With ADOConnect1
            Set cmd.ActiveConnection = .Connection
            cmd.CommandType = adCmdStoredProc 'Same error with adCmdText
            cmd.CommandText = "{" & iRc & " = Call DBA.sp_Adm_ValidateLogon( '" & .UserID & "')} "
            cmd.Execute '<<<This is where the ERROR occurs

        End With

The Error message that I am getting is:
Quote:
[Sybase][ODBC Driver]Syntax error or access violation

The ConnectionString is:
Quote:
Provider=MSDASQL;DBF=C:RichardDataTest8.db;;DRIVER={Adaptive Server Anywhere 8.0};INTEGRATED=NO;User ID=lds;Password=lds;

Edited by - rrober07 on 5/2/2003 1:03:53 PM

Can I Call A Method Of An Object In Runtime By &"object Name&" String?
Private Sub FormShow(FormName as string)

dim f as Form

f = FormName //?????

load f
f.show 1

End Sub

Can I reference to an object by help of its name (string) in runtime?

&"Data Type Mismatch&" Error Using Command Object/adInteger Parameters/MS Access Query
I'm used an ADODB.Command object to execute an "action query" in an MS Access database and I'm getting some odd errors.

I have setup the action query sort of like a stored procedure - it takes input parameters and executes an INSERT statement.

This is the code in the action query (called InsertInt):

INSERT INTO IntegerTest(FieldID, Value)
VALUES ([@FieldID], [@Value]);

And this is the VB 6 Code:

Dim FieldID As Integer
Dim Value As Integer

FieldID = 12
Value = 35

...

DB Connection info removed

...

cmdObj.CommandType = adCmdStoredProc
cmdObj.CommandText = "InsertInt"

cmdObj.Parameters.Append cmdObj.CreateParameter("@FieldID", adInteger, adParamInput, , FieldID)

cmdObj.Parameters.Append cmdObj.CreateParameter("@Value", adInteger, adParamInput, , Value)

cmdObj.Execute

This is the error that occurs:

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

The strange thing is that I only get this error when working with integers. I used the following code to insert strings (in a different table):

cmdObj.Parameters.Append cmdObj.CreateParameter("@Value", adChar, adParamInput, 100, CStr(Value))

And it worked just fine.

Any help would be greatly appreciated.

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

&"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

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

Problem With &"Object Reference Not Set To An Instance Of An Object&" Error
Hi,

I ran into this “Object reference not set to an instance of an object" error in an application during debugging in VS 6.0

The app threw an exception in the frmProcessMonitor form at this line.

Set oStarDelete = CreateObject("StarReleaser.Release")

==> If oStarDelete.CanDeleteLoadFile(CDbl(sID)) = True Then

Is this because the “StarReleaser” DLL did not register properly?

The weird thing is that the production installed app works fine.

I tried to unregister and register the StarReleaser DLL and reboot but still have this problem when running the app in VS 6.0.

I will the project Reference next. Do you any idea/suggestion? Thanks

Prob With &"Object Reference Not Set To An Instance Of An Object&" Error
Hi all,
I have a vb.net program that sets up an excel sheet, and enters data from textboxes on a form into the first row of the excel sheet, which then can be exited disposing of resources. What i now need is to re-open the same excel sheet with the saved line of data, and enter new data into the next available free row of the excel sheet. I can open the sheet, but when I try to enter the data i get the "Object reference not set to an instance of an object" error. I have got very confused about why this is happening, and am hoping someone can tell me what changes i need to make to get this to work. I guess I need to refer to the object which is called using getobject, but I am not sure how.

Code:
checks for the excel file, uses getobject if the file exists
Sub OpenXLWorkBook(ByVal unidimensional_data)

Dim xlApp As Excel.Workbook
Dim xlWindow As Excel.Window

'Check to see if the file name passed in to
'the procedure is valid
If Dir("c:unidimensional_datadata.xls") = "" Then
'MsgBox("'" & "c:unidimensional_datadata.xls" & "' isn't a valid path!")
Call xlsetup()
'Exit Sub
Else
xlApp = GetObject("c:unidimensional_datadata.xls")

'Show the Excel Application Window
xlApp.Parent.Visible = True
xlApp.Windows(1).Visible = True
'Unhide each window in the WorkBook
'For Each xlWindow In xlApp.Windows
' xlWindow.Visible = True
' Next

'Prevent Excel from prompting to save changes
'to the workbook when the user exits
xlApp.Saved = True
End If

define the row and column of sheeet
Public row As Integer
Public column As Integer
look for a blank cell, add one to the row number until found then write value of text box to the cell
Private Sub tbox_subnum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbox_subnum.TextChanged
row = 1
column = 1
Do Until (xlsheet.Cells(row + 1, column).value = "")
error appears to be on the 'value' in the line of code below
xlsheet.Cells(row, column).value = tbox_subnum.Text
Loop
'Call change(2, 1)
End Sub

Cheers in hope
Stu

&"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?

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

ADO Command Object Execute Method
Hello friends
when i bind the recordset returned by ado command execute method with dbgrid control it gives me error 7004 " rowset is not bookmarkable" This because i am using Command object because when i use recordset open method it didn't give any error. can anyone help me on this

Thanx Manish

Command Object Execute Method Failing
I'm using a Command object to create a Recordset using the following (abbreviated)code:

Code:Public Sub sameJstSctn()
    Dim rstJstSctn As ADODB.Recordset

    With frmProject.comJoist
        .CommandText = "QryJstSctn"
        .CommandType = adCmdStoredProc
        Set rstJstSctn = .Execute
    End With
    Debug.Print rstJstSctn.RecordCount

    rstJstSctn .Close
    Set rstJstSctn = Nothing
End Sub

The first time I call this procedure it works correctly, but a subsequent call results in no records!?

'comJoist' is a Command object that contains a Parameter
(I've checked the parameter and it's present and has the correct value when called)
'QryJstSctn' is an Access Query that requires one parameter.

I'm developing with VB6 SP6 and ADO 2.7

Any ideas what could be causing this?

Mac

Error: Method '~' Of Object '~' Failed
I am getting the above error while trying to generate word document with
template and bookmarks as input. This error i am getting randomly and not at will in the middle of document generation.

please help me in identifying the problem
Thanks.

here is the code
Code:
Dim I As Integer, j As Integer, k As Integer, l As Integer, m As Integer, docCount As Integer, bookmarksCount As Integer
Dim n As Integer
Dim oWord As Word.Application
Dim oDoc As Document
Dim oSingleDoc As Document
Dim sTemplateUrl As String, sDocStorageURL As String, sDocumentClosed As String, sProtectPassword As String
Dim szServer As String, szUsername As String, szPassword As String, szRemoteFile As String, _
szRefNum As String, szSID As String, szConnect As String, szPortNbr As String
Dim oDocuments As Object, oDocument As Object, oTemplate As Object, oBookmarks As Object, _
oBookmark As Object
Dim sDocument As String, sBookmarkName As String, sBookmarkType As String, _
sBookmarkValue As String, sRowValue As String, sDocUrl As String
Dim sRows() As String, sColumns() As String
Dim rng As Word.Range
Dim frmFields As Word.FormFields
Dim frmField As Word.FormField
Dim rngStart As Integer
Dim rngEnd As Integer
Dim drive As String
Dim frmFieldEnable As Boolean
Dim oBooks As Object
Dim oBook As Object
Dim oContent As Object

On Error GoTo ErrorHandler:
drive = Environ$("SystemDrive")
sProtectPassword = oXML.getElementsByTagName("PasswordProtected").Item(0).Text
Set oDocuments = oXML.getElementsByTagName("Documents").Item(0)
docCount = oDocuments.ChildNodes.Length
sTemplateUrl = drive & oXML.getElementsByTagName("DocTemplateURL").Item(0).Text
sDocStorageURL = oXML.getElementsByTagName("DocStorageURL").Item(0).Text
sDocumentClosed = oXML.getElementsByTagName("DocumentClosed").Item(0).Text
Set oWord = New Word.Application
oWord.Visible = True
Set oDoc = oWord.Documents.Add(sTemplateUrl)
For I = 0 To docCount - 1
Set oDocument = oDocuments.ChildNodes(I)
Set oBooks = CreateObject("MSXML.DOMDocument")
Set oBook = oBooks.documentElement
Set oBook = oBooks.createElement("Books")
oBooks.appendChild oBook
Set oBookmarks = oDocument.getElementsByTagName("Bookmarks").Item(0)
bookmarksCount = oBookmarks.ChildNodes.Length
For n = 0 To bookmarksCount - 1
Set oBookmark = oBookmarks.ChildNodes(n)
Set oContent = oBooks.createElement(oBookmark.getElementsByTagName("Name").Item(0).Text)
oContent.Text = oBookmark.getElementsByTagName("Value").Item(0).Text
oBook.appendChild oContent
Next
Set oTemplate = oDocument.getElementsByTagName("Template").Item(0)
sTemplateUrl = drive & oTemplate.getElementsByTagName("URL").Item(0).Text
Set oSingleDoc = oWord.Documents.Open(FileName:=sTemplateUrl)
oSingleDoc.Activate
Set rng = oSingleDoc.Range
Set frmFields = rng.FormFields
If frmFields.Count > 1 Then
For j = 1 To rng.Bookmarks.Count
If (oBook.SelectNodes("//Books/" & UCase(rng.Bookmarks(j).Name)).Length > 0) Then
sBookmarkName = rng.Bookmarks(j).Name
sBookmarkValue = oBook.getElementsByTagName(UCase(rng.Bookmarks(j).Name)).Item(0).Text
oWord.Selection.GoTo -1, 0, 0, Name:=sBookmarkName
Set frmField = frmFields.Item(sBookmarkName)
frmFieldEnable = frmField.Enabled
frmField.Enabled = True
If frmField.Type = wdFieldFormTextInput Then
frmField.Result = sBookmarkValue
Else
If frmField.Type = wdFieldFormCheckBox Then
If Len(sBookmarkValue) > 0 Then
If StrComp(sBookmarkValue, "Y", vbTextCompare) <= 0 Then
frmField.CheckBox.Value = True
Else
frmField.CheckBox.Value = False
End If
End If
End If
End If
frmField.Enabled = frmFieldEnable
End If
Next
Else
For j = 1 To rng.Bookmarks.Count
If (oBook.SelectNodes("//Books/" & UCase(rng.Bookmarks(j).Name)).Length > 0) Then
sBookmarkValue = oBook.getElementsByTagName(UCase(rng.Bookmarks(j).Name)).Item(0).Text
oWord.Selection.GoTo -1, 0, 0, Name:=rng.Bookmarks(j).Name
If (InStr(sBookmarkValue, "|") > 0) Or (InStr(sBookmarkValue, "?") > 0) Then
sRows = Split(sBookmarkValue, "|")
For k = LBound(sRows) To UBound(sRows)
sColumns = Split(sRows(k), "?")
For l = LBound(sColumns) To UBound(sColumns)
oWord.Selection.TypeText (sColumns(l))
oWord.Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=0
Next
Next
Else
oWord.Selection.TypeText (sBookmarkValue)
End If
End If
Next
End If
sDocUrl = GetPath() & " emp.doc"
oSingleDoc.SaveAs (sDocUrl)
oSingleDoc.Close
Set oBooks = Nothing
oDoc.Activate
oWord.Selection.InsertFile FileName:=sDocUrl
If (I + 1 < docCount) Then
oWord.Selection.EndKey 6, 0
oWord.Selection.InsertBreak 2
oWord.Selection.GoTo rngEnd
End If
Next
oDoc.Protect wdAllowOnlyFormFields, Null, sProtectPassword
szServer = oXML.getElementsByTagName("Servername").Item(0).Text
szUsername = oXML.getElementsByTagName("Username").Item(0).Text
szPassword = oXML.getElementsByTagName("Password").Item(0).Text
szRemoteFile = oXML.getElementsByTagName("RemoteFile").Item(0).Text
szPortNbr = oXML.getElementsByTagName("PortNumber").Item(0).Text
oWord.Run "SetParams", szServer, szUsername, szPassword, szRemoteFile, szPortNbr
If StrComp(sDocumentClosed, "True", vbTextCompare) = 0 Then
oDoc.Close
oWord.Quit
Else
oWord.Visible = True
End If
Set rng = Nothing
Set oSingleDoc = Nothing
Set oDoc = Nothing
Set oWord = Nothing
ErrorHandler:
If Len(Err.Description) > 0 Then
MsgBox "Automation Error: " & Err.Description & " " & Err.Source & " " & Err.Number
oWord.Quit
Set rng = Nothing
Set oDoc = Nothing
Set oSingleDoc = Nothing
Set oWord = Nothing
End If
End Sub

ADO Command Object Returns A &"Method 'Execute' Of Object '_Connection' Failed&" Error