Visual Basic.NET - Alguien me ayuda con codigo de visual y uso de bd sql

   
Vista:

Alguien me ayuda con codigo de visual y uso de bd sql

Publicado por JorxD (1 intervención) el 28/05/2014 21:11:49
Hola a todos los amigos del foro necesito una ayuda en una sentencia sql mi problema es en generar codigo consecutivo ejemplo 000001 pero el problema es en que primero debo evaluar 4 categorias "F0001", "F0002", "F0003", "F0004"; si escojo F0001 aumenta en 000001 y así sucesivamente; cuando entre a otro formulario con otra categoria debe iniciar en 000001 de nuevo y así va recorriendo la tabla

este es la sentencia que he tratado de hacer no se si esta bien todavía soy novato en el sql y visual

1
2
3
4
5
6
7
8
9
10
11
ALTER proc [dbo].[Codigo_orden]
as
select case Cod_fuente
when 'F0001' then right('00000'+ convert(nvarchar,count(*)+1),6)
When 'F0002' then right('00000'+ convert(nvarchar,count(*)+1),6)
when 'F0003' then right('00000'+ convert(nvarchar,count(*)+1),6)
when 'F0004' then right('00000'+ convert(nvarchar,count(*)+1),6)
else right('00000'+ convert(nvarchar,count(*)+1),6)
end
from Orden
GROUP BY Cod_fuente;

=======================================================
Visual
=======================================================

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function GenerarCodigo_orden() As DataTable
 
Try
conectado()
cmd = New SqlCommand("Codigo_orden")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
 
If cmd.ExecuteNonQuery Then
Dim dt As New DataTable
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
 
Return dt
Else
Return Nothing
End If
 
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
Finally
desconectado()
End Try
End Function
===========================================================================================
Antemano muchas gracias por su colaboración ^^!
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