Databases
StackOverflow2013
Postsdbo
POCalling WCF Webservice from Excel VBA using GetObject() method
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POCalling WCF Webservice from Excel VBA using GetObject() method
    primarykey
    data
    text
    <blockquote> <p><strong>Possible Duplicate:</strong><br> <a href="https://stackoverflow.com/questions/1013428/how-do-i-call-wcf-client-from-excel-2003-vba">How do I call WCF client from Excel 2003 VBA?</a> </p> </blockquote> <p>I want to call a web service developed using WCF from the Excel using VBA code. How can we do this ? I have tried the <code>GetObject()</code> method but I'm getting syntax error while using this. I want to display the data that I'm getting from the web service in Excel. Please help. The DataContract is as follows: `</p> <pre><code>[DataContract] public class Data { [DataMember] public int Id; [DataMember] public DateTime LockTime; [DataMember] public DateTime LoginTime; [DataMember] public DateTime LastDefenitionDate; [DataMember] public string NTLogin; [DataMember] public string SystemName; } </code></pre> <p>ServiceContract is as follows:</p> <p>` </p> <pre><code>[ServiceContract] interface IDataService { [OperationContract] List&lt;Data&gt; GetData(); [OperationContract] void SubmitData(Data data); } </code></pre> <p>`</p> <p>DataService for accessing database is as follows:</p> <p>`</p> <p>[ServiceBehavior(InstanceContextMode=InstanceContextMode.Single)]</p> <p>public class DataService : IDataService { public static SQLConnection SQLDBConnection = new SQLConnection();</p> <pre><code> #region IDataService Members public List&lt;Data&gt; GetData() { List&lt;Data&gt; datas = new List&lt;Data&gt;(); try { if (SQLDBConnection.con.State == ConnectionState.Closed) SQLDBConnection.con.Open(); datas.Clear(); SqlCommand sqlcommand = new SqlCommand(); sqlcommand.Connection = SQLDBConnection.con; sqlcommand.CommandText = "select * from tblData"; sqlcommand.CommandType = CommandType.Text; SqlDataAdapter sqladapter = new SqlDataAdapter(sqlcommand); DataTable dt = new DataTable(); sqladapter.Fill(dt); Data data = null; for (int i = 0; i &lt; dt.Rows.Count; i++) { data = new Data(); data.Id = Convert.ToInt32(dt.Rows[i]["id"]); data.NTLogin = dt.Rows[i]["NTLogin"].ToString(); data.SystemName = dt.Rows[i]["SystemName"].ToString(); data.LockTime = Convert.ToDateTime(dt.Rows[i]["LockTime"]); data.LoginTime = Convert.ToDateTime(dt.Rows[i]["LoginTime"]); data.LastDefenitionDate = Convert.ToDateTime(dt.Rows[i]["LastDefenitionDate"]); datas.Add(data); } } catch (Exception ex) { } return datas; } public void SubmitData(Data data) { if (SQLDBConnection.con.State == ConnectionState.Closed) SQLDBConnection.con.Open(); SqlCommand sqlcommand = new SqlCommand(); sqlcommand.Connection = SQLDBConnection.con; sqlcommand.CommandText = "Insert into dbo.tblData(NTLogin, SystemName, LockTime, LoginTime, LastDefenitionDate) values ('" + data.NTLogin + "','" + data.SystemName + "','" + data.LockTime + "' , '" + data.LoginTime + "', '" + data.LastDefenitionDate + "')"; sqlcommand.CommandType = CommandType.Text; int RowsAffected = sqlcommand.ExecuteNonQuery(); } #endregion } </code></pre> <p>`</p> <p>EDIT:</p> <p>The <strong>possible duplicate</strong> suggestion's answer didn't worked out for me. My entire code is given here. I have even checked that post, before posting my question. Please check my code.</p>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. USCommunity
    1. USAnish V
    plurals
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTDuplicate
    3. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POCalling WCF Webservice from Excel VBA using GetObject() method
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POCalling WCF Webservice from Excel VBA using GetObject() method
      1. USAnish V
      1. VTFavorite
    1. COSee this http://stackoverflow.com/questions/1013428/how-do-i-call-wcf-client-from-excel-2003-vba
      singulars
      1. POCalling WCF Webservice from Excel VBA using GetObject() method
      1. USSiddharth Rout
    2. COIts not working for me. I'm getting an error like this while I tried to run the vba code. `Run-time error '-2147221020 (800401e4)': Automation error Invalid syntax.`
      singulars
      1. POCalling WCF Webservice from Excel VBA using GetObject() method
      1. USAnish V
    3. COAny idea about this error? Please help..
      singulars
      1. POCalling WCF Webservice from Excel VBA using GetObject() method
      1. USAnish V
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload