AYUDA POR FAVOR DE CORAZON ES FACIL PERO SOYU NUEVO

18/09/2006 - 23:45 por coservitel | Informe spam
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

Preguntas similare

Leer las respuestas

#1 coservitel
19/09/2006 - 21:17 | Informe spam
BUENO DE VERDAD MUCHAS GRACIAS YA VEO QU SOLO RESPONDEN PREGUNTAS
SENCILLAS HE TATADO DE LAS MIUL UNA MANERA DE CONSEGUIR UNA AYUDA Y
NADA QUE VER ESPERO NUNCA NECESITEN O ESTEN TRANCADOS EN ALGUN LADO Y
NECESITEN DE ALGUIEN EN ESTE FORO Y LES PASE LO MISMO PORQUE DE VERDAD
ES MALO ESTAR ESPERANDO UNA RESPUESTA QUE SIEMPRE ES IGNORADA AHI NOS
VEMOS
Respuesta Responder a este mensaje
#2 El Nazgûl
21/09/2006 - 12:41 | Informe spam
Por favor, aunque sea muy urgente, no escribas en mayúsculas, pues
dificultas la lectura del mensaje y, además, da la sensación de que estás
gritando.

Salu2 desde Udûn
El Nazgûl :-)

escribió en el mensaje
news:
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

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida