Hola a todos,
Estoy haciendo el curso Desarrollador 5 estrellas de Microsoft y tengo que hacer un ejercicio que tengo el codigo hecho en C# y lo tengo que llevar a VB.NET.
La primera parte de suma de un numero la pude sacar pero el resto me esta matando, por supuesto no quiero la respuesta solo que alguien me de alguna guia o algun lugar de donde pueda sacar info.
Gracias de antemano
Codigo en C#
*****************************************
<%@ WebService Class="ojala" language="c#" %>
using System.Web.Services;
using System.Xml.Serialization;
using System.Data;
using System.Data.SqlClient;
[WebService(Namespace="http://microsoft.com/webservices/")]
public class ojala
{
[WebMethod()]
public int suma(int a, int b)
{
return a+b;
}
[WebMethod]
public Contacto[] vercontacto()
{
return new Contacto[] {
new Contacto ("Alexis Retegui", "
[email protected]","5552266" ),
new Contacto ("Jorge Oblitas", "
[email protected]","4444466" ),
new Contacto ("Sergio Victorio", "
[email protected]","3333366" ),
new Contacto ("Guino Henostroza", "
[email protected]","4564433" ),
new Contacto ("Daniel Seara", "
[email protected]","9987667" )
};
}
[WebMethod]
public DataSet verautores(string query)
{
string conn = "uid=pubsuser;pwd=pass;database=pubs;server=localh ost";
//string query = "Select * from authors";
SqlDataAdapter adapter = new SqlDataAdapter(query,conn);
DataSet autores = new DataSet();
adapter.Fill(autores, "Autor");
return autores;
}
}
public class Contacto
{
[XmlAttribute("name")] public string Nombre;
[XmlAttribute("email")] public string Email;
[XmlAttribute("phone")] public string Telefono;
public Contacto() {}
public Contacto(string nombre, string email, string fono)
{
Nombre= nombre;
Email=email;
Telefono=fono;
}
}
*****************************************
Y esto es lo que tengo hecho hasta ahora en VB.NET
<%@ WebService language="VB" Class="ojala"%>
Imports system
Imports System.Web.Services
Imports System.Xml.Serialization
Imports System.Data
Imports System.Data.SqlClient
public class ojala
<WebMethod> public Function suma(a As Integer, b As Integer) As Integer
return a+b
End Function
End Class