. Activo desde el 16 de Enero 2009 (Post mas viejo encontrado)
supongo que estas usando sql como motor de bases de datos... para eso, te recomiendo que hagas toda la parte de codigo interno (buscar, agregar, eliminar,etc) por web service, y el resto del programa lo hagas en el windows form (textbox, botones y esos quesos). En el form solo incluye en codigo para llamar a las funciones del web service pasandole los parametros...
algo asi deberias usar de codigo para los botones.
en el web service deberia estar la sentencia sql que se usa para buscar. pero recordando siempre que al iniciar tu programa debes conectar a la base de datos...
Antes de que se me olvide... aqui te dejo el codigo para validar el rut, este usa 2 textbox para poder usarlo, pero lo puedes modificar para que solo use uno solo.. es el mismo que use en la prueba y funciona bien...
algo asi deberias usar de codigo para los botones.
Código [Seleccionar]
Dim ws As New localhost.Service //esta es la declaracion del web service... debes hacerla antes de cualquier cosa pero despues de la definicion de la clase (Public Class Form1)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ws.Credentials = System.Net.CredentialCache.DefaultCredentials
dim x as string
x=localhost.buscar(textbox1.text)
textbox2.text=x
end suben el web service deberia estar la sentencia sql que se usa para buscar. pero recordando siempre que al iniciar tu programa debes conectar a la base de datos...
Código [Seleccionar]
Dim conec As New SqlConnection("Data Source=paja,paja,paja Security=True")
<WebMethod()> Public Function Conectar() As String
conec.open()
Return "Conectado"
End Functiony en el codigo buscar algo asi... no recuerdo bien como era pero ya tienes la idea mas o menos de como es...Código [Seleccionar]
<WebMethod()> Public Function buscar(by val rut as string) As String
dim busqueda as string
busqueda = "select from rut where rut=",+,rut
Return (busqueda)
End FunctionAhora que lo leo bien... el problema es el mismo que me hicieron hacer en la ultima prueba de taller de programacion... Ahora mismo no puedo poner mas codigo, por que no lo tengo a mano, pero yo cacho que mañana en la tarde voy a buscarlo... ignora la forma en que escribi el codigo ya que lo hice a la rapida y era solo para que te dieras una idea...Antes de que se me olvide... aqui te dejo el codigo para validar el rut, este usa 2 textbox para poder usarlo, pero lo puedes modificar para que solo use uno solo.. es el mismo que use en la prueba y funciona bien...
Código [Seleccionar]
<WebMethod()> Public Function validar(ByVal Rut As String, ByVal verif As String) As String
Dim Digito As Integer
Dim Contador As Integer
Dim Multiplo As Integer
Dim Acumulador As Integer
Dim ValidarRut As Boolean
Contador = 2
Acumulador = 0
While Rut <> 0
Multiplo = (Rut Mod 10) * Contador
Acumulador = Acumulador + Multiplo
Rut = Rut \ 10
Contador = Contador + 1
If Contador = 8 Then
Contador = 2
End If
End While
Digito = 11 - (Acumulador Mod 11)
If Digito = 10 Then Digito = "k"
If Digito = 11 Then Digito = "0"
If Digito = verif Then
ValidarRut = True
Else
ValidarRut = False
End If
Return (ValidarRut)
End Function
