none
Obtener Datos de otra Tabla / Autogenerar Codigo RRS feed

  • Pregunta

  • Estimados buenos días tengo dos consultas:

    Tengo dos tablas:

    1ra: Area (id_area,descripcion)

    2da: empleado(id_empleado,nombre,ap_paterno,ap_materno,dni,sede,id_area)

    Lo que deseo es autogenerar el codigo de las tablas, lo que estoy haciendo es esto:

     conexion.Open()
            comando = New OdbcCommand("select max(id_area) from area", conexion)
            lector = comando.ExecuteReader
            If lector.Read Then ' lee la consulta
                If lector.IsDBNull(0) Then                  
                    id_area = 1
                Else
                    id_area = Val(lector(0)) + 1 
                End If
            End If

    pero quisiera hacerlo Alfanumerico, y lo otro es que yo cuando cargo el formulario en area me sale el id_area y quisiera que salga la descripcion:

    Imports System.Data.Odbc
    Public Class frmEmpleado
        Dim conexion As New Odbc.OdbcConnection("DSN=inventario")
        Dim Dt As DataTable
        Dim lector1 As OdbcDataReader
        Dim comando As New Odbc.OdbcCommand
        Dim ds As New DataSet
        Dim id_empleado As Integer

        Public Sub llena_combo()
            Dim Dt As DataTable

            Dim Da As New OdbcDataAdapter
            Dim Cmd As New OdbcCommand
            With Cmd
                .CommandType = CommandType.Text
                .CommandText = "Select id_area, descripcion From area"
                .Connection = conexion
            End With
            Da.SelectCommand = Cmd
            Dt = New DataTable
            Da.Fill(Dt)
            With ComboBox1
                .DataSource = Dt
                .DisplayMember = "descripcion"
                .ValueMember = "id_area"
            End With
        End Sub


        Private Sub frmEmpleado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            llena_combo()
            conexion.Open()
            comando = New OdbcCommand("select id_empleado,nombre, ap_paterno, ap_materno, dni, sede, id_area from empleado order by(id_empleado)", conexion)
            lector1 = comando.ExecuteReader

            While lector1.Read
                DataGridView1.Rows.Add(lector1(0), lector1(1), lector1(2), lector1(3), lector1(4), lector1(5), lector1(6))
            End While
            conexion.Close()

        End Sub

    Gracias de antemano,

    PD: estoy usando postgres y una conexion ODBC

    • Cambiado Enrique M. Montejo viernes, 11 de julio de 2014 18:11 Pregunta relacionada con el acceso a datos mediante ODBC.
    jueves, 10 de julio de 2014 15:33