Hai,


Iam trying to upload data from Excel to Sql Server.
Iam not using DTS.

Code for the error goes like this


Dim xlapp As New Excel.Application
Dim xlbook As New Excel.Workbook
Dim xlsheet As New Excel.Worksheet

Private Sub btn_Upld_Click()
Set XlWBook = xlapp.Workbooks.Open(txtFileName.Text)

Set xlsheet = XlWBook.Worksheets(1)
:
:
:
:
:
...........
end sub

Previously the same code was working in a windows '98 machine as well as XP machine , now in Windows 'NT machine if executed, the file name of the application gets assigned to the workbook , the next line that sets the xlsheet to the workbooks(1) gives the error :

Runtime error -2147023067 (80070725) Incompatible version of the RPC stub


here,
vijayanand.g

Did you install this application or is it vbscript ?

Hai rnealejr,


Remember me ? i posted a message for Connectivity of Sql Server Client and Server , it connected after giving the ip address of the Server in the Client Connectivity (Enterprise Manager).

Now iam facing this error from VISUAL BASIC 6.0 , iam trying to upload data from Visual Basic code to SQL Server, where in the data is in Microsoft Excel.

here,
vijayanand.g

Hai rnealejr,


Dim xlapp As New Excel.Application
Dim xlWbook As New Excel.Workbook
Dim xlsheet As New Excel.Worksheet

Private Sub btn_Upld_Click()
Set xlWbook = xlapp.Workbooks.Open(txtFileName.Text)

Set xlsheet = xlWbook.Worksheets(1)

var_cnt_cl = 0
var_cnt_rw = 0 ' Counting the Number of Rows

For i = 1 To 255
If xlsheet.Cells(3, i) = "" Then
:
:
:
:
:
: : : : :
end if
next

-----> while accessing the sheet the Error Incompatible version of the RPC stub occurs .


here,
vijayanand.g

The problem is that certain files from your xp machine were used when you created the package (instead of the vs distributable files). The following shows you which files you need to take care of:

link