Visual Basic.NET - Leer campo en insert into

   
Vista:

Leer campo en insert into

Publicado por ALBERTO SANTANA albertosantanarivero@hotmail.com (1 intervención) el 24/05/2013 20:49:59
Hola peña:

Tengo un problemilla con mi aplicación, necesito obtener el valor de un campo autonúmerico cuando se inserta nuevos campos en la tabla.

SentenciaSql("INSERT INTO ENTRADA (FECHA,NTALON,BANCO,IMPORTE) VALUES ('" & Me.btnFecha.Text & "'," & Val(Me.TextNtalon.Text) & ",'" & UCase(Me.cmbBanco.Text) & "'," & Val(Me.TextImporte.Text) & ")")
Try
cmd.ExecuteNonQuery()

.......

TABLA
Identrada autonumeracion <-- "Campo que quiero leer"
Fecha texto
Talon numerico

........

El registro se crea correctamente, pero como puedo tomar el valor del campo que se genera automaticamente ??.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Leer campo en insert into

Publicado por OMAR omarscscruz@hotmail.com (45 intervenciones) el 28/05/2013 23:05:08
''Esta funcion totalempleados lo usas para traer el id
dim midi as integer=0
''almacenamos la id
midi=totalempleados("Select Max(Identrada ) from tabla")
''-------------------------------------------------------------------------------------
'Function totalempleados(ByVal sql As String) As Integer
Dim readeraas As OleDbDataReader = Nothing
Dim total As Integer = 0

Try

Dim cmdleer As New OleDbCommand(sql, conexion)

conexion.Open()
readeraas = cmdleer.ExecuteReader
While readeraas.Read()
If IsDBNull(readeraas.GetValue(0)) Then

Else
total = readeraas.GetValue(0)

End If
End While

conexion.Close()
readeraas.Close()

Catch ex As Exception
conexion.Close()
readeraas.Close()
MsgBox(ex.Message, MsgBoxStyle.Critical, "Aviso")
End Try

Return total
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar