Información
Public Class Frmmanteminiemto
Dim CN As New SqlConnection("Server=.; DataBase=distritos; Integrated Security=TRUE")
Sub cargadatos()
Dim DA AsNew SqlDataAdapter("select C.codcli as Codigo, C.nomcli as Nombre, C.apecli as Apellido, C.telcli as Telefono, C.maicli as [E_Mail],D.NomDis as distrito from clientes C Inner join distritos D onD.CodDis = C.CodDis", CN)
Dim DT As New DataTable
DA.Fill(DT)
Me.dgvClientes.DataSource = DT
Me.dgvClientes.Columns(0).Width = 50Me.dgvClientes.Columns(3).Width = 60
Me.dgvClientes.Columns(5).Width = 140
End Sub
Sub llenarconbo()
Dim DA As New SqlDataAdapter("SELECT * FROM DISTRITOS", CN)
Dim DT As NewDataTable
DA.Fill(DT)
Me.cbodistritos.DisplayMember = "NomDis"
Me.cbodistritos.ValueMember = "CodDis"
Me.cbodistritos.DataSource = DT
End Sub
Sub limpiar()Me.txtcodigo.Clear()
Me.txtnombres.Clear()
Me.txtapellidos.Clear()
Me.txttelefono.Clear()
Me.txtemail.Clear()
Me.cbodistritos.SelectedIndex = 0End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.lblfecha.Text() = Today.ToShortDateString
Callcargadatos()
Call llenarconbo()
Me.txtcodigo.ReadOnly = True
End Sub
Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnguardar.Click
If Not Me.txtcodigo.Text.Trim = "" Then
MessageBox.Show("Advertencia==>Ud.Tiene que actualizar", "MENSAJE", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)Exit Sub
End If
Try
Dim CMD As New SqlCommand("insert into CLIENTES values (@nom,@ape,@tel,@mail,@dis)", CN)
CMD.Parameters.AddWithValue("@nom",...
Regístrate para leer el documento completo.