SALTAR CON UN ENTER
Elemento necesarios
primero 5 TextBox ( TextBox1 TextBox2 TextBox3 TextBox4 TextBox5 )
y un boton ( Button1 )
das un doble clic en el form en cuestion y sigues estos:
agregar(Me.TextBox1)
agregar(Me.TextBox2)
agregar(Me.TextBox3)
agregar(Me.TextBox4)
agregar(Me.TextBox5)
acontinuacion agregamos la funcion " agregar" para que funcione el codigo:
Function agregar(ByVal caja As TextBox)
AddHandler caja.KeyPress, New System.Windows.Forms.KeyPressEventHandler(AddressOf EnterBox)
End Function
dicha funcion al final de la instruccion (AddressOf EnterBox) se necesiata esto:
private Sub EnterBox(ByVal sender As Object, ByVal e As KeyPressEventArgs)
If e.KeyChar = Convert.ToChar(Keys.Return) Then
e.Handled = True
Select Case CType(sender, TextBox).Name
Case "TextBox1" : TextBox2.Focus()
Case "TextBox2" : TextBox3.Focus()
Case "TextBox3" : TextBox4.Focus()
Case "TextBox4" : TextBox5.Focus()
Case "TextBox5" : Button1.Focus()
End Select
End If
End Sub
ahora vamos al boton
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("fin del formulario")
End Sub
estos solo sirve para mandar un mensaje que se termina el ultimo TextBox5
COMPROBAR CONEXION A UN SERVIDOR SQL SERVER 2000
CODIGO HECHO POR 'Juan Fco. Berrocal
Para ver este enlace Registrate o Inicia Sesionhttp://www.juandotnet.blogspot.com
cosas necesarias un boton y sql server 200
Nota: sql server debe estar en funcionamiento para que funcione este codigo
primero necesitamos la cabezera necesaria para su funcionamiento
.
'Declaramos los NameSpace's necesarios
Imports System.Data
Imports System.Data.OleDb
en el boton abrimos la seccion del codigo:
declaramos nuestra variables " conexion " o cualquier otro nombre
dim conexion as OleDbConnection
acontinuacion haremos la conexion hacia nustro servidor sql server 2000
conexion= New OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ZAURUS BLACK;Data Source=PEQUEÑO_JEFE")
como saber nuestra direccionde nuestro servidor hay varias formas cualquiera es valida pero prueben con esto:
componente necesario block de notas y sql server 2000
para empezar abrimos el block de notas y lo guardamos como " conexion .udl " .udl significa Microsoft Data Access - OLE DB Core Services
una vez guardado con el nombre de " conexion .udl " se creara el mismo
ya creado lo abrimos nos aparecera la ventana " propiedad de vinculo de datos"
notaremos varias pestañas pero las que necesitamos es " proveedor y conexion "
damos clin en la pestaña proveedor y nos presentara una lista variada de los proveedores que tenemos en nuestra maquina pero la quenecesitamos es
" Microsoft OLE DB Provider for SQL SERVER " es necesario para hacerlos con sql server 2000
para access seria " Microsoft jet 4.0 OLE DB Provider "
seleccionamos para sql server 2000 con u doble click y nos enviara a la siguiente pestaña " conexion "
esta nos aparecer 3 campos
en la primera seleccionamos nuestro servidor que esta en play
2.- nos pedira la manera de la informacion de como vamos a iniciar la seccion de sql server 2000
3.- seleccionamos la base de datos que hemos hecho con anterioridad
y por ultimo damos un click en el boton de " PROBAR CONEXION "
nos aparecera un cuadro de mensaje que se hizo bien
cerramos la ventana
bueno y ahora que pasa dentro del " Microsoft Data Access - OLE DB Core Services "
damos un click y lo abrimos con el block de notas y ahi nos aparecera toda la ruta que en micaso es la antes mencionada
y por ultimo
Try
'Abrimos la conexion
conexion.Open()
MessageBox.Show("La Conexion se ha hecho exitosamente", "Conexion Exitosa", MessageBoxButtons.OK)
Catch ex As Exception
'En caso de error
MessageBox.Show("La Conexion NO SE hecho exitosamente", "Conexion Exitosa", MessageBoxButtons.OK)
MessageBox.Show(ex.Message)
End Try
'Cerramos la conexion
REM conexion.Close()
'Mensaje al usuario para indicarle que se realizo exitosamente la conexion
REM MessageBox.Show("La Conexion se ha hecho exitosamente", "Conexion Exitosa", MessageBoxButtons.OK)
y eso comprobamos la conexion
Autor