Es que el problema es que si lo hago, uso este sistema deja mostrate
Código vb:
Ver originalDim consulta As New OleDbCommand("SELECT nsol,norden FROM solicitu WHERE nsol = (SELECT max(nsol) FROM solicitu)", myConn)
myConn.Open()
Dim Lector As Object = consulta.ExecuteReader
Lector.Read()
codigoAnterior = Lector.item("nsol").ToString.Trim
NOrdenAnterior = Lector.item("norden").ToString.Trim
myConn.Close()
codigo = " " & (Int(codigoAnterior) + 1)
txtAnalisisNLab1.Text = Int(NOrdenAnterior) + 1
NOrden = txtAnalisisNLab1.Text
myConn = New OleDbConnection(sConexion)
myConn.Open()
commin.Connection = myConn
commin.CommandText = "INSERT INTO solicitu (soltipo,nsol,norden) VALUES ('" & tipoSolicitud & "','" & codigo & "',' " & NOrden & "')"
With commin
.CommandType = CommandType.Text
.ExecuteNonQuery()
End With
myConn.Close()
Todo eso dentro del boton que crea un nuevo numero de solicitud, pero al accionar dos usuarios, en distintos equipos, el boton a la vez ambos tomas el numero 10 en vez de que uno tome el 10 y el otro el 11