4
« en: Lunes 18 de Septiembre de 2006, 23:39 »
SALUDOS AMIGOS, SOY NUEVO EN VB2005 Y SQLEXPRESS ESTOY HACIENDO UN SISTEMA SENCILLO DE AGREGAR ELIMINAR ACTUALIZAR ZONAS
MI PROEBLEMA ES QUE TENGO UNA TABLA LLAMADA ZONAS CON CUATRO CAMPOS CODIGO CHAR (10) NOMBRE (CHAR50) Y DETALLE (CHAR100) Y FECHAALTA (DATETIME SHORT)
AHORA TENGO CUATRO TXTBOXES 1)CODIGO 2)NOMBRE 3)FECHA 4)DETALLE DONDE QUIERO HACER LO SIGUIENTE :
AL INGRESAR EL CODIGO SI EL REGISTRO O (CODIGO) EXISTE ME MUESTRE LOS DATOS CORRESPONDIENTES A ESE CODIGO EN LOS CUADROS DE TEXTOS CORRRESPONDIENTES NOMBRE. FECHA. DETALLE. PARA MODIFICARLOS O ELIMINARLOS Y SI NO EXISTE PASE AUTOMATICAMENTE AL SIGUIENTE CAMPO EN ESTE CASO NOMBRE PARA COMENZAR A INGRESAR EL REGISTRO COMO NUEVO
DE VERDAD TENGO TIEMPO EN ESTO Y NO ENCUENTRO COMO REALIZAR ESA VALIDACION
LES AGRADEZCO DE CORAZON TODA LA AYUDA DISCPONIBLE
OJO EL CODIGO NO ES AUTOMATICO COMO PUEDEN DARSE CUENTA EN EL EJEMPLO PERO SI ES LA LLAVE PRINICPAL
Option Strict On
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data
Imports System.Data.SqlClient
Public Class zonas
Private dt As DataTable
Private da As SqlDataAdapter
Private fila As Integer
Private Sub zonas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'"data source="& cboInstancias.Text & "; initial catalog=" & cboBases.Text & "; integrated security=yes"
Dim sCnn As String = "Data Source=PERSONAL\SQLEXPRESS;Initial Catalog=avalon2006;Persist Security Info=True;User ID=sa;Password=Avalon2006"
Dim cnn As New SqlConnection(sCnn)
Dim sSel As String = "SELECT * FROM zonas ORDER BY codigozona"
Try
da = New SqlDataAdapter(sSel, cnn)
Dim cb As New SqlCommandBuilder(da)
da.UpdateCommand = cb.GetUpdateCommand()
da.InsertCommand = cb.GetInsertCommand()
da.DeleteCommand = cb.GetDeleteCommand()
dt = New DataTable
da.Fill(dt)
Dim rn As String = ""
rn = CStr(dt.Rows.Count)
labelregistros.Text = rn
Catch ex As Exception
MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Mostrar Mensajes
