Buenas Nuevas

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

Imports MySQL.Data.MySqlClient
Imports System.Data.SqlClient

_
_
_
Public Class Service1Inherits System.Web.Services.WebService

_
Public Function HelloWorld() As String
Return "Hola a todos"
End Function



_
Public FunctionGetCotizacion(ByVal MessageTypeIdentification As String, ByVal PrimaryBitMap As String, ByVal SecondaryBitMap As String, ByVal PrimaryAccountNumber As String, ByVal ProcessingCode As String, ByVal AmountTransaction AsString, ByVal Trace As String, ByVal TimeLocalTransaction As String, ByVal DateLocalTransaction As String, ByVal PosEntryMode As String, ByVal PosConditionCode As String, ByValAcquirerInstitutionIdCode As String, ByVal ForwardInstitutionIdCode As String, ByVal RetrievalReferenceNumber As String, ByVal CardAcceptorTerminalId As String, ByVal CardAcceptorIdCode As String, ByValCardAcceptorNameLocation As String, ByVal TransactionCurrencyCode As String, ByVal PrivateData As String) As DataSet 'String

Dim wCodigoEscuela As String
Dim wCodigoAlumno As String
DimwNumeroRecibo As String
Dim wIdentidad As String
Dim wApellidoPaterno As String
Dim wApellidoMaterno As String
Dim wAPrimerNombre As String
Dim wSegundoNombreAs String
Dim connetionString As String
Dim sqlCnn As SqlConnection
Dim Sql As String
Dim sqlCmd As SqlCommand
Dim adapter As New SqlDataAdapterDim ds As New DataSet

Dim cb As MySqlCommandBuilder

'connetionString = "Data Source=localhost;Initial Catalog=test;User ID=root;Password=root"
'Sql = "Select * fromt_alumnos"
'sqlCnn = New SqlConnection(connetionString)
'sqlCnn.Open()
'sqlCmd = New SqlCommand(Sql, sqlCnn)
'adapter.SelectCommand = sqlCmd
'adapter.Fill(ds)...